/*************导入Access********************/ insert into openrowset('Microsoft.Jet.OLEDB.4.0', 'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表
Dim Conn As New ADODB.Connection Dim strSql as String Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库A.mdb;" strSql = "INSERT INTO 表B (Field1,Field2,Field3,……) IN '库B.MDB' SELECT Field1,Field2,Field3,…… FROM 表A WHERE ……" Conn.Execute (strSql1)你自己试试,不同的数据库之间也可以使用,将数据库名改了就可以了
现在的情况是:
假如:表A的结构与表B的结构一样。就可以用select ...into...命令。
''根据字段类型赋值,如为整型,将''改为0即可。
数据库名.所有者.表名(如:db1..table1)
你到底试了没有?
insert into A库..表名
select * from openrowset(....)
下面的例子是在SQL中查询DBF的数据库
--/* dBase III文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]')
--*/
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表
Dim strSql as String
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库A.mdb;"
strSql = "INSERT INTO 表B (Field1,Field2,Field3,……) IN '库B.MDB' SELECT Field1,Field2,Field3,…… FROM 表A WHERE ……"
Conn.Execute (strSql1)你自己试试,不同的数据库之间也可以使用,将数据库名改了就可以了