表2存在: intsert into 库2..表2(a,b,c) select a,b,c from 库1..表1 表2不存在: select * into 库2..表2 from 库1..表1
好像只有SQL Server才可以像楼上一样
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\库1.mdb" Cn.Execute "insert into openrowset('Microsoft.Jet.OLEDB.4.0','e:\库2.mdb';'admin';'',表2) select * from 表1" 此时要注意列数要一致
to yoki:你的 cn 是什么对象呀?
再问,如何将本地的数据库表中的数据添加进 SQLSERVER中去呢? CN是连接到SQLSERVER的CONECTION With Cmd .ActiveConnection = Cn .CommandText = " INSERT INTO finaldata " _ & " select * FROM temdata in tem.mdb" End With Cmd.Execute为什么总提示 "IN 附近有语法错误?"
表2存在: intsert into 库2..表2(a,b,c) select a,b,c from 库1..表1 表2不存在: select * into 库2..表2 from 库1..表1
/*************导出到Access********************/ insert into openrowset('Microsoft.Jet.OLEDB.4.0', 'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表/*************导入Access********************/ insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0', 'x:\A.mdb';'admin';'',A表)
Cn : New ADODB.Connection Cmd : New ADODB.Command "马哥",我用的是VB ADOC With Cmd .ActiveConnection = Cn .CommandText = "INSERT INTO finaldata select * FROM openrowset('Microsoft.Jet.OLEDB.4.0', 'C:\TEMP.mdb';'admin';'',TEMPDATA)" End With Cmd.Execute 为什么总提示: ole /db provider return messge 找不到文件 c:\temp.mdb 呢? temp.mdb是ACCESS 2000 再次麻烦,不好意思!
intsert into 库2..表2(a,b,c) select a,b,c from 库1..表1 表2不存在:
select * into 库2..表2 from 库1..表1
Cn.Execute "insert into openrowset('Microsoft.Jet.OLEDB.4.0','e:\库2.mdb';'admin';'',表2) select * from 表1"
此时要注意列数要一致
CN是连接到SQLSERVER的CONECTION
With Cmd
.ActiveConnection = Cn
.CommandText = " INSERT INTO finaldata " _
& " select * FROM temdata in tem.mdb"
End With
Cmd.Execute为什么总提示 "IN 附近有语法错误?"
intsert into 库2..表2(a,b,c) select a,b,c from 库1..表1 表2不存在:
select * into 库2..表2 from 库1..表1
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表/*************导入Access********************/
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0',
'x:\A.mdb';'admin';'',A表)
Cmd : New ADODB.Command
"马哥",我用的是VB ADOC
With Cmd
.ActiveConnection = Cn
.CommandText = "INSERT INTO finaldata select * FROM openrowset('Microsoft.Jet.OLEDB.4.0', 'C:\TEMP.mdb';'admin';'',TEMPDATA)"
End With
Cmd.Execute
为什么总提示: ole /db provider return messge 找不到文件 c:\temp.mdb 呢?
temp.mdb是ACCESS 2000
再次麻烦,不好意思!