Перечисление результатов IbstoredProc [D7, XP]
SamProf © (2006-08-13 12:22:00)
Запрос такой:
begin
FOR SELECT APP
FROM CONFIG
INTO :APP do suspend;
end
Возрашает несколько результатов
В делфях пишу:
function TSamConfig.GetApplications;
var
i:Integer;
begin
Result:=TStringList.Create;
Result.Clear;
Get_App.ExecProc;
Get_App.First;
while not get_app.eof do
begin
if not
Get_App.ParamByName('APP').IsNull then
begin
Result.Add(Get_App.ParamByName('APP').Value);
end;
Get_App.Next;
end;
end;
Мне в нос ошибка Cannotperfom this operation on a close
dataset! на Get_App.First;
Get_App.Next; ! первое значение он
возврашает, а вот при First b Next ошибки! что такое? Как получить
все результаты?
DrPass (2006-08-13 15:51:00) [1]
Если процедура возвращает не один параметр, а датасет - для
нее нужно использовать не TIBStoredProc, а TIBQuery
Наверх 
ЧАТ |
Орешник |
|
