先连接数据库不就行了吗? dim db1 as adodb.connection dim db2 as adodb.connection dim sql1 as strig dim sql2 as string dim sql3 as string set db1=new adodb.connection set db2=new adodb.connection sql1="连接字符" sql2="连接字符" sql3=" insert into [tablename1] select * from [tablename2]" db1.execute sql3 补充一下,如果两个表的结构不一样的化,sql3要改一下 sql3=" insert into [tablename1] values (字段1,字段2,....字段n)select (字段1,字段2,....字段n) from [tablename2]" 两个括号的内容要对应,数据类型要一致,字段的个数要相同
dim db1 as adodb.connection
dim db2 as adodb.connection
dim sql1 as strig
dim sql2 as string
dim sql3 as string
set db1=new adodb.connection
set db2=new adodb.connection
sql1="连接字符"
sql2="连接字符"
sql3=" insert into [tablename1] select * from [tablename2]"
db1.execute sql3
补充一下,如果两个表的结构不一样的化,sql3要改一下
sql3=" insert into [tablename1] values (字段1,字段2,....字段n)select (字段1,字段2,....字段n) from [tablename2]"
两个括号的内容要对应,数据类型要一致,字段的个数要相同