NextRecordset 方法范例 (VB)

本范例使用 NextRecordset 方法，查看使用复合命令语句的记录集中的数据，其中的复合命令语句由三个独立 SELECT 语句组成。

Public Sub NextRecordsetX()

    Dim rstCompound As ADODB.Recordset
    Dim strCnn As String
    Dim intCount As Integer

    ' Open compound recordset.
        strCnn = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
   
    Set rstCompound = New ADODB.Recordset
    rstCompound.Open "SELECT * FROM Authors; " & _
        "SELECT * FROM stores; " & _
        "SELECT * FROM jobs", strCnn, , , adCmdText

    ' Display results from each SELECT statement.
    intCount = 1
    Do Until rstCompound.State = adStateClosed
        Debug.Print "Contents of recordset #" & intCount
        Do While Not rstCompound.EOF
            Debug.Print , rstCompound.Fields(0), _
                rstCompound.Fields(1)
            rstCompound.MoveNext
        Loop
   
        Set rstCompound = rstCompound.NextRecordset
        intCount = intCount + 1
    Loop
   
End Sub