关于两个有密码的数据库之间的数据倒入！

nousen

我有两个access数据库A和B，A里有表A01，B里有表B01，表结构一样。。数据库A和B都有密码，密码也都一样！

下面的语句是在数据库A里执行！

INSERT INTO B01 IN "D:\B.mdb"  SELECT *  FROM A01

执行时弹出警告“密码无效”！

在网上搜索半天，未得到解决方法！望路过的高手指点一二！

Grant

先用带密码的set语句打开需要密码的数据库，然后再用DoCmd.TransferDatabase来导出就不会跳出输入密码的对话框了。

以下是示例语句：
Dim dbs As Object
Set dbs = DBEngine.Workspaces(0).OpenDatabase("e:\customer\BaseTplt.mdb", _
False, False, ";pwd=LuckStar")
DoCmd.TransferDatabase acImport, "Microsoft Access", "e:\customer\BaseTplt.mdb", _
acTable, "仓库", "cBc", False

注1："e:\customer\BaseTplt.mdb"是带密码的数据库完整路径
注2：";pwd=LuckStar"中的LuckStar表示该数据库的密码

wwwwa

用查询即可

nousen

Grant:


Docmd 是从那里调用出来的?