The following code cycles through the datasets returned by a stored procedure.
var
TempDataSet: TCustomSQLDataSet;
nRows: Integer;
begin
TempDataSet := SQLStoredProc1; // start with 1st record set
while TempDataSet <> nil do
begin
TempDataSet.First;
while not TempDataSet.Eof do
begin
// process each record
TempDataSet.Next;
end;
if TempDataSet <> SQLStoredProc1 then // don抰 free the original!
TempDataSet.Free;
TempDataSet = SQLStoredProc1.NextRecordSet; // get next set
end;
end;
var
TempDataSet: TCustomSQLDataSet;
nRows: Integer;
begin
TempDataSet := SQLStoredProc1; // start with 1st record set
while TempDataSet <> nil do
begin
TempDataSet.First;
while not TempDataSet.Eof do
begin
// process each record
TempDataSet.Next;
end;
if TempDataSet <> SQLStoredProc1 then // don抰 free the original!
TempDataSet.Free;
TempDataSet := SQLStoredProc1.NextRecordSet; // get next set
end;
end;