ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 |
Set tdef = New DAO.TableDef
tdef.Name = strLinkedTableName
tdef.Connect = strConnect
tdef.SourceTableName = strSourceTableName
ایجاد شی در حافظه ی موقت
Set tdfRoyalties= dbsCurrent.CreateTableDef("Royalties")
ایجاد کانکشن
=tdfRoyalties.Connect
" ODBC;DATABASE=pubs;DSN=Publishers"
تنظیم منبع شی ایجادشده
" tdfRoyalties.SourceTableName ="roysched
اضافه کردن جدول از دیتابیس دیگربه دیتابیس جاری
dbsCurrent.TableDefs.Append tdfRoyalties
خالی کردن از حافظه ی موقت
Set tdfRoyalties=Nothing
مثال دیگر دیتابیس اکسس با پسورد
& tblDef.Connect = "MS Access;DATABASE=" & RemoteDbName
"PWD=YourPassword"
cnX = "ODBC;DRIVER=SQL Server;SERVER=" & vServer & ";DATABASE=" & vDatabase & ";UID=" & vUserName
PWD=" & vPassword;" &
CurrentDb.CreateTableDef(vLocalTable,dbAttachSavePWD, vRemoteTable, cnX
TableDef
Attributes