الطريقة 1: استخدم طريقة CreateTableDef
تقوم طريقة CreateTableDef بإنشاء جدول ارتباط. لاستخدام هذه الطريقة ، قم بإنشاء وحدة نمطية جديدة ، ثم إضافة وظيفة excledsnlesstable التالية إلى الوحدة النمطية الجديدة.
نسخة الكود كما يلي:
'// الاسم: excendsnlesstable
'// الغرض: CreateAlinkedTableToSqlServerWithoutusingAdsn
'//حدود
'// stlocaltablename: اسم thetableThatyourecreating intheCurrentDatabase
'// stremotetablename: اسم thetable أنك تربط toon قاعدة بيانات SQL Server
'// stserver: اسم خادم SQL الذي youarelinkingTO
'// stdatabase: اسم قاعدة بيانات SQL Server التي تربطها
'// stusername: اسم مستخدم SQL Server Whocan الاتصال بخادم SQL ، Leadblank TouseAtrustedConnection
'// stpassword: sqlserveruserpassword
functionattachdsnlesstable (stlocaltablenameasstring ، stremotetablenameasstring ، stserverasstring ، stdatabaseasstring ، اختياري stusernameasstring ، اختياري passwordasstring)
onerrorgotoattachdsnlesstable_err
dimtdastablefef
DimStConnectAssTring
foreachtdincurrentdb.tabledefs
iftd.name = stlocaltablenamethen
CurrentDB.Tabledefs.deletestlocaltablename
Endif
التالي
iflen (stusername) = 0then
'// USETTrustedIcticationifstuserNameIsNotsupplied.
stconnect = "odbc ؛ driver = sqlserver ؛ server =" & stserver & "؛ database =" & stdatabase & "؛ trusted_connection = yes"
آخر
'// تحذير: هذا willsave theusername و thepassword مع معلومات thelinkedTable.