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
一个连接可以打开多个数据集! set rs1.ActiveConnection = cn set rs2.activeconnection=cn ...... 可以用insert语句把值插入到第二个数据库中
一个连接可以打开多个数据集! set rs1.ActiveConnection = cn set rs2.activeconnection=cn ...... 可以用insert语句把值插入到第二个数据库中
谢谢大家。
也有问题的答案哦
========================================================
可取如下帖子领分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
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
set rs1.ActiveConnection = cn
set rs2.activeconnection=cn
......
可以用insert语句把值插入到第二个数据库中
set rs1.ActiveConnection = cn
set rs2.activeconnection=cn
......
可以用insert语句把值插入到第二个数据库中