把database1的table1的内容插入database2的table1的问题

Question

我在编程时遇到这样一个问题，想把把database1的table1的内容插入database2的table1，两个table1的设计是一样的，我用
insert into database..table1 select * from database..table1 
没有报错误，但是也没有得到正确的结果，请教了另，同一个数据库下面不同表之间的插入已经解决，希望不要重复

Answer 1

insert into database2..table1 select * from database1..table1
-------------------------------------------------------------
--以下语句已经测试
INSERT INTO master..t1
SELECT *
FROM pubs..t1

Answer 2

--如果你已经连接的数据是database2，则：
insert into table1 select * from database1..table1

Answer 3

scnnOldIn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
cnnOldIn.Open scnnOldIn
cnnOldIn.CursorLocation = adUseClient
rstOldIn.Open "Table1", scnnOldIn, adOpenStatic, adLockOptimistic, adCmdTable
rstOldIn.Requery
rstOldIn.Sort = rstOldIn(0).Name
If rstOldIn.RecordCount <> 0 Then
   rstOldIn.MoveFirst
Else
   rstOldIn.Requery
   rstOldIn.Close
   cnnOldIn.Close
   Exit Sub
   rstOldIn.Requery
   rstOldIn.Close
   cnnOldIn.Close
End If
scnnNewIn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\backup\data.mdb"
cnnNewIn.Open scnnNewIn
cnnNewIn.CursorLocation = adUseClient
rstNewIn.Open "FloatTable", scnnNewIn, adOpenStatic, adLockOptimistic, adCmdTable
rstNewIn.Sort = rstNewIn(0).Name
If rstOldIn.RecordCount <> 0 Then
          rstNewIn.MoveLast
          sql = "insert into Table1 select * from " & App.Path & "\data.mdb..Table1 "
          rstNewIn.Open sql, scnnNewIn
   rstNewIn.Update
End If请教，这段代码要怎么改，谢谢

Answer 4

scnnOldIn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
cnnOldIn.Open scnnOldIn
cnnOldIn.CursorLocation = adUseClient
rstOldIn.Open "Table1", scnnOldIn, adOpenStatic, adLockOptimistic, adCmdTable
rstOldIn.Requery
rstOldIn.Sort = rstOldIn(0).Name
If rstOldIn.RecordCount <> 0 Then
  rstOldIn.MoveFirst
Else
  rstOldIn.Requery
  rstOldIn.Close
  cnnOldIn.Close
  Exit Sub
  rstOldIn.Requery
  rstOldIn.Close
  cnnOldIn.Close
End If
scnnNewIn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\backup\data.mdb"
cnnNewIn.Open scnnNewIn
cnnNewIn.CursorLocation = adUseClient
rstNewIn.Open "Table1", scnnNewIn, adOpenStatic, adLockOptimistic, adCmdTable
rstNewIn.Sort = rstNewIn(0).Name
If rstOldIn.RecordCount <> 0 Then
  rstNewIn.MoveLast
  sql = "insert into Table1 select * from " & App.Path & "\data.mdb..Table1 "
  rstNewIn.Open sql, scnnNewIn
  rstNewIn.Update
End If请教，这段代码要怎么改，谢谢

Answer 5

tryPrivate Sub Command1_Click()
    Dim cn As ADODB.Connection    Set cn = New ADODB.Connection    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
    cn.Execute "Select * Into [table1] From [;database=" & App.Path & "\backup\data.mdb].table1"    cn.Close
    Set cn = NothingEnd Sub

Answer 6

只要这些，其他统统不要Dim scnnNewIn As String
Dim sSQL As String
Dim cnnNewIn As ADODB.ConnectionscnnNewIn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & App.Path & "\backup\data.mdb"
set cnnNewIn = New ADODB.Connection
cnnNewIn.Open scnnNewInsSQL = "insert into Table1 select B.* from Table1 B IN '" & App.Path & "\data.mdb'"
cnNewIn.Execute sSQL

Answer 7

insert into Table1 select B.* from Table1 B IN '" & App.Path & "\data.mdb'
B.是什么意思？
B IN 又是什么意思？
请教，谢谢

Answer 8

B : 别名
IN '...' : 表示外部数据库

Answer 9

B.是什么意思？
****************
from Table1 B
把table1 用一个简单的名称替代