Метод 1: Используйте метод CreateLetableDef
Метод CreateTableDEF создает таблицу ссылок. Чтобы использовать этот метод, создайте новый модуль, а затем добавьте следующую функцию AttachDsnlessTable в новый модуль.
Кода -копия выглядит следующим образом:
'// name: atchatdsnlesstable
'// Цель: VEREALINKEDTABLETOSQLSERVERWITHOUTUSINGADSN
'// Параметры
'// stlocaltablename: имя TheTableThatyoureeCreating inTheCurrentDatabase
'// stremotetablename: Имя Thetable, которое вы связываете, база данных SQL Server
'// stserver: Имя SQL Server, что YouarelingTo
'// stdatabase: имя базы данных SQL Server, на которую вы ссылаетесь
'// Stusername: Имя пользователя SQL Server подключится к SQL Server, LeaveBlank TouseAtrustedConnection
'// Stpassword: SQLServerUserPassword
FunctionAttachdsnlesstable (StlocaltablenameasString, StremotetablenameasString, Stserverasstring, StdatabaseasString, OptionalStusErnameAsString, OptionAlStPassWordAsstring)
OnerRorROTOatTachdSnlessTable_err
Dimtdastabledef
DimStConnectAssTring
Foreachtdincurrentdb.tabledefs
Iftd.name = stlocaltablenamethen
Currentdb.tabledefs.deletestlocaltablename
Эндиф
Следующий
Iflen (stusername) = 0then
'// usetTrusted AuthenticationifstuserNamisNotsUppled.
stconnect = "odbc; driver = sqlserver; server =" & stserver & "; database =" & stdatabase & "; trusted_connection = yes"
Еще
'// ВНИМАНИЕ: это будет считать Theusername и ThePassword с информацией ThelinkedTable.