欢迎光临
我们一直在努力

复制数据库(1)–网络数据库的复制和同步(5)_visualbasic教程

建站超值云服务器,限时71元/月

所谓建立数据库复本,实际上就是建立数据库的拷贝。通过数据库复制,每个用户都可以使用数据库中数据的一份拷贝,并可在某个时亥把各个数据库重新组合成宿主数据库,而对宿主数据库的修改都传送到数据库复本。注意,数据库复制功能仅对MicrosoftJet3.5版的数据库有效。

MicrosoftJet数据库引擎不允许用数据库密码来保护复制数据库。在开始使用复本之前,必须先从将要复制的数据库中删去所有数据库密码保护。设置用户权限与复本同步没有冲突。

用DAO复制数据库的一般步骤如下:

(1)识别数据库中不需要复制的对象,并将它们的KeepLocal属性设置为“T”。
(2)将数据库的Replicable属性设置为“T”,使它变成设计原版。
(3)用MakeReplica方法从设计原版中生成附加的复本。
在设置Replicable属性之前,应先确定在转换数据库以前数据库是否已经被复制。

1.保持对象本地化

当把正常的数据库转换为设计原版时,将复制数据库中的所有对象。如果不想把数据中的所有对象都放在复本集中,则可对不想复制的对象添加并设置KeepLocal属性。例如,果数据库中有一个表,在该表中含有机密的工资信息、初始化信息或登录到数据库的用名,则可能希望不把这些信息放到复本中。在这种情况下,可将该表的KeepLocal属性设为“T”,使得复制数据库时,这些信息不被复制。

对于TableDef和QueryDef对象,可以建立keepLocal属性并把它添加到对象的属性集合中。对于由主机应用程序定义的窗体、报表、宏以及模块,可以建立KeepLocal属性并把它添加到表示该对象的Document对象的属性集合中。

注意,在设置keepLocal(以及Rep1icab1e)属性之前,必须先建立它,然后添加到将使用它的对象的属性集合中。如果在建立并添加该属性之前先引用了它,则将产生一个运行时错误。

【例】编写一个Function过程,对数据库中指定的对象进行本地化处理。

FunctionSetKeepLocal(dbsAsDatabase,strCollectionAsString,stffobJectAsString)Asinteger
DimiAsInteger
DimblnMatchAsBoolean
DimtdfAsTableDef
DimPrPAsProperty
DimdocAsDocument
DimqdfAsQueryDef
OnErrorGoToErrorHandler
SelectCasestalollection
Case”FormS”,”RelpOrtS”,MOdllleS,SCriptS`
Setdoc=dbs.Containers(strCollection).Documents(strObject)
Setprp=doc.Createproperty(“KeepLocal”,dbText,`T)
doc.Properties.Appendprp
Case”TableDefs”
Settdf=dbs.TableDefs(strObJect)
Setprp=tdfCreateproperty(KeepLocal,dbText,T)
tdfprol)etties.Appendprp
CaseQuecyDefs`
Setqdf=dbs.QueryDefs(sbrobject)
Setprp=qdf.Createproperty(“KeepLocal”,dbText,”T”)
qdf.properties.AppendPrP
EndSelect
ErrorHandler:
SelectCaseErr
Case0
case3265对象未发现
SetKeepLocal=3265
ExitFunction

属性已经存在,把它设置为“T”

Case3367
SelectCasesttoollection
CSSelForms,RelportS,“Modlules,ScriptS`
doc.Properties(KeepLocal`).Value=`T`
CaseTableDefs`
tdf.Properties(KeepLocal).Value=`T`
CaseQueryDefs`
qdf.Properties(KeepLocal).Value=T`
ExitFunction
EndSelect
SetKeepLocal=0
ExitFunction
CaseElse
MsgBOxError&Err&”:”,&Error,vbOKOnly
SetKeepLocal=-1
ExitFunction
EndSelect
EndFunction

用上述过程可以对指定数据库对象建立并添加KeepLocal属性,如果该属性已经存在,则将产生代码为3367的错误,在这种情况下,将在错误处理程序中把该属性的值设置为“T”

该过程有3个参数,其中第一个参数是Database对象,第二个参数是集合的名字,第三个参数是数据库中的对象名。过程的返回值是一个整型数,它实际上是一个错误代码。为了调用上面的过程,可以在窗体上画一个命令按钮,然后编写如下的事件过程:

PrivateSubCommand1_Click()
DimMyDbAsDatabase
DimaAsinteger
SetMyDb=OpenDatabase(c:\dbdir\db1.mdb)
a=SetKeepLocal(MyDb,TableDefs,Tabel1)
Ifa=0Then
MsgBox”已成功设置KeepLocal属性”
Elselfa=3265Then
MsgBox”对象未找到”
Elselfa=3367Then
MsgBox”KeepLocal属性已存在,设置为“T”
Else
MsgBox“出错”
Endlf
Endsub

该事件过程调用SetKeepLocal过程,用来建立并设置数据库db1.mdb的TableDefs集合中Tabel1对象的KeepLocal属性。

如果已经在数据库的两个表之间建立起关系,则必须将两个表的keepLocal属性设置为相同的值,即两个表都必须是本地的或者是可复制的。如果两个表的keepLocal属性设置不一样,则转换将会失败。但是应注意,不能在关系有效时设置keepLocal属性,也就是说,在设置属性之前,应先删除两个表之间的关系,在设置好KeepLocal属性之后再恢复两个表之间的关系,然后继续进行数据库转换。

如果正在设置KeepLocal属性的对象已经从其它对象中继承了该属性,则由其它对象设置的值对保留为本地对象的操作没有影响,必须直接为每个对象设置keepLocal属性。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 复制数据库(1)–网络数据库的复制和同步(5)_visualbasic教程
分享到: 更多 (0)