| 将下列代码粘贴到一个新模块中，并通过使用adoLinkTable函数来实现。
'=======================================================================
' 函 数：adoLinkTable(strMdbPath, strPWD, strLinkName, strTblName)
' 参数说明：strMdbPath 为要链接的数据库的路径
' strPWD 为打开数据库的密码
' strLinkName 为链接表名称
' strTblName 为链接的表的名称
' 返 回：True 成功，False 失败
' 调用举例：
' OK = adoLinkTable("c:\123.mdb", "123", "订单", "订单")
' 作者：朱亦文
' 日期：2002.11.21
'=======================================================================
Public Function adoLinkTable(ByVal strMdbPath As String, _
ByVal strPWD As String, _
ByVal strLinkName As String, _
ByVal strTblName As String) As Boolean
On Error Resume Goto errh
Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = CurrentProject.Connection
' 建立一个新的表对象
Set tblLink = New ADOX.Table
With tblLink
' 链接表名称
.Name = strLinkName
Set .ParentCatalog = catDB
.Properties("Jet OLEDB:Create Link") = True
' 数据库的路径和名称
.Properties("Jet OLEDB:Link Datasource") = strMdbPath
' 提供者及密码
.Properties("Jet OLEDB:Link Provider String") = "MS Access;PWD=" & strPWD & ";"
' 原数据库中的表
.Properties("Jet OLEDB:Remote Table Name") = strTblName
End With
catDB.Tables.Append tblLink ' 添加到库中
Set tblLink = Nothing
adoLinkTable = True
Exit Function
errh:
adoLinkTable = False
End Function |
注：在VBA编辑器中引用"Microsoft ADO Ext. 2.5 for DDL and Security"以及"Microsoft ActiveX Data Objects 2.1/2.5/2.6/2.7 Library"
| 
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 