Méthode 1: Utilisez la méthode CreateTabledEF
La méthode CreateTabledEF crée une table de liens. Pour utiliser cette méthode, créez un nouveau module, puis ajoutez la fonction attachdSnlessTable suivante au nouveau module.
La copie de code est la suivante:
'// Nom: attachDsnlessTable
'// Objectif: CreateAreLinkEdTableTosqlServerwithoutUsingAdsn
'// paramètres
'// stlocaltablename: nom de la réécréation de la thèse
'// StremoteTableName: Nom de TheTable que vous liez la base de données SQL Server
'// STSERVER: Nom du serveur SQL que Youarelinkto
'// stdatabase: nom de la base de données SQL Server à laquelle vous liez
'// Stunername: nom de l'utilisateur SQL Server Whocan se connecter à SQL Server, LeaveBlank TouseatRuTedConnection
'// stpassword: sqlserverUserPassword
FunctionAtAchDSnlessTable (stlocaltablenameassstring, stremotetablenameassstring, stserverassstring, stdatabaseassstring, optionalsturnameSsString, optionalstpasswordassstring)
OnerrorgotoattachdsnlessTable_err
Dimtdastablef
Dimstconnectassstring
Foreachtdincurrentdb.teableds
Iftd.name = stlocaltablenamethen
Currentdb.teableds.deleTestLocalTableName
Endire
Suivant
Iflen (stunername) = 0Then
'// UsetTrust AuthenticationIfSUSERNAMEISNOTSUPLIED.
stconnect = "odbc; driver = sqlServer; server =" & stserver & "; database =" & stdatabase & "; trust_connection = oui"
Autre
'// AVERTISSEMENT: Cela WillsAver theUserName et ThePassword avec TheLinkEdTable Informations.