Вопрос по датасетам в ХП

'BeginNextRecordsetVB



    'To integrate this code

    'replace the data source and initial catalog values

    'in the connection string



Public Sub NextRecordsetX()



    ' connection and recordset variables

   Dim rstCompound As ADODB.Recordset

   Dim Cnxn As ADODB.Connection

   Dim strCnxn As String

   Dim SQLCompound As String

   

   Dim intCount As Integer



   ' Open connection

   Set Cnxn = New ADODB.Connection

   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=pubs;User Id=sa;Password=;"

   Cnxn.Open strCnxn



   ' Open compound recordset

   Set rstCompound = New ADODB.Recordset

   SQLCompound = "SELECT * FROM Authors; " & _

      "SELECT * FROM stores; " & _

      "SELECT * FROM jobs"

   rstCompound.Open SQLCompound, Cnxn, adOpenStatic, adLockReadOnly, adCmdText



   ' Display results from each SELECT statement

   intCount = 1

   Do Until rstCompound Is Nothing

      Debug.Print "Contents of recordset #" & intCount

      

      Do Until rstCompound.EOF

         Debug.Print , rstCompound.Fields(0), rstCompound.Fields(1)

         rstCompound.MoveNext

      Loop

   

      Set rstCompound = rstCompound.NextRecordset

      intCount = intCount + 1

   Loop

   

    ' clean up

   rstCompound.Close

   Cnxn.Close

   Set rstCompound = Nothing

   Set Cnxn = Nothing

   

End Sub

'EndNextRecordsetVB