你好,首先点击 "工程","引用"
microsoft active x data objects 2.6 libray
程序代码:
dim conn as adodb.connection
set conn=new adodb.connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "jbgl.mdb;Persist Security Info=False"
conn.execute = "insert into 表3 select * from 表1 inner join 表2 on 表1.id=表2.id
"