后台有密码如何建立链接表？代码该如何改动？

11123　发表于：2010-09-30 16:54:55 　

复制

你好，各位请教一个链接表的问题。下面的代码是后台数据库d:aaa.mdb没有密码的情况下建立的，如果后台数据库有密码，代码该如何改动才能建立链接表？？

Private Sub Command0_Click()
Dim Backstr As String
Backstr = "D:\aaa.mdb"

DoCmd.TransferDatabase acLink, "Microsoft Access", Backstr, acTable, "表1", "表1"

End Sub

Top

11123 发表于：2010-10-14 08:21:54

高手帮忙呀

Top

羽扇子君发表于：2010-10-14 09:30:00

设abc.mdb有表1,且密码为:123456,则代码如下:

Dim db As Database, Path As String
Path = "F:\abc.mdb"
Set oAcc = New Access.Application

    Set db = DBEngine.Workspaces(0).OpenDatabase(Path, False, False, ";PWD=123456")
    DoCmd.TransferDatabase acLink, "Microsoft Access", Path, acTable, "表1", "表1"
    db.Close
    Set db = Nothing

Top

羽扇子君发表于：2010-10-14 09:32:26

Set oAcc = New Access.Application

这句没有,忘删除啦.哈哈

Top

11123 发表于：2010-10-14 12:58:40

非常正确，高手就是高手，非常感谢

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

后台有密码如何建立链接表？代码该如何改动？