在EXCEL中怎么把A数据库a表里的数据 插入到 B数据库b表 里？

lichangjun2012

我有2个Access数据库，A数据库a表 和 B数据库b表 的结构完全相同，并且都在同一文件夹

我希望把a表的所有数据全部追加到b表里去，求一句sql代码

Dim cnnstr As String
cnnstr= "Provider=Microsoft.ACE.OLEDB.12.0;data Source=\\192.168.0.100\共享\数据库\B.accdb;Jet OLEDB:Database Password=123456"
Dim sql as String
Dim cnn As New ADODB.Connection

后面不会写了，求帮助！

linyh1742595842

弄过附件上来

lichangjun2012

linyh1742595842 发表于 2017-7-14 15:05
弄过附件上来

没有附件啊，还在构思中！ 两个表字段完全一样，前面的代码已写出了文件的位置，只求一个 insert into 语句

linyh1742595842

lichangjun2012 发表于 2017-7-14 20:38
没有附件啊，还在构思中！ 两个表字段完全一样，前面的代码已写出了文件的位置，只求一个 insert into 语 ...

CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\数据库b.mdb].[数据库b表] select * FROM 数据库a表"

lichangjun2012

linyh1742595842 发表于 2017-7-15 07:49
CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\数据库b.mdb].[数据库b ...

非常感谢你的回答，我把代码在EXCEL里面做了个测试，已经能成功的从 局域网中 提取数据到本机数据库了！

1. 
   
2. Sub 测试()
   
3. 
   
4. Dim cnn As New ADODB.Connection
   
5.   Dim sql As String
   
6. 
   
7.   cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data Source=\\192.168.0.150\共享\系统数据.accdb;Jet OLEDB:Database Password=123456"
   
8. 
   
9.   sql = "insert into [" & ThisWorkbook.Path & "\收银数据.accdb].[商品资料] select * from 商品资料"
   
10. 
    
11. cnn.Execute sql
    
12. 
    
13.   cnn.Close: Set cnn = Nothing
    
14. 
    
15. End Sub

复制代码

现在有2个问题需要请教一下，盼回复：

1.本机数据库 [" & ThisWorkbook.Path & "\收银数据.accdb] 有密码123456，上面的代码是我把数据库密码取消后才成功执行的

如果要添加密码，那个密码应该写在上面地方啊？？？

2.如果我要反向操作呢？就是把本机 [收银数据.accdb].[商品资料] 全部 insert 到 \\192.168.0.150\共享\系统数据.accdb 的[商品资料] 去，代码又该怎么

改呢？求指点

linyh1742595842

lichangjun2012 发表于 2017-7-15 11:54
非常感谢你的回答，我把代码在EXCEL里面做了个测试，已经能成功的从 局域网中 提取数据到本机数据库了！
...

打开数据再操作
rs.Open SQL, cnn, adOpenStatic, adLockOptimistic

lichangjun2012

linyh1742595842 发表于 2017-7-15 12:20
打开数据再操作
rs.Open SQL, cnn, adOpenStatic, adLockOptimistic

能具体点吗？我了解的太少了！！！非常感谢

linyh1742595842

lichangjun2012 发表于 2017-7-15 12:28
能具体点吗？我了解的太少了！！！非常感谢

就是把你要操作的数据打开，打开时可以写入密码，操作完了再关闭

lichangjun2012

linyh1742595842 发表于 2017-7-15 12:30
就是把你要操作的数据打开，打开时可以写入密码，操作完了再关闭

前面已经打开 \\192.168.0.150上的那个数据库了
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data Source=\\192.168.0.150\共享\系统数据.accdb;Jet OLEDB:Database Password=123456"

实在不知道怎么再打开本地的那一个，所以希望您帮我在上面代码的基础上完善一下，谢了！！！

linyh1742595842

lichangjun2012 发表于 2017-7-15 12:40
前面已经打开 \\192.168.0.150上的那个数据库了
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data Sou ...

你第一个怎么打开的，第二个一样的打开