示例文件下载![]() For Each tbl In db.TableDefs If tbl.Attributes = dbAttachedTable Then tbl.Connect = "ms access;PWD=456;DATABASE=" & CurrentProject.Path & "\data\b.mdb" tbl.RefreshLink End If access动态链接数据库表,通过遍历表,可以手动选择需要链接哪个数据库。 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-2 12:59 , Processed in 0.109503 second(s), 24 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.