dim rst as adodb.recordset dim sqlrst as string sqlrst="select * from table1" rst.open sqlrst,........ do something rst.close sqlrst="select * from table2" rst.open sqlrst........ do something rst.close set rst=nothing
如果只是Rs.Close ,而不是 Cnn.Close 或 Set Cnn = Nothing 之类的销毁对象, 那么 你可以只修改一下 : Dim Cnn As New ADODB.Connection Dim Cmd As New ADODB.Command Dim Rs As New ADODB.Recordset'Cnn.Connectstring= ...... Cnn.open 'Cmd .... Cmd.CommandType = adCmdUnkown Cmd.CommandText = "Table1" Rs.Open '...... Rs.Close Cmd.CommandText = "Select * From Table2" Rs.Open .........'就行了
dim sqlrst as string
sqlrst="select * from table1"
rst.open sqlrst,........
do something
rst.close
sqlrst="select * from table2"
rst.open sqlrst........
do something
rst.close
set rst=nothing
那么 你可以只修改一下 :
Dim Cnn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset'Cnn.Connectstring= ......
Cnn.open
'Cmd ....
Cmd.CommandType = adCmdUnkown
Cmd.CommandText = "Table1"
Rs.Open
'......
Rs.Close
Cmd.CommandText = "Select * From Table2"
Rs.Open .........'就行了