Metode 1: Gunakan metode CreateTableDef
Metode CreateTableDef membuat tabel tautan. Untuk menggunakan metode ini, buat modul baru, dan kemudian tambahkan fungsi lampiran yang dapat diisi ke modul baru.
Salinan kode adalah sebagai berikut:
'// Nama: lampiran yang tidak dapat dilihat
'// Tujuan: CreateLinkedTableToSQLServerwithoutusingadsn
'// Parameter
'// stlocaltableName: nama thetableThatyourecreating inthecurrentDatabase
'// stremotetableName: nama thetable yang Anda tautkan toon sql server database
'// Stserver: Nama SQL Server yang Anda lakukan
'// stdatabase: nama database SQL Server yang Anda tautkan
'// Stusername: Nama pengguna SQL Server WHOCAN CONNECT ke SQL Server, Leaverblank TouseAtRustedConnection
'// Stpassword: SQLServerUserPassword
Functiontachdsnlesstable (stlocaltableNeMeasString, stremotetableNeMeAsstring, stserversstring, stdatabaseasstring, opsionalstuserneasstring, opsionalstpasswordasstring)
OnerrorgotoattachdsnlessTable_err
DIMTDASTABLEDEF
DimstConnectAstring
Foreachtdincurrentdb.tableDefs
Iftd.name = stlocaltablenamethen
Currentdb.tableDefs.deletestlocaltableName
Endif
Berikutnya
Iflen (stusername) = 0then
'// useTtrusted authenticationIfstusernameisnotsupplied.
stconnect = "odbc; driver = sqlserver; server =" & stserver & "; database =" & stdatabase & "; trusted_connection = ya"
Kalau tidak
'// PERINGATAN: Ini WillSave Theusername dan Thepassword dengan informasi yang dapat ditukarkan.