如何用代码链接带有密码的数据库中的表

将下列代码粘贴到一个新模块中，并通过使用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"

(DAO_链接表_ODBC-相关文章技巧链接)：
Access使用ADOX刷新链接表的函数

(DAO_链接表_ODBC-相关文章技巧链接)：
获取Access所有链接表的名称

发布人:朱亦文-access faq

分享到：

点击次数：更新时间：2008-10-21 16:17:25 【打印此页】【关闭】

上一条：Access处理加了密码的MDB数据库文件下一条：使用SQL DDL创建、删除表和关系

技巧

热门文章

最新文章

联系方式

当前位置：首页 > 技巧 > ACCESS数据库 ACCESS数据库

如何用代码链接带有密码的数据库中的表

相关文章

热门文章

热门产品

当前位置：首页 > 技巧 > ACCESS数据库
ACCESS数据库