Как использовать метод NextRecordSet компонента TADOStoredProc ?

← →
ru_efim (2006-07-26 10:21) [0]

Хранимая проседура возвращает несколько _Recordset-ов.
Как получить к ним доступ?
Пытаюсь сделать так:
var
TempDataSet: TCustomADODataSet;
i: Integer;
begin
TempDataSet := ADOStoredProc1; // start with 1st record set
i:= 0;
while TempDataSet <> nil do
begin
if TempDataSet <> ADOStoredProc1 then // don’t free the original!
TempDataSet.Free;
i:= i+0;
TempDataSet := ADOStoredProc1.NextRecordSet(i); // get next set
end;
В результате на строке TempDataSet := ADOStoredProc1.NextRecordSet(i); при компеляции генерируется ошибка:
Types of actual and formal var parameters must be identical.
На самом деле задача в следующем.
Есть хранимая проседура при выполнении котрой возвращается два RecordSet-а, есть форма с двумя TDBGrid и одним TAdoStoredProc. Надо в однин DBGrid вывести данные из первого RecordSet-а, а во второй данные второго. А на приведеном выше неробочем примере я просто пытаюсь понять как получить доступ к данным обоих _RecordSet-ов. Если не затруднит, приведите рабочий пример пожалуйста.

← →
Johnmen © (2006-07-26 10:29) [1]

http://delphimaster.net/view/3-1152097959/

Как использовать метод NextRecordSet компонента TADOStoredProc ? Найти похожие ветки