复本操作的对象、属性和方法(3)--网络数据库的复制和同步（4）
4．keepLocal属性和Replicable属性 （1）KeepLocal属性 KeepLocal属性用来保持对象的本地化，即在复制数据库时，使指定的对象不被复制。性用于Document对象、QueryDef对象和TableDef对象。其设置或返
4．keepLocal属性和Replicable属性
（1）KeepLocal属性
KeepLocal属性用来保持对象的本地化，即在复制数据库时，使指定的对象不被复制。性用于Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类如果把该属性设置为“T”，则在复制数据库时可使相应的对象保持为本地对象。对象制后，不能使用KeepLocal属性。在获取或设置TableDef或QueryDef的KeepLocal属性之前，必须先用CreateProperty建立，并把它附加到对象的Properties集合中。
设置了KeepLocal属性后，该属性将出现在Document对象的Properties集合中。KeepLocal通过CreateProperty方法设置。例如：
DimdbsAsDatabase
DimdocTempAsDocument
DimprpTempAsProperty
Setdbs=OpenDatabase(''dbtemp.m4b``)
SetdocTemp=dbs.Containers(''Modules'').DocuFunctions'')
SetprpTemp=docTemp.Createproperty(''KeepLocdbText,''T'')
docTemp.Properties.AppendpWTemp
dbs.Close
上面的程序把KeepLocal属性附加到Documeni对象的properties集合中去。必须在数据库变为可复制之前设置对象（例如表）的属性。再如：
SubSetKeepLocal(tdftempAsTableDef)
OnErrorGoToErrHandler
tdfTemp.Properties("KeepLOcal")="T"
OnErrorGoTo0
ExitSub
ErrHandler:
DimprpNewAsProperty
IfErr.Number=3270Then
SetprpNew=tdfTemp.Createproperty("KeepLocal",dbText,"T")
tdfTemp.Properties.AppendprpNew
Else
MsgBox"Error"&Err&"."&Error
Endif
EndSub
上面的过程把指定对象Tab1eDef的KeepLocal属性设置为“T”。如果keepLocal属性不存在，则先建立之，然后把它附加到表的Properties集合中去，并将其值设置为“T”。
（2）Replicable属性
Replicable属性用来设置或返回一个值，这个值决定数据库或数据库中的对象是否可以复制（仅MicrosoftJet工作区）。该属性用于Database对象、Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类型。对于Database对象，如果把该属性设置为“T”，则可以复制数据库。设置为“T”后，就不能再改变它，如果把它设置为“F”（或其它非“T”值），则会产生错误。对于数据库中的对象，如果把该属性设置为“T”，则可复制Replicas集合中的所有Replica对象（以及对此对象的更改）。也可以在MicrosoftAccess的对象属性表中设置该属性。
在设置一个Database，Tab1eDef或QueryDef对象的Replicable属性前，必须先用
CreateProperty方法建立它，并把它加入对象的Properties集合中。例如：
subCreateReplLocalTableX（）
DimdbsNorthwindAsDatabase
DimtdfNewAsTableDef
DimfldNewAsField
DimprpNewAsProperty
SetdbsNorthwind=OpenDatabase("cdbdirdb3.mdb")
'建立一个名为“NewTab”的新TableDef
SettdfNew=dbsNorthwind.CreateTableDef("NewTab")
'定义一个名为“NewField”的文本字段
SetfldNew=tdfNew.CreateField(“NewField”,dbText,3)
'把新字段附加到TableDef中
tdfNew.Fields.AppendfldNew
'把新TableDef添加到数据库中
dbsNorthwind.TableDefs.AppendtdfNew
'为新TableDef建立Replicable属性
SetprpNew=tdfNew.Createproperty(''Replicab,dbText,''T'')
'把Replicable属性加到TableDef中
tdfNew.Properties.AppendprpNew
dbsNorthwind.Close
EndSub
上述过程建立一个新的TableDef对象，并使其可复制。注意，包含该对象的数据库必是可复制的，才能执行此过程。再如:
SubSetReplicable(tdryempAsTableDeD)
OnErrorGoToErrHandier
tdryemp.PrOperties(''Replicable'=''T'')
OnErrorGoTo0
ExiiSub
ErrHandler.
DimprpNewAsProperty
IfErr.Number=3270Then
SetprpNew=tdfTemp.Createproperty(``Replicab,dbText,''T'')
idfTemp.Properties.AppendprpNew
Else
MsgBox“Error”&Err&“:”&Error
EndIf
Endsub
上述过程将指定TableDef对象的Replicab1e属性设置为“T”。如果属性不存在，则在错误处理子程序中建立之，然后附加到TableDef的Properties集合中，并设置为“T”。
5．MaKeReplica方法
MakeReplica方法用来从一个数据库复本中复制一个新的复本（仅用于MicrosoftJet工作区）。该方法用于Database对象，其格式如下：
对象．MakeReplicareplica，description，options
格式中各参数的含义如下：
对象：Database对象变量。
rep1ica：是一个字符串，指定新复本的路径和文件名，如果该参数是当前文件名，则会发生错误。
description：是一个字符串，用来描述所生成的复本。
opii0n8：可选。是一个符号常量或常量组合，用来指定所生成的复本的特征，可以取以下两种值：
dbRepMakepartial生成一个部分复本
dbRepMakeReadoniy防止修改新复本。但是，当将新复本与复本集中的另一个复本同步时，对设计和数据的修改将传送到新复本
上述两个常量可以单独使用，也可以用“十”号组合在一起，例如：
dbRepMakePartial＋dbRepMakeReadOnly->
（1）KeepLocal属性
KeepLocal属性用来保持对象的本地化，即在复制数据库时，使指定的对象不被复制。性用于Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类如果把该属性设置为“T”，则在复制数据库时可使相应的对象保持为本地对象。对象制后，不能使用KeepLocal属性。在获取或设置TableDef或QueryDef的KeepLocal属性之前，必须先用CreateProperty建立，并把它附加到对象的Properties集合中。
设置了KeepLocal属性后，该属性将出现在Document对象的Properties集合中。KeepLocal通过CreateProperty方法设置。例如：
DimdbsAsDatabase
DimdocTempAsDocument
DimprpTempAsProperty
Setdbs=OpenDatabase(''dbtemp.m4b``)
SetdocTemp=dbs.Containers(''Modules'').DocuFunctions'')
SetprpTemp=docTemp.Createproperty(''KeepLocdbText,''T'')
docTemp.Properties.AppendpWTemp
dbs.Close
上面的程序把KeepLocal属性附加到Documeni对象的properties集合中去。必须在数据库变为可复制之前设置对象（例如表）的属性。再如：
SubSetKeepLocal(tdftempAsTableDef)
OnErrorGoToErrHandler
tdfTemp.Properties("KeepLOcal")="T"
OnErrorGoTo0
ExitSub
ErrHandler:
DimprpNewAsProperty
IfErr.Number=3270Then
SetprpNew=tdfTemp.Createproperty("KeepLocal",dbText,"T")
tdfTemp.Properties.AppendprpNew
Else
MsgBox"Error"&Err&"."&Error
Endif
EndSub
上面的过程把指定对象Tab1eDef的KeepLocal属性设置为“T”。如果keepLocal属性不存在，则先建立之，然后把它附加到表的Properties集合中去，并将其值设置为“T”。
（2）Replicable属性
Replicable属性用来设置或返回一个值，这个值决定数据库或数据库中的对象是否可以复制（仅MicrosoftJet工作区）。该属性用于Database对象、Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类型。对于Database对象，如果把该属性设置为“T”，则可以复制数据库。设置为“T”后，就不能再改变它，如果把它设置为“F”（或其它非“T”值），则会产生错误。对于数据库中的对象，如果把该属性设置为“T”，则可复制Replicas集合中的所有Replica对象（以及对此对象的更改）。也可以在MicrosoftAccess的对象属性表中设置该属性。
在设置一个Database，Tab1eDef或QueryDef对象的Replicable属性前，必须先用
CreateProperty方法建立它，并把它加入对象的Properties集合中。例如：
subCreateReplLocalTableX（）
DimdbsNorthwindAsDatabase
DimtdfNewAsTableDef
DimfldNewAsField
DimprpNewAsProperty
SetdbsNorthwind=OpenDatabase("cdbdirdb3.mdb")
'建立一个名为“NewTab”的新TableDef
SettdfNew=dbsNorthwind.CreateTableDef("NewTab")
'定义一个名为“NewField”的文本字段
SetfldNew=tdfNew.CreateField(“NewField”,dbText,3)
'把新字段附加到TableDef中
tdfNew.Fields.AppendfldNew
'把新TableDef添加到数据库中
dbsNorthwind.TableDefs.AppendtdfNew
'为新TableDef建立Replicable属性
SetprpNew=tdfNew.Createproperty(''Replicab,dbText,''T'')
'把Replicable属性加到TableDef中
tdfNew.Properties.AppendprpNew
dbsNorthwind.Close
EndSub
上述过程建立一个新的TableDef对象，并使其可复制。注意，包含该对象的数据库必是可复制的，才能执行此过程。再如:
SubSetReplicable(tdryempAsTableDeD)
OnErrorGoToErrHandier
tdryemp.PrOperties(''Replicable'=''T'')
OnErrorGoTo0
ExiiSub
ErrHandler.
DimprpNewAsProperty
IfErr.Number=3270Then
SetprpNew=tdfTemp.Createproperty(``Replicab,dbText,''T'')
idfTemp.Properties.AppendprpNew
Else
MsgBox“Error”&Err&“:”&Error
EndIf
Endsub
上述过程将指定TableDef对象的Replicab1e属性设置为“T”。如果属性不存在，则在错误处理子程序中建立之，然后附加到TableDef的Properties集合中，并设置为“T”。
5．MaKeReplica方法
MakeReplica方法用来从一个数据库复本中复制一个新的复本（仅用于MicrosoftJet工作区）。该方法用于Database对象，其格式如下：
对象．MakeReplicareplica，description，options
格式中各参数的含义如下：
对象：Database对象变量。
rep1ica：是一个字符串，指定新复本的路径和文件名，如果该参数是当前文件名，则会发生错误。
description：是一个字符串，用来描述所生成的复本。
opii0n8：可选。是一个符号常量或常量组合，用来指定所生成的复本的特征，可以取以下两种值：
dbRepMakepartial生成一个部分复本
dbRepMakeReadoniy防止修改新复本。但是，当将新复本与复本集中的另一个复本同步时，对设计和数据的修改将传送到新复本
上述两个常量可以单独使用，也可以用“十”号组合在一起，例如：
dbRepMakePartial＋dbRepMakeReadOnly->
精彩图集
精彩文章