如果只是对一个数据库进行操作的话(即使里面有很多表)就用一个Connection就可以了。
其他的操作和你自己写的第一个是一样的,只是对不同的表进行查找而已。

解决方案 »

  1.   

    ========================================================帮忙测试一下www.easthot.net的论坛,把bug写到<BUG报到处>这个帖子
    谢谢大家。
    也有问题的答案哦
    ========================================================
    可取如下帖子领分http://www.csdn.net/expert/topic/674/674492.xml?temp=.2050592
    http://www.csdn.net/expert/topic/641/641938.xml?temp=.5480768
    http://www.csdn.net/expert/topic/675/675554.xml?temp=.5095026
      

  2.   

    dim cn as adodb.connection,cn2 as adodb.connection
    dim rs as adodb.recordset,rs2 as adodb.recordset
    dim sql as string
    cn.open "自己搞定"
    sql="select 想读出的一些字段数据 from table"
    rs.open sql,cn,1,1
    pravate sub 按纽1_click()
    cn2.open "自己搞定"
    sql="insert into table (colname) value ('"& 数据1 &'",'"& 数据2 &"')"
    rs2,open sql,cn,1,1
    cn1.close
    set cn1=nothing
    rs1.close
    set rs1=nothing
    cn2.close
    set cn2=nothing
    rs2.close
    set rs2=nothing
    end sub
      

  3.   

    一个连接可以打开多个数据集!
    set rs1.ActiveConnection = cn
    set rs2.activeconnection=cn
    ......
    可以用insert语句把值插入到第二个数据库中
      

  4.   

    一个连接可以打开多个数据集!
    set rs1.ActiveConnection = cn
    set rs2.activeconnection=cn
    ......
    可以用insert语句把值插入到第二个数据库中