dim adocn as new adodb.connection
dim rst1 as new adodb.recordset
dim rst2 as new adodb.recordset
dim rst3 as new adodb.recordset
adocn.connectionstring="-------------"
adocn.open
rst1.open "select * from tablename1 where ...",adocn,,,adcmdtext
rst2.open "select * from tablename2 where ...",adocn,,,adcmdtext
rst3.open "select * from tablename3 where ...",adocn,,,adcmdtext
......
rst1.close
rst2.close
rst3.close
adocn.close
set ...=nothing
dim rst1 as new adodb.recordset
dim rst2 as new adodb.recordset
dim rst3 as new adodb.recordset
adocn.connectionstring="-------------"
adocn.open
rst1.open "select * from tablename1 where ...",adocn,,,adcmdtext
rst2.open "select * from tablename2 where ...",adocn,,,adcmdtext
rst3.open "select * from tablename3 where ...",adocn,,,adcmdtext
......
rst1.close
rst2.close
rst3.close
adocn.close
set ...=nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货