-

来自「介绍了数据库方面的基础知识」· 代码 · 共 87 行

作者：Sure160
email: [e-mail]
日期：2001-7-18 14:41:27
3．构造设计原版

　　设计原版也是一个数据库复本，但它是一个可以复制的复本。为了把一个数据库变为设计原版，需要为Database对象建立Rep1icab1e属性，并把该属性添加到Database对象的属性集合中，然后将其Replicab1e属性设置为“T”。

　　【例】编写一个Function过程，把指定的数据库变为设计原版。

　　过程如下：

　　Public Function SetReplicable（strDB As String）As integer

　　　Dim prpReplicable As Property

　　　Dim dbsTarget As Database

　　　n Error GoTo ErrorHandler

　　　Set dbsTarget = OpenDatabase(strDB,True)

　　　‘若属性已存在，则关闭错误处理

　　On Error Resume Next

　　　' 创建Replicable 属性 

　　　Set prpReplicable =dbsTarget.Createproperty( "Replicable", dbText, ''T'`)

　　　'把该属性添加到属性集合中

　　　dbsTarget.Properties.Append prpReplicable

　　　'把该属性设置为"T"

　　　dbsTarget.PrOperties("Replicable")= ''T''

　　　SetReplicable = 0

　ErrorHandler:

　　　Select Case Err

　　　　Case 0

　　　　　SetReplicable = 0

　　　　　Exit Function

　　　　Case Else

　　　　　MsgBox "Error" & Err ":" & Error

　　　　　SetReplicable = -1

　　　　　Exit Function

　　　　End Select

　　nd Function

上述过程把指定的数据库转换为设计原版。如果Rep1icab1e属性不存在，则建立该属性，井把它设置为指定的值。

　　为了调用上述过程，可以在窗体上画一个命令按钮，然后编写如下的事件过程：

　　Private Sub Conunandl_Click()

　　　Dim MyDB As Database

　　　Dim a As integer

　　　a = SetReplicable(''c:\dbdir\dbl .mdb``)

　　　If a = 0 Then

　　　　MsgBox "成功设置Replicable 属性"

　　　Else

　　　　MsgBox "设置失败"

　　　End if

　　end sub

运行程序，单击命令按钮，将调用SetReplicable过程，为指定的数据库添加和设置Replicab1e属性，并根据执行情况显示相应的信息。在转换进程中，Microsoft Jet将维持原始数据库的所有属性设置值。