监两个ADOConnection一个连Access另一个连SQL 我以前就这样做的 再建两个ADoRecordset分别和这两个ADOCON相连 一个ADORS取数据另一个插入数据 如; dim AdoConSql as new adodb.adoconnection dim adoConAccess as ... AdoConSql.open "连接SQL的连接字符串" AdoConAccess.open "连接Access的连接字符串" dim ADorsSQl as new adodb.recordset dim AdorsAccess as ... adorsSQl.open "从SQL中取数据集",adoConSQl,3,1 adorsAccess.open "从Access中取数据集",adoConAccess,3,1 do while not adorsSql.eof adorsAccess.add adorsAccess.fields(0)="XXX" ... adorsAccess.update loop adorsAccess.close adorsSQl.close set adorssql=nothing set adorsAccess=nothing adoconSql.close adoconAccess.close set adoconSql=nothing set adoconAccess=nothing 现写的,很久没用VB了不知道是否这样写
loop上面 少写了个 adorsSql.movenext
谢谢 40Star(陪你去看--☆流星雨★) 兄的回复 我原来也正是采用这个办法处理跨数据库问题的 但假如我是操作二个access文件库(mdb),则可以这样用 SELECT b.ID,a.* FROM b IN 'C:\b.mdb' ,a where a.id=b.id(其中表a在a.mdb中,表b在b.mdb中,表b也可以是excel/dbf/及其它odbc数据源) 但为什么在sql2000中不能用sql语句跨数据库操作数据(之所以要这样做,我想用sql语句的效率要高一些)
我以前就这样做的
再建两个ADoRecordset分别和这两个ADOCON相连
一个ADORS取数据另一个插入数据
如;
dim AdoConSql as new adodb.adoconnection
dim adoConAccess as ...
AdoConSql.open "连接SQL的连接字符串"
AdoConAccess.open "连接Access的连接字符串"
dim ADorsSQl as new adodb.recordset
dim AdorsAccess as ...
adorsSQl.open "从SQL中取数据集",adoConSQl,3,1
adorsAccess.open "从Access中取数据集",adoConAccess,3,1
do while not adorsSql.eof
adorsAccess.add
adorsAccess.fields(0)="XXX"
...
adorsAccess.update
loop
adorsAccess.close
adorsSQl.close
set adorssql=nothing
set adorsAccess=nothing
adoconSql.close
adoconAccess.close
set adoconSql=nothing
set adoconAccess=nothing
现写的,很久没用VB了不知道是否这样写
少写了个
adorsSql.movenext
我原来也正是采用这个办法处理跨数据库问题的
但假如我是操作二个access文件库(mdb),则可以这样用
SELECT b.ID,a.* FROM b IN 'C:\b.mdb' ,a where a.id=b.id(其中表a在a.mdb中,表b在b.mdb中,表b也可以是excel/dbf/及其它odbc数据源)
但为什么在sql2000中不能用sql语句跨数据库操作数据(之所以要这样做,我想用sql语句的效率要高一些)
你的问题属于数据库转换问题,在jet中之所以能够使用,是因为不存在数据库转换问题(jet的默认数据库是mdb)而sql server是mdf,仅仅用sql 语句
很难实现,我现在只知道xml可以做。