Linking to an External Table : Database Link « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Link

Linking to an External Table

 
Sub LinkToAccessTableProps()
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table

    Set cat = New ADOX.Catalog

    cat.ActiveConnection = CurrentProject.Connection

    Set tbl = New ADOX.Table

    tbl.Name = "tblLinkedTable"

    Set tbl.ParentCatalog = cat

    tbl.Properties("Jet OLEDB:Create Link") = True
    tbl.Properties("Jet OLEDB:Link Datasource") = _
        CurrentProject.Path & "\Data.accdb"
    tbl.Properties("Jet OLEDB:Link Provider String") = ";pwd=password"
    tbl.Properties("Jet OLEDB:Remote Table Name") = "tblClients"

    cat.Tables.Append tbl
End Sub

 

Related examples in the same category