返回记录集问题 ，着急！

Question

我有大致如下意思SQL 语句，同时执行时，记录集只返回第二个sql 的结果集，对第二个sql 的结果集再做处理。 该如何解决！谢谢各位大侠们帮忙解决！
dim RstTemp as adodb.recordset
dim strSQL as stringstrSQL="SELECT * INTO #TEMP FROM TABLE1 " 
strSQL=strSQL+" SELECT * FROM TABLE2 LEFT JOIN #TEMP ON  TABLE2.Fields2=#Temp.FieldsNO "RstTemp.Open strSQL, connection, adOpenKeyset, adLockPessimisticfor i=0 to RstTemp.recordcount-1
  strV=strV+RstTemp.fields(0).value
 RstTemp.movenext
next i

Answer 1

分开执行试试
dim RstTemp1 as adodb.recordset,RstTemp2 as adodb.recordset
dim strSQL as stringstrSQL="SELECT * INTO #TEMP FROM TABLE1 " 
RstTemp1.Open strSQL, connection, adOpenKeyset, adLockPessimisticstrSQL=" SELECT * FROM TABLE2 LEFT JOIN #TEMP ON  TABLE2.Fields2=#Temp.FieldsNO "RstTemp2.Open strSQL, connection, adOpenKeyset, adLockPessimisticfor i=0 to RstTemp2.recordcount-1
  strV=strV+RstTemp2.fields(0).value
 RstTemp2.movenext
next i

Answer 2

使用 NextRecordset 属性:
Set rs = RstTemp.NextRecordset

Answer 3

Dim nextRS As ADODB.RecordSet
Set nextRS = RstTemp.NextRecordSet详细情况请参考ADO帮助文档。
关键词：NextRecordSet