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 tab2 in '" & App.Path & "\cc.mdb' select * from tab1" MsgBox "yes" End Sub
Insert into table1 SELECT * FROM [;database=c:\DataBase2.mdb].table2
还有怎么新建个mdb数据库 StrMdbName = WorkPath & "Dataup\Mis_Up.mdb"Set fso = CreateObject("scripting.filesystemobject") Set a = fso.CreateTextFile(StrMdbName, True) 这样不行!
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 tab2 in '" & App.Path & "\cc.mdb' select * from tab1"
MsgBox "yes"
End Sub
SELECT * FROM [;database=c:\DataBase2.mdb].table2
StrMdbName = WorkPath & "Dataup\Mis_Up.mdb"Set fso = CreateObject("scripting.filesystemobject") Set a = fso.CreateTextFile(StrMdbName, True)
这样不行!