Office中国论坛/Access中国论坛

标题: [求助]关于TransferDatabase链接带密码数据库?好像在论坛里一直都没有解决 [打印本页]

作者: 爱情插班生 时间: 2006-8-3 16:46
标题: [求助]关于TransferDatabase链接带密码数据库?好像在论坛里一直都没有解决
DoCmd.TransferDatabase acLink, "Microsoft Access"....此语句要链接带密码的数据库,如何实现? (每次都要手动输入密码...)
此问题好像在论坛里一直都没有解决...
不会真没有办法吧?各位版主?
[em02][em02][em02]

[此贴子已经被作者于2006-8-3 8:47:42编辑过]

作者: wwwwa 时间: 2006-8-3 16:58
如只是导入表的话，用JET SQL即可,

select * from [;database=d:\temp\123.mdb;pwd=123].rr

作者: 爱情插班生 时间: 2006-8-3 18:25
嘿,老兄,请看准我的问题再问答...是链接表方式[em42][em42][em42]

作者: wwwwa 时间: 2006-8-3 18:43

以下是引用爱情插班生在2006-8-3 10:25:00的发言：
嘿,老兄,请看准我的问题再问答...是链接表方式[em42][em42][em42]

1、我是指如果；

2、直接用这种方式(docmd.TransferDatabase....)，是不能加入密码的；

3、可以用代码生成链接表(adox)。

[此贴子已经被作者于2006-8-3 10:55:48编辑过]

作者: andymark 时间: 2006-8-3 18:48
TransferDatabase的几个参数都可以用这个方式操作带密码的数据库

Dim db As Database
Dim strPath As String

strPath = "d:\db19.mdb"

Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, "MS Access

WD=123")

DoCmd.TransferDatabase acLink, "Microsoft Access", strPath, acTable, "Gy_Czygl", "Gy_Czygl", False

db.Close
Set db = Nothing

http://www.office-cn.net/forum.php?mod=viewthread&tid=43463&replyID=23173&skin=1

[此贴子已经被作者于2006-8-3 10:54:52编辑过]

作者: 爱情插班生 时间: 2006-8-3 19:54
哦...谢谢了...[em02][em02][em02]

作者: wwwwa 时间: 2006-8-4 18:31
or

Set db = CurrentDb

ConnectString = ";database=d:\temp\123.mdb;pwd=123"
Set tdf = CurrentDb.CreateTableDef("newtable", 0, "oldtable", ConnectString)
db.TableDefs.Append tdf
db.TableDefs.Refresh

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)