如何将A数据库中的一张表复制到B数据库中？！

Question

如何将A数据库中的一张表完整的复制到B数据库中？！

Answer 1

Dim cn As ADODB.Connection
Dim Sql As String
Set cn = New ADODB.Connection
cn.Open "连接数据库A的字符串"1.如果数据库B中表已经存在
sql = "insert into [C:\B.mdb].[TableName] select * from [TableName]"
cn.Execute Sql
2.如果数据库B中表不存在
Sql = "SELECT * INTO [C:\B.mdb].[TableName] FROM [TableName]"
cn.Execute Sql

Answer 2

太牛了，我SQL语句基础太差，要跟楼上的大哥好好学习呀~````

Answer 3

如果换成sql数据库,用sql语句怎样实现呢,谢谢

Answer 4

Dim cn As ADODB.Connection
Dim Sql As String
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=servername;User Id=sa;PassWord=******;Initial Catalog=数据库1"         
1.如果数据库B中表已经存在
sql = "insert into 数据库2..table2 select * from table1"
cn.Execute Sql
2.如果数据库B中表不存在
Sql = "SELECT * INTO 数据库2..table2 FROM table1"
cn.Execute Sql

Answer 5

搞定了！多谢各位了！
有个新问题：
如何把A数据库中表Sample的数据追加到B数据库的表Count中？！

Answer 6

用 yoki(小马哥) 的方法。

Answer 7

如何把A数据库中表Sample的数据追加到B数据库的表Count中？！
Dim Sql As String
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=servername;User Id=sa;PassWord=******;Initial Catalog=数据库A"         
sql = "insert into 数据库B..[Count] select * from Sample"
cn.Execute Sql

Answer 8

如何把A数据库中表Sample的数据追加到B数据库的表Count中？！注意到“追加”两个字，也就不是“完整地复制”，那么我想追加的数据该是有条件的。比如“把A数据库中表Sample中ID = 123的数据追加到B数据库的表Count中”，所以：
sql = "insert into 数据库B..[Count] select * from Sample Where ID = 123"