• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Multiple RecordSets

Multiple RecordSets

with this procedure we can handle the queries or stored procedures which returns multiple recordsets - through ADO's

Rate Multiple RecordSets

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Sub MultipleRecordSets()
Dim AdoConn As Object
Dim AdoRs As Object
Dim I As Integer
  
Set AdoConn = CreateObject("ADODB.Connection")
AdoConn.Open ConnectionString
'stored procedure which returns multiple record sets
ssql = "StoredProcedure Parameter1, Parameter2, ... "
Set AdoRs = AdoConn.Execute(ssql)
Do Until AdoRs Is Nothing
  While Not AdoRs.EOF
    For I = 0 To AdoRs.Fields.Count - 1
      Debug.Print AdoRs.Fields(I)
    Next I
    AdoRs.MoveNext
  Wend
  Set AdoRs = AdoRs.NextRecordset
Loop
End Sub