Creating a Link to an Access Table Stored in Another Database : Database Link « Access « VBA / Excel / Access / Word






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

Creating a Link to an Access Table Stored in Another Database

 
Sub LinkToAccess(strDBName As String, strTableName As String, _
   strAccessTable)
    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 = strAccessTable
    Set tbl.ParentCatalog = cat
    tbl.Properties("Jet OLEDB:Create Link") = True
    tbl.Properties("Jet OLEDB:Link Datasource") = strDBName
    tbl.Properties("Jet OLEDB:Link Provider String") = ";pwd=password"
    tbl.Properties("Jet OLEDB:Remote Table Name") = strTableName
    cat.Tables.Append tbl
End Sub








Related examples in the same category

1.Establishing a Link to an External Table
2.Linking to an External Table