网络数据库的复制和同步(3)

所谓建立数据库复本，实际上就是建立数据库的拷贝。通过数据库复制，每个用户都可以使用数据库中数据的一份拷贝，并可在某个时亥把各个数据库重新组合成宿 主数据库，而对宿主数据库的修改都传送到数据库复本。注意，数据库复制功能仅对Microsoft Jet 3.5版的数据库有效。
Microsoft Jet 数据库引擎不允许用数据库密码来保护复制数据库。在开始使用复本之前，必须先从将要复制的数据库中删去所有数据库密码保护。设置用户权限与复本同步没有冲突。
用DAO复制数据库的一般步骤如下：
（1）识别数据库中不需要复制的对象，并将它们的KeepLocal属性设置为“T”。
（2）将数据库的Replicable属性设置为“T”，使它变成设计原版。
（3）用MakeReplica方法从设计原版中生成附加的复本。
在设置Replicable属性之前，应先确定在转换数据库以前数据库是否已经被复制。
1．保持对象本地化
当 把正常的数据库转换为设计原版时，将复制数据库中的所有对象。如果不想把数据中的所有对象都放在复本集中，则可对不想复制的对象添加并设置 KeepLocal属性。例如，果数据库中有一个表，在该表中含有机密的工资信息、初始化信息或登录到数据库的用名，则可能希望不把这些信息放到复本中。 在这种情况下，可将该表的KeepLocal属性设为“T”，使得复制数据库时，这些信息不被复制。
对于TableDef 和 QueryDef对象，可以建立keepLocal属性并把它添加到对象的属性集合中。对于由主机应用程序定义的窗体、报表、宏以及模块，可以建立KeepLocal属性并把它添加到表示该对象的Document对象的属性集合中。
注意，在设置keepLocal （以及Rep1icab1e ）属性之前，必须先建立它，然后添加到将使用它的对象的属性集合中。如果在建立并添加该属性之前先引用了它，则将产生一个运行时错误。

【例】编写一个Function 过程，对数据库中指定的对象进行本地化处理。
Function SetKeepLocal(dbs As Database, strCollection As String, stffobJect As String) As integer
Dim i As Integer
Dim blnMatch As Boolean
Dim tdf As TableDef
Dim PrP As Property
Dim doc As Document
Dim qdf As QueryDef
On Error GoTo ErrorHandler
Select Case stalollection
　Case "FormS", "RelpOrtS", ''MOdllleS'', ''SCriptS`'
　Set doc = dbs.Containers(strCollection). Documents(strObject)
　Set prp = doc.Createproperty ("KeepLocal", dbText, `'T'')
　doc.Properties.Append prp
　Case "TableDefs"
　Set tdf = dbs.TableDefs(strObJect)
　Set prp = tdfCreateproperty (''KeepLocal'', dbText, ''T'')
　tdfprol)etties.Append prp
　Case ''QuecyDefs'`
　Set qdf=dbs.QueryDefs(sbrobject)
　Set prp = qdf.Createproperty ("KeepLocal", dbText, "T")
　qdf.properties.Append PrP
End Select
ErrorHandler:
Select Case Err
　Case 0
case 3265 '对象未发现
SetKeepLocal = 3265
Exit Function
'属性已经存在，把它设置为“T”
　Case 3367
Select Case sttoollection
　CSSel ''Forms'' , ''RelportS'', ``Modlules'' , ''ScriptS'`
　doc.Properties(''KeepLocal'`).Value = `'T'`
　Case ''TableDefs'`
　tdf.Properties(''KeepLocal'').Value = `'T'`
　Case ''QueryDefs'`
　qdf.Properties(''KeepLocal'').Value = ''T'`
　Exit Function
End Select
SetKeepLocal = 0
Exit Function
Case Else
　MsgBOx ''Error'' & Err & ":", & Error, vbOKOnly
　SetKeepLocal=-1
　Exit Function
　End Select
End Function
用上述过程可以对指定数据库对象建立并添加KeepLocal属性，如果该属性已经存在，则将产生代码为3367的错误，在这种情况下，将在错误处理程序中把该属性的值设置为“T”
该过程有3个参数，其中第一个参数是Database对象，第二个参数是集合的名字，第三个参数是数据库中的对象名。过程的返回值是一个整型数，它实际上是一个错误代码。为了调用上面的过程，可以在窗体上画一个命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
　Dim MyDb As Database
　Dim a As integer
　Set MyDb = OpenDatabase(''c:\dbdir\db1.mdb'')
　a = SetKeepLocal(MyDb, ''TableDefs'',''Tabel1'')
　If a = 0 Then
MsgBox "已成功设置KeepLocal 属性"
　Elself a = 3265 Then
MsgBox "对象未找到"
　Elself a = 3367 Then
MsgBox "KeepLocal属性已存在，设置为“T”
　Else
MsgBox“出错”
　End lf
End sub
该事件过程调用SetKeepLocal过程，用来建立并设置数据库db1.mdb的TableDefs集合中Tabel1对象的KeepLocal属性。
如 果已经在数据库的两个表之间建立起关系，则必须将两个表的keepLocal属性设置为相同的值，即两个表都必须是本地的或者是可复制的。如果两个表的 keepLocal属性设置不一样，则转换将会失败。但是应注意，不能在关系有效时设置keepLocal属性，也就是说，在设置属性之前，应先删除两个 表之间的关系，在设置好KeepLocal属性之后再恢复两个表之间的关系，然后继续进行数据库转换。
如果正在设置KeepLocal属性的对象已经从其它对象中继承了该属性，则由其它对象设置的值对保留为本地对象的操作没有影响，必须直接为每个对象设置keepLocal属性。

2．使对象可以复制
如果在复本中建立了一个新对象，并且想把它从本地的改为可复制的，使得其它用户都可以使用它，则需要在设计原版中建立该对象，并且将其Replicab1e属性设置为“T”。在这种情况下，务必删除所有复本中的这个本地对象，否则会产生一个错误。
对 于TableDef和QueryDef对象，可以直接建立Replicab1e属性，并添加到对象的属性集合中，就像处理KeepLocal属性那样。而 对于由宿主应用程序所定义的窗体、报表、宏和模块，则应建立Replicable属性，然后添加到表示该对象的Document对象的属性集合中。
在 下一次同步时，新的可复制对象将出现在集合的其它复本中。类似地，如果想把可复制对象改为本地对象，则应将其Replicab1e属性设置为“F”。和 KeepLocal属性一样，如果正在设置Replicab1e属性的对象已经从其它对象继承了这个属性，则其它对象设置的值对这个对象不起作用，必须直 接对每个对象设置Rep1icab1e属性。
注意，如果把一个对象的Replicab1e属性从“T”改为“F”，该对象便从可复制状态变为本地 的，在这种情况下， Microsoft Jet将只在设计原版中保留该对象，而从复本集的其它复本中删掉。在改变表的可复制状态时，应当格外小心。即使在设计原版中暂时把一个可复制表改变为本地 表，然后再改回可复制的，但下次同步时仍然将会在每个复本中删除并重建该表。除非在进行设计变更之前同步所有的复本，否则将会丢失自上次同步以来输入到表 中的所有数据。

3．构造设计原版
设计原版也是一个数据库复本，但它是一个可以复制的复本。为了把一个数据库变为设计原版，需要为Database对象建立Rep1icab1e属性，并把该属性添加到Database对象的属性集合中，然后将其Replicab1e属性设置为“T”。
【例】编写一个Function过程，把指定的数据库变为设计原版。过程如下：
Public Function SetReplicable（strDB As String）As integer
　Dim prpReplicable As Property
　Dim dbsTarget As Database
　n Error GoTo ErrorHandler
　Set dbsTarget = OpenDatabase(strDB,True)
　‘若属性已存在，则关闭错误处理
On Error Resume Next
　' 创建Replicable 属性
　Set prpReplicable =dbsTarget.Createproperty( "Replicable", dbText, ''T'`)
　'把该属性添加到属性集合中
　dbsTarget.Properties.Append prpReplicable
　'把该属性设置为"T"
　dbsTarget.PrOperties("Replicable")= ''T''
　SetReplicable = 0
　ErrorHandler:
　Select Case Err
Case 0
　SetReplicable = 0
　Exit Function
Case Else
　MsgBox "Error" & Err ":" & Error
　SetReplicable = -1
　Exit Function
End Select
nd Function
上述过程把指定的数据库转换为设计原版。如果Rep1icab1e属性不存在，则建立该属性，井把它设置为指定的值。
为了调用上述过程，可以在窗体上画一个命令按钮，然后编写如下的事件过程：
Private Sub Conunandl_Click()
　Dim MyDB As Database
　Dim a As integer
　a = SetReplicable(''c:\dbdir\dbl .mdb``)
　If a = 0 Then
MsgBox "成功设置Replicable 属性"
　Else
MsgBox "设置失败"
　End if
end sub
运行程序，单击命令按钮，将调用SetReplicable过程，为指定的数据库添加和设置Replicab1e属性，并根据执行情况显示相应的信息。在转换进程中，Microsoft Jet将维持原始数据库的所有属性设置值。

4．用复本生成复本

当把数据库的Replicable属性设置为“T”，从而将数据库转换成设计原版时，在复本集中只有一个复本（即设计原版），只能用它来生成第一个复本。可以用MakeReplica方法来生成第一个复本和后续的复本。
用 设计原版生成数据库的第一个复本后，可以用集合中的任一复本来生成另外的复本。事实上，在复本集中增加数据库新备份的唯一途径，就是从一个现存的复本来建 立它们。一旦立好，新复本即成为复本集的一部分。所有复本都有唯一的标识，并能相互通信和同步。每个复本集与所有其它复本集是互相独立的，不同复本集的复 本不能相互通信或同步。
注意，在原始数据库的备份被变成设计原版之前，不要用它来生成另外的复本。否则，生成的将不是另外的复本，而是新的设计原版和复本集。
【例】编写一个过程，用来生成数据库复本。
过程如下：
Function MakeAdditionalReplica(strReplica As String, strNewReplica As String, intOptions As Integer) As integer
　Dim dbs As Database
　On Error GoTo ErrorHandler
　Set dbs = OpenDatabase(strReplicableDB)
　'如果没有选项传递给MakeAdditionalReplilca,
　'就忽略选项参数，该选项参数的缺省值是完全的，读/写复本；
　'否则，使用intoptions的值
　If intOptions = 0 Then
dbs.MakeReplica strNewReplica, "Replica of " & strReplicableDB
　Else
dbs.MakeReplica strNewReplica, "Replica of " & strReplicableDB, intOptions
　End if
　dbs.Close
　rrorHandler:
　Select Case Err
Case 0:
　MakeAdditionalReplica = 0
　Exit Function
Case Else:
　MsgBox"error" & err ":" & Error
　MakeAdditionalReplica =-1
　Exit function
　End select
End function
上 述过程可以从一个数据库复本生成一个新的复本。该过程有3个参数，其中第一个参数是数据库复本的文件名，第二个参数是新生成的数据库复本的文件名，第三个 参数，即intOptions，可以是DAO常数dbRepMakeReadOnly和dbRepMakePartial的组合，也可以是0。 dbRepMakeReadOnly常数表示复本是只读的，而dbRepMakePartial常数表示复本是部分复本，不是完全复本。例如，为了建立一 个只读部分复本，在调用过程MakeAdditionalReplica时，应当把dbRepMakeReadon1y ＋ dbRepMakePartial的值传递给intOptions参数。如果intOptions参数是0，则过程将建立一个完全的读／写复本，因为忽略 了MakeReplica方法中的options参数。
为了调用上述过程建立数据库复本，可以在窗体上画一个命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click（）
　A=MakeAdditionalReplica（"c:\dbdir\dblcopy1. mdb","c:\dbdir\dblcopy2.mdb",0）
　if a＝o Then
MsgBox"己生成数据库复本"
　Else
MsgBox“操作失败”
　End lf
End sub
过程中的dblcopy1.mdb 是数据库db1.mdb的复本，而dblcopy2.mdb是dblcopyl.mdb的复本。运行程序，单击命令按钮，将建立一个完全的读/写复本。
当Microsoft Jet建立新复本时，新复本将包含源复本的所有数据定义语言属性设置值。后续的复本可以由设计原版或集合中的任一复本来生成。
在 用MakeRep1ica方法复制数据库时，正在复制的对象一定不能是锁定的，否则方法的调用会失败。如果一个对象以设计模式打开或在同步期间被更新，则 该对象会被Microsoft Jet锁定。在实际的程序设计中，一定要注意这一点，不要试图从拥有锁定对象的数据库来生成复本。
注意，生成一个新复本后，将把源复本中的所有可复制对象和属性复制到新复本中。虽然所有链接表也被复制，但如果新复本位于网络上，链接表的路径可能会不正确。因此，一定要对新复本进行测试，以确定是否需要为链接表建立新路径。