'将表导入到另一个数据库的表中.Private Sub Command21_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb" db.Open db.Execute "insert into UserTable in '" & App.Path & "\cc.mdb' select * from UserTable" End Sub
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
db.Execute "insert into UserTable in '" & App.Path & "\cc.mdb' select * from UserTable"
End Sub
如何从一个a.mdb的b表,导出成cc.mdb