建立好两个相同栏位的Table A 和 B ，在Access中；
然后建立一个宏,代码如下：
Sub main()
On Error GoTo CreateProcedureError
Dim cnn As New ADODB.Connection
' Open the Connection
cnn.Open _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='c:\db1.mdb';"
cnn.Execute "insert into a select * from b"
'Clean
cnn.Close
Set cnn = Nothing
Exit Sub
CreateProcedureError:
If Not cnn Is Nothing Then
If cnn.State = adStateOpen Then cnn.Close
End If
Set cnn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
但还是废了一番老人家的脑力，把它弄出来...
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/30193/viewspace-661602/ ，如需转载，请注明出处，否则将追究法律责任。
