现在没有,
就和你用ADO一样啊,没什么复杂的

解决方案 »

  1.   

    监两个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了不知道是否这样写
      

  2.   

    loop上面
    少写了个
    adorsSql.movenext
      

  3.   

    谢谢 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语句的效率要高一些)
      

  4.   

    用sql server的dts就行了,可以自动生成 vb代码。
    你的问题属于数据库转换问题,在jet中之所以能够使用,是因为不存在数据库转换问题(jet的默认数据库是mdb)而sql server是mdf,仅仅用sql 语句
    很难实现,我现在只知道xml可以做。