Método 1: Use o método CreateTableDef
O método CreateTableDef cria uma tabela de link. Para usar esse método, crie um novo módulo e adicione a seguinte função AnexdSnLeStable ao novo módulo.
A cópia do código é a seguinte:
'// Nome: Anexddsnlesstable
'// Objetivo: CreateAlinkedTableToSqlServerWithoutUsingadsn
'// parâmetros
'// stlocaltableName: nome do theTableThatyoureCreating inThecurrentDatabase
'// StrotetableName: Nome do TheTable que você está vinculando o banco de dados do SQL Server
'// STSERVER: Nome do servidor SQL que você pode ser
'// stdatabase: nome do banco de dados do SQL Server para o qual você está vinculando
'// STUSERNAME: Nome do usuário do servidor SQL Whocan Connect ao SQL Server, LEAVERGUNDO TUSOTSUSTEDCONNENCIONE
'// STPassword: SQLSERVERUSERPASSWORD
FunctionAtTachdsnlesstable (stlocaltablenameasString, stremotetablenameasstring, sterServerrasstring, stdatabaseasstring, opcionalstusenstring, opcionalstpasswordasstring)
OnErrorgotoattachdsnlesstable_err
DimtDastableDef
Dimstconnectasstring
Foreachtdincurrentdb.tableDefs
Iftd.name = stlocaltablenamen
CurrentDB.TableDefs.deletestlocaltableName
Endif
Próximo
Iflen (STUSERNAME) = 0then
'// Usettrusted AuthenticationEfstUserNameisnotsuplied.
stconnect = "ODBC; driver = sqlServer; server =" & stServer & "; database =" & stdatabase & "; trusted_connection = sim"
Outro
'// AVISO: Este WillSave theUsername e ThePassword com informações da theLinkedTable.