Линковка таблиц

Сталкер
Дата: 13.09.2005 15:47:25
Всем доброго дня. Мне нужна ваша помощь. У меня такая проблема. Мне нужно програмно , а точнее средствами ADO прилинковать таблицы которые находятся в MS SQL Server 200. Буду рад любой помощи.
Тяп-ляп
Дата: 13.09.2005 16:12:25
здесь1
здесь2
здесь3

и прочий поиск по слову connect
Shuhard
Дата: 13.09.2005 22:07:00
Тяп-ляп
здесь1
здесь2
здесь3

и прочий поиск по слову connect

1 дык везде DAO(TableDefs), автор хотел ADO
2 через ADOX примерно так:
Public Function XTblReLink(MyCat As Object, tblName As String, MyPath As String, ExtTable As String)
' переподключение Link таблицы tblName путём удаления MyPath - путь на mdb + ExtTable - имя таблицы внутри mdb
Dim Mytable As ADOX.Table
On Error Resume Next
MyCat.Tables.Delete tblName
Set Mytable = New ADOX.Table
Mytable.ParentCatalog = MyCat
Mytable.Name = tblName
Mytable.Properties("Jet OLEDB:Link Datasource") = MyPath
Mytable.Properties("Jet OLEDB:Remote Table Name") = ExtTable
Mytable.Properties("Jet OLEDB:Create Link") = True
'MyTable.Properties("Temporary Table") = False
MyCat.Tables.Append Mytable
Set Mytable = Nothing
End Function