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

爱情插班生

DoCmd.TransferDatabase acLink, "Microsoft Access"....此语句要链接带密码的数据库,如何实现? (每次都要手动输入密码...)
此问题好像在论坛里一直都没有解决...
不会真没有办法吧?各位版主?
[em02][em02][em02]

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

wwwwa

如只是导入表的话，用JET SQL即可,

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

爱情插班生

嘿,老兄,请看准我的问题再问答...是链接表方式[em42][em42][em42]

wwwwa

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

1、我是指如果；

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

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

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

andymark

  TransferDatabase的几个参数都可以用这个方式操作带密码的数据库

    Dim db As Database
      Dim strPath As String

    strPath = "d:\db19.mdb"

    Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, "MS AccessWD=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编辑过]

爱情插班生

哦...谢谢了...[em02][em02][em02]

wwwwa

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