超简单问题，合并数据表，100分酬谢

Question

我知道，对于两个结构一模一样的数据库合并其中一个表可以用下面的代码
Public db1 As DAO.Database
Private Sub Command1_Click()
Set db1 = DAO.DBEngine.OpenDatabase(App.Path + "\db001.mdb", False, 
db1.Execute "insert into b1 in '" & App.Path & "\db002.mdb '" & "select * from b1"
end sub
但是如果两个数据库都有密码为“123456”，那么上面的代码怎样改写（把密码家在哪，主要指最后一句“db1.execute...”），100分求助，急用，谢谢！

Answer 1

http://www.china-askpro.com/msg9/qa30.shtml

Answer 2

Set db1= Workspaces(0).OpenDatabase(App.Path & "\db001.mdb", False, False, "MS Access;PWD=密码")

Answer 3

用ado连接两个库
然后就随便倒了！
从一个表取记录插入另一个表！
例子：
Public gCn As New ADODB.Connection
With gCn
        .CommandTimeout = 0
        .ConnectionTimeout = 100
        .ConnectionString = "provider=sqloledb;database=表;Driver={SQL SERVER};server=服务器;uid=用户;pwd=密码"
        .CursorLocation = adUseClient
        .Open
End With

Answer 4

也可以用ado来实现，如：
 Dim cn As New ADODB.Connection
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db002.mdb;Persist Security Info=False;Jet OLEDB:Database Password=2"
 cn.Execute "insert into b1 select * from " + "[;database=D:\db001.mdb;pwd=1].b1"
 cn.Close
 Set cn = Nothing

Answer 5

不是 ado是DAO，也没有用Adodb。
如果没有密码
Public db1 As DAO.Database
Private Sub Command1_Click()
Set db1 = DAO.DBEngine.OpenDatabase(App.Path + "\db001.mdb", False, 
db1.Execute "insert into b1 in '" & App.Path & "\db002.mdb '" & "select * from b1"
end sub
是完全可以的，如果两个都有密码
Public db1 As DAO.Database
Private Sub Command1_Click()
Set db1 = DAO.DBEngine.OpenDatabase(App.Path + "\db001.mdb", False, false, ";pwd=xxxx")
db1.Execute "insert into b1 in '" & App.Path & "\db002.mdb '" & "select * from b1 ;pwd=xxxx"
end sub
无法执行，恳请高手具体些改一下，不胜感激！

Answer 6

dao一样的呀，如：
Dim db1 As DAO.Database
Set db1 = DAO.DBEngine.OpenDatabase(App.Path & "\db002.mdb, True, False, ";pwd=2")
db1.Execute "insert into b1 select * from [;database=" & App.Path & "\db001.mdb;pwd=1].b1"
db1.Close
Set db1 = Nothing

Answer 7

不好意思，写反了,应该：dao一样的呀，如：
Dim db1 As DAO.Database
Set db1 = DAO.DBEngine.OpenDatabase(App.Path & "\db001.mdb, True, False, ";pwd=1")
db1.Execute "insert into b1 select * from [;database=" & App.Path & "\db002.mdb;pwd=2].b1"
db1.Close
Set db1 = Nothing