by Murty Yellapantula (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
with this procedure we can handle the queries or stored procedures which returns multiple recordsets - through ADO's
VBcodersPublic 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