收集数据库的复制和同步（四）(转).docVIP

网络数据库的复制和同步(4)(转) 作者：Sure160 email: sure160@ 日期：2001-7-18 15:05:16 4．keepLocal属性和Replicable属性 　　（1）KeepLocal属性 　　KeepLocal属性用来保持对象的本地化，即在复制数据库时，使指定的对象不被复制。性用于Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类如果把该属性设置为“T”，则在复制数据库时可使相应的对象保持为本地对象。对象制后，不能使用KeepLocal属性。在获取或设置TableDef或QueryDef的KeepLocal属性之前，必须先用CreateProperty建立，并把它附加到对象的Properties集合中。 　　设置了KeepLocal属性后，该属性将出现在Document对象的Properties集合中。KeepLocal通过CreateProperty方法设置。例如： 　　Dim dbs As Database 　　Dim docTemp As Document 　　Dim prpTemp As Property 　　Set dbs = OpenDatabase(dbtemp.m4b``) 　　Set docTemp = dbs.Containers(Modules).Docu Functions) 　　Set prpTemp = docTemp.Createproperty(KeepLoc dbText, T) 　　docTemp.Properties.Append pWTemp 　　dbs.Close 上面的程序把KeepLocal属性附加到Documeni对象的properties集合中去。必须在数据库变为可复制之前设置对象（例如表）的属性。再如： 　　Sub SetKeepLocal(tdftemp As TableDef) 　　　On Error GoTo ErrHandler 　　　tdfTemp.Properties(KeepLOcal)=T 　　　On Error GoTo 0 　　　Exit Sub 　ErrHandler: 　　Dim prpNew As Property 　　If Err.Number = 3270 Then 　　　Set prpNew = tdfTemp.Createproperty(KeepLocal, dbText, T) 　　　tdfTemp.Properties.Append prpNew 　　Else 　　　MsgBox Error Err . Error 　　End if 　　End Sub 上面的过程把指定对象Tab1eDef的KeepLocal属性设置为“T”。如果keepLocal属性不存在，则先建立之，然后把它附加到表的Properties集合中去，并将其值设置为“T”。 　　（2）Replicable属性 　　Replicable属性用来设置或返回一个值，这个值决定数据库或数据库中的对象是否可以复制（仅Microsoft Jet 工作区）。该属性用于Database对象、Document对象、QueryDef对象和TableDef对象。其设置或返回的值是Text类型。对于Database对象，如果把该属性设置为“T”，则可以复制数据库。设置为“T”后，就不能再改变它，如果把它设置为“F”（或其它非“T”值），则会产生错误。对于数据库中的对象，如果把该属性设置为“T”，则可复制Replicas集合中的所有Replica对象（以及对此对象的更改）。也可以在Microsoft Access的对象属性表中设置该属性。 　　在设置一个Database，Tab1eDef或QueryDef对象的Replicable属性前，必须先用 　　CreateProperty方法建立它，并把它加入对象的Properties集合中。例如： 　　sub CreateReplLocalTableX（） 　　Dim dbsNorthwind As Database 　　Dim tdfNew As TableDef 　　Dim fldNew As Field 　　Dim prpNew As Property 　　Set dbsNorthwind = OpenDatabase(c\dbdir\db3 .mdb) 　　建立一个名为“NewTab”的新TableDef 　　Set tdfNew = dbsNorthwind.CreateTableDef(NewTab) 　　定义一个名为“NewField”的文本字段 　　Set fldNew = tdfNew.CreateField(“NewField”, dbText,