（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, 3)

　　'把新字段附加到tabledef中

　　tdfnew.fields.append fldnew

　　'把新tabledef添加到数据库中

　　dbsnorthwind.tabledefs.append tdfnew

　　'为新tabledef建立replicable属性

　　set prpnew = tdfnew.createproperty(''replicab , dbtext, ''t'')

　　'把replicable 属性加到tabledef中

　　tdfnew.properties.append prpnew

　　dbsnorthwind.close

　　end sub

上述过程建立一个新的tabledef 对象，并使其可复制。注意，包含该对象的数据库必是可复制的，才能执行此过程。再如:

　　sub setreplicable(tdryemp as tableded)

　　on error goto errhandier

　　tdryemp.properties(''replicable' = ''t'')

　　on error goto 0

　　exii sub

errhandler.

　　dim prpnew as property

　　if err.number = 3270 then

　　　set prpnew = tdftemp.createproperty(``replicab , dbtext, ''t'')

　　　idftemp.properties.append prpnew

　　else

　　　msgbox “error” & err & “:” & error

　　end if

　　end sub

上述过程将指定tabledef对象的replicab1e属性设置为“t”。如果属性不存在，则在错误处理子程序中建立之，然后附加到tabledef的properties集合中，并设置为“t”。

　　5．makereplica方法

　　makereplica方法用来从一个数据库复本中复制一个新的复本（仅用于microsoft jet 工作区）。该方法用于database对象，其格式如下：

　　对象．makereplica replica，description，options

　　格式中各参数的含义如下：

　　·对象： database对象变量。

　　· rep1ica：是一个字符串，指定新复本的路径和文件名，如果该参数是当前文件名，则会发生错误。

　　·description：是一个字符串，用来描述所生成的复本。

　　·opii0n8：可选。是一个符号常量或常量组合，用来指定所生成的复本的特征，可以取以下两种值：

　　dbrepmakepartial生成一个部分复本

　　dbrepmakereadoniy防止修改新复本。但是，当将新复本与复本集中的另一个复本同步时，对设计和数据的修改将传送到新复本

　　上述两个常量可以单独使用，也可以用“十”号组合在一起，例如：

　　dbrepmakepartial ＋ dbrepmakereadonly


编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：网络数据库的复制和同步（3）
下一篇：网络数据库的复制和同步（5）
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。