復(fù)制數(shù)據(jù)庫(kù)(1)--網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的復(fù)制和同步（5）

2019-11-18 17:45:50

字體：大中小

供稿：網(wǎng)友

所謂建立數(shù)據(jù)庫(kù)復(fù)本，實(shí)際上就是建立數(shù)據(jù)庫(kù)的拷貝。通過(guò)數(shù)據(jù)庫(kù)復(fù)制，每個(gè)用戶都可以使用數(shù)據(jù)庫(kù)中數(shù)據(jù)的一份拷貝，并可在某個(gè)時(shí)亥把各個(gè)數(shù)據(jù)庫(kù)重新組合成宿主數(shù)據(jù)庫(kù)，而對(duì)宿主數(shù)據(jù)庫(kù)的修改都傳送到數(shù)據(jù)庫(kù)復(fù)本。注意，數(shù)據(jù)庫(kù)復(fù)制功能僅對(duì)MicrosoftJet3.5版的數(shù)據(jù)庫(kù)有效。

MicrosoftJet數(shù)據(jù)庫(kù)引擎不允許用數(shù)據(jù)庫(kù)密碼來(lái)保護(hù)復(fù)制數(shù)據(jù)庫(kù)。在開(kāi)始使用復(fù)本之前，必須先從將要復(fù)制的數(shù)據(jù)庫(kù)中刪去所有數(shù)據(jù)庫(kù)密碼保護(hù)。設(shè)置用戶權(quán)限與復(fù)本同步?jīng)]有沖突。

用DAO復(fù)制數(shù)據(jù)庫(kù)的一般步驟如下：

（1）識(shí)別數(shù)據(jù)庫(kù)中不需要復(fù)制的對(duì)象，并將它們的KeepLocal屬性設(shè)置為“T”。
（2）將數(shù)據(jù)庫(kù)的Replicable屬性設(shè)置為“T”，使它變成設(shè)計(jì)原版。
（3）用MakeReplica方法從設(shè)計(jì)原版中生成附加的復(fù)本。
在設(shè)置Replicable屬性之前，應(yīng)先確定在轉(zhuǎn)換數(shù)據(jù)庫(kù)以前數(shù)據(jù)庫(kù)是否已經(jīng)被復(fù)制。

1．保持對(duì)象本地化

當(dāng)把正常的數(shù)據(jù)庫(kù)轉(zhuǎn)換為設(shè)計(jì)原版時(shí)，將復(fù)制數(shù)據(jù)庫(kù)中的所有對(duì)象。如果不想把數(shù)據(jù)中的所有對(duì)象都放在復(fù)本集中，則可對(duì)不想復(fù)制的對(duì)象添加并設(shè)置KeepLocal屬性。例如，果數(shù)據(jù)庫(kù)中有一個(gè)表，在該表中含有機(jī)密的工資信息、初始化信息或登錄到數(shù)據(jù)庫(kù)的用名，則可能希望不把這些信息放到復(fù)本中。在這種情況下，可將該表的KeepLocal屬性設(shè)為“T”，使得復(fù)制數(shù)據(jù)庫(kù)時(shí)，這些信息不被復(fù)制。

對(duì)于TableDef和QueryDef對(duì)象，可以建立keepLocal屬性并把它添加到對(duì)象的屬性集合中。對(duì)于由主機(jī)應(yīng)用程序定義的窗體、報(bào)表、宏以及模塊，可以建立KeepLocal屬性并把它添加到表示該對(duì)象的Document對(duì)象的屬性集合中。

注意，在設(shè)置keepLocal（以及Rep1icab1e）屬性之前，必須先建立它，然后添加到將使用它的對(duì)象的屬性集合中。如果在建立并添加該屬性之前先引用了它，則將產(chǎn)生一個(gè)運(yùn)行時(shí)錯(cuò)誤。

【例】編寫一個(gè)Function過(guò)程，對(duì)數(shù)據(jù)庫(kù)中指定的對(duì)象進(jìn)行本地化處理。

FunctionSetKeepLocal(dbsAsDatabase,strCollectionAsString,stffobJectAsString)Asinteger
DimiAsInteger
DimblnMatchAsBoolean
DimtdfAsTableDef
DimPRPasproperty
DimdocAsDocument
DimqdfAsQueryDef
OnErrorGoToErrorHandler
SelectCasestalollection
Case"FormS","RelpOrtS",''MOdllleS'',''SCr
Case3367
SelectCasesttoollection
CSSel''Forms'',''RelportS'',``Modlules'',''ScriptS'`
doc.Properties(''KeepLocal'`).Value=`'T'`
Case''TableDefs'`
tdf.Properties(''KeepLocal'').Value=`'T'`
Case''QueryDefs'`
qdf.Properties(''KeepLocal'').Value=''T'`
ExitFunction
EndSelect
SetKeepLocal=0
ExitFunction
CaseElse
MsgBOx''Error''&Err&":",&Error,vbOKOnly
SetKeepLocal=-1
ExitFunction
EndSelect
EndFunction

用上述過(guò)程可以對(duì)指定數(shù)據(jù)庫(kù)對(duì)象建立并添加KeepLocal屬性，如果該屬性已經(jīng)存在，則將產(chǎn)生代碼為3367的錯(cuò)誤，在這種情況下，將在錯(cuò)誤處理程序中把該屬性的值設(shè)置為“T”

該過(guò)程有3個(gè)參數(shù)，其中第一個(gè)參數(shù)是Database對(duì)象，第二個(gè)參數(shù)是集合的名字，第三個(gè)參數(shù)是數(shù)據(jù)庫(kù)中的對(duì)象名。過(guò)程的返回值是一個(gè)整型數(shù)，它實(shí)際上是一個(gè)錯(cuò)誤代碼。為了調(diào)用上面的過(guò)程，可以在窗體上畫一個(gè)命令按鈕，然后編寫如下的事件過(guò)程：

PrivateSubCommand1_Click()
DimMyDbAsDatabase
DimaAsinteger
SetMyDb=OpenDatabase(''c:/dbdir/db1.mdb'')
a=SetKeepLocal(MyDb,''TableDefs'',''Tabel1'')
Ifa=0Then
MsgBox"已成功設(shè)置KeepLocal屬性"
Elselfa=3265Then
MsgBox"對(duì)象未找到"
Elselfa=3367Then
MsgBox"KeepLocal屬性已存在，設(shè)置為“T”
Else
MsgBox“出錯(cuò)”
Endlf
Endsub

該事件過(guò)程調(diào)用SetKeepLocal過(guò)程，用來(lái)建立并設(shè)置數(shù)據(jù)庫(kù)db1.mdb的TableDefs集合中Tabel1對(duì)象的KeepLocal屬性。

如果已經(jīng)在數(shù)據(jù)庫(kù)的兩個(gè)表之間建立起關(guān)系，則必須將兩個(gè)表的keepLocal屬性設(shè)置為相同的值，即兩個(gè)表都必須是本地的或者是可復(fù)制的。如果兩個(gè)表的keepLocal屬性設(shè)置不一樣，則轉(zhuǎn)換將會(huì)失敗。但是應(yīng)注意，不能在關(guān)系有效時(shí)設(shè)置keepLocal屬性，也就是說(shuō)，在設(shè)置屬性之前，應(yīng)先刪除兩個(gè)表之間的關(guān)系，在設(shè)置好KeepLocal屬性之后再恢復(fù)兩個(gè)表之間的關(guān)系，然后繼續(xù)進(jìn)行數(shù)據(jù)庫(kù)轉(zhuǎn)換。

如果正在設(shè)置KeepLocal屬性的對(duì)象已經(jīng)從其它對(duì)象中繼承了該屬性，則由其它對(duì)象設(shè)置的值對(duì)保留為本地對(duì)象的操作沒(méi)有影響，必須直接為每個(gè)對(duì)象設(shè)置keepLocal屬性。->

上一篇：復(fù)本操作的對(duì)象、屬性和方法(3)--網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的復(fù)制和同步（4）

下一篇：復(fù)制數(shù)據(jù)庫(kù)(2)--網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的復(fù)制和同步（6）