| Sub ADOCreateAttachedODBCTable() Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table ' Open the catalog cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\NorthWind.mdb;" ' Set the name and target catalog for the table tbl.Name = "Titles" Set tbl.ParentCatalog = cat ' Set the properties to create the link tbl.Properties("Jet OLEDB:Create Link") = True tbl.Properties("Jet OLEDB:Link Provider String") = "ODBC;DSN=ADOPubs;UID=sa;PWD=;" tbl.Properties("Jet OLEDB:Remote Table Name") = "titles" ' Append the table to the collection cat.Tables.Append tbl Set cat = Nothing End Sub |
Table, Create Attached ODBC |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design