请教：如何使用ADOX刷新链接表

zyz

Public Sub RefreshLinkedExternalTable(strTargetDB As String, strProviderString As String, strSourceTbl As String, strLinkTblName As String)
　　
　　' strTargetDB: 被链接的数据库路径名
　　' strProviderString: 连接字符串
　　' strSourceTbl: 被链接的源表名称
　　' strLinkTblName: 要重设链接的链接表的名称
　　
　　Dim catDB　 As ADOX.Catalog
　　Dim tblLink As ADOX.Table
　　Dim i As Integer

　　Set catDB = New ADOX.Catalog
　　catDB.ActiveConnection = CurrentProject.Connection
　　
　　Set tblLink = catDB.Tables(strLinkTblName)
　　
　　With tblLink
　　　　.Properties("Jet OLEDB:Create Link") = True
　　　　.Properties("Jet OLEDBink Datasource") = strTargetDB
　　　　.Properties("Jet OLEDBink Provider String") = strProviderString
　　　　.Properties("Jet OLEDB:Remote Table Name") = strSourceTbl
　　End With
　　　　
　　Set catDB = Nothing

End Sub

但是在
　　　　.Properties("Jet OLEDB:Create Link") = True
　　　　.Properties("Jet OLEDB:Remote Table Name") = strSourceTbl
报错！

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

明莱

好像用DAO刷新更方便吧！

zyz

已通過的代碼：

Public Sub NewLinkedExternalTableMdb()
   
    ' strTargetDB: 被链接的数据库路径名
    ' strProviderString: 连接字符串
    ' strSourceTbl: 被链接的源表名称
    ' strLinkTblName: 要重设链接的链接表的名称
    ' 作者：朱亦文

    Dim strTargetDB() As String
    Dim strProviderString() As String
    Dim strSourceTbl() As String
    Dim strLinkTblName() As String
   
    Dim catDB   As ADOX.Catalog
    Dim tblLink As ADOX.Table
    Dim tmpLink As ADOX.Table
   
    Dim i As Integer
    Dim j As Integer

    Set catDB = New ADOX.Catalog
    catDB.ActiveConnection = CurrentProject.Connection
   
    i = catDB.Tables.Count
   
    ReDim strTargetDB(i)
    ReDim strProviderString(i)
    ReDim strSourceTbl(i)
    ReDim strLinkTblName(i)
   
    i = 1
   
    For Each tmpLink In catDB.Tables
        
        If tmpLink.Properties("Jet OLEDB:Create Link") Then
            If Trim(tmpLink.Properties("Jet OLEDB:Remote Table Name")) <> "" Then
            
                Debug.Print tmpLink.Name & " |  " & tmpLink.Properties("Jet OLEDB:Remote Table Name")
               
                strLinkTblName(i) = tmpLink.Name
                strTargetDB(i) = tmpLink.Properties("Jet OLEDBink Datasource")
                strProviderString(i) = tmpLink.Properties("Jet OLEDBink Provider String")
                strSourceTbl(i) = tmpLink.Properties("Jet OLEDB:Remote Table Name")
               
                Do While InStr(1, strTargetDB(i), "\") <> 0
                    strTargetDB(i) = Mid(strTargetDB(i), InStr(1, strTargetDB(i), "\") + 1, Len(strTargetDB(i)))
                Loop
               
                strTargetDB(i) = CurrentProject.Path & "\" & strTargetDB(i)
               
                i = i + 1
            End If
        End If
   
    Next
   
    j = i - 1
   
    For i = 1 To j
        catDB.Tables.Delete strLinkTblName(i)
            
        Set tblLink = New ADOX.Table
            
        With tblLink
            .Name = strLinkTblName(i)
            Set .ParentCatalog = catDB
               
            .Properties("Jet OLEDB:Create Link") = True
            .Properties("Jet OLEDBink Datasource") = strTargetDB(i)
            .Properties("Jet OLEDB:Link Provider String") = strProviderString(i)
            .Properties("Jet OLEDB:Remote Table Name") = strSourceTbl(i)
        End With
               
        catDB.Tables.Append tblLink
        Set tblLink = Nothing
    Next
    Set catDB = Nothing

End Sub
[em26]

fanren

如果后台数据库有密码怎样连?