Método 1: use el método createTableFef
El método CreateTableFef crea una tabla de enlaces. Para usar este método, cree un nuevo módulo y luego agregue la siguiente función AttachDSNlessTable al nuevo módulo.
La copia del código es la siguiente:
'// Nombre: Adjunto a IncleStable
'// Propósito: CreateAlinkedtabletosqlServerwithoutusingAdsn
'// Parámetros
'// stlocaltableName: nombre de thetableThatiateourEcting InthecurrentDatabase
'// stremotetableName: nombre de thetable que está vinculando a la base de datos de SQL Server
'// stserver: nombre del servidor SQL que se debe a
'// stdatabase: nombre de la base de datos de SQL Server que está vinculando a
'// stusername: nombre del usuario del servidor SQL Whocan Connect al servidor SQL, dejablank touseAtrustedConnection
'// stpassword: sqlserveruserpassword
FunctionAtTachdsNlessTable (stlocaltableNameString, stremotetableNameString, stserverString, stdatabaseAsString, opcionalstusernameString, opcionalstpasswordenstring)
Onerrorgotoattachdsnlesstable_err
DimTDastableFef
Dimstconnectastring
ForeachtDinCurrentDB.tableFs
Iftd.name = stlocaltablenamethen
CurrentDb.tablef.deletestLocaltableName
Endif
Próximo
Iflen (stusername) = 0then
'// USETTrusted AuthenticationIfStuserNameIsnotsUpplied.
stconnect = "odbc; controlador = sqlserver; server =" & stserver & "; database =" & stdatabase & "; confianza_connection = sí"
Demás
'// ADVERTENCIA: esto Willssave TheUsername y ThePassword con la información de THELINKEDTABLE.