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
|