求助：access表数据写入另一个access的表

access新新新手

有1、access数据库（数据库名：数据库a ，表名：数据库a表）
有2、access数据库（数据库名：数据库b ，表名：数据库b表）
数据库在同一路径下，数据库字段完全相同（公司名、公司名简称、日期）
请问如何把数据库a中的数据库a表中的数据写入数据库b中的数据库b表中

tmtony

1。insert into b (select * from a in c:\a文件路径)
试试这种看看
2。 使用ADO 可连多个数据库，只要指定路径

purplerose

insert into [C:\另一个access数据库.mdb].一张表中
select [C:\数据库.mdb].一张表
where ......     大概是这个意思，不妨您试一下好吗！

access新新新手

tmtony 发表于 2016-3-4 09:10
1。insert into b (select * from a in c:\a文件路径)
试试这种看看
2。 使用ADO 可连多个数据库，只要指 ...

谢谢老大。

access新新新手

purplerose 发表于 2016-3-4 09:25
insert into [C:\另一个access数据库.mdb].一张表中
select [C:\数据库.mdb].一张表
where ......      ...

谢谢关注。

roych

1. Sub test1()
   
2.     Dim rst1 As New ADODB.Recordset
   
3.     Dim cnn2 As New ADODB.Connection
   
4.     Dim rst2 As New ADODB.Recordset
   
5.     Dim i As Long
   
6.    
   
7.     '如果不是在Access里执行，请将CurrentProject.Connection改为正确的连接字符串，具体请参考cnn2的的写法
   
8.     rst1.Open "数据库a表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
9.     cnn2.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & CurrentProject.Path & "\数据库b.mdb"
   
10.     rst2.Open "数据库b表", cnn2, adOpenKeyset, adLockOptimistic
    
11.     Do Until rst1.EOF
    
12.         rst2.AddNew
    
13.         For i = 0 To rst1.Fields.Count - 1
    
14.             rst2(i) = rst1(i)
    
15.         Next
    
16.         rst2.Update
    
17.         rst1.MoveNext
    
18.     Loop
    
19.     rst2.Close
    
20.     rst1.Close
    
21. End Sub
    
22. 
    
23. Sub test2()
    
24. '简单点的写法
    
25.     CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\数据库b.mdb].[数据库b表] select * FROM 数据库a表"
    
26. End Sub
    

复制代码

关于方法2，从理论上讲，对于数据库a表，是不需要使用绝对路径的。但手头上没有VB，暂时无法调试。

access新新新手

roych 发表于 2016-3-4 11:47
关于方法2，从理论上讲，对于数据库a表，是不需要使用绝对路径的。但手头上没有VB，暂时无法调试。

谢谢版主，在access中可以实现。

access新新新手

roych 发表于 2016-3-4 11:47
关于方法2，从理论上讲，对于数据库a表，是不需要使用绝对路径的。但手头上没有VB，暂时无法调试。

谢谢版主，在vb中可以实现了代码如下
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cnn1 As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Sub OpenCNN()
    Stpath = App.Path & "\数据库a.mdb"       '连接当前路径数据库
    cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ""
    Stpath1 = App.Path & "\数据库b.mdb"       '连接当前路径数据库
    cnn1.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath1 & ""
End Sub
Sub main()
    On Error Resume Next
    Call OpenCNN
    SQL = "select * from 数据库a表"
    rs.Open SQL, cnn, adOpenStatic, adLockOptimistic
    SQL1 = "select * from 数据库b表"
    rs1.Open SQL1, cnn1, adOpenStatic, adLockOptimistic
    Do Until rs.EOF
        rs1.AddNew
        For i = 0 To rs.Fields.Count - 1
            rs1(i) = rs(i)
        Next
        rs1.Update
        rs.MoveNext
    Loop
    rs.Close '关闭记录集
    Set rs = Nothing '销毁数据库连接对象
    rs1.Close '关闭记录集
    Set rs1 = Nothing '销毁数据库连接对象
End Sub

midmemory

强悍的VBA运用啊，VBA——我的弱项啊...

access新新新手

roych 发表于 2016-3-4 11:47
关于方法2，从理论上讲，对于数据库a表，是不需要使用绝对路径的。但手头上没有VB，暂时无法调试。

再请教版主一个问题，您的代码前面的行号是怎么显示出来的。