Multiple RecordSets
with this procedure we can handle the queries or stored procedures which returns multiple recordsets - through ADO's
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
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
Upload
Původní komentáře (3)
Obnoveno z Wayback Machine