Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Компоненты DevExpress

авыф © (2007-11-20 18:05:00)
Может кто знает:
Sql := 'begin' + #13#10 +
' :res := pcg_ls.set_dol_subabn_ ( :idkng, :nmabn, :nnsubabn, :dtdate, :kfdol, :idusr);' + #13#10 +
'end;' ;
while not memDol.Eof do
begin
fSession.ExecSQLEx(Sql1, [
'idkng', fSubabn.ID_KNG,
'nmabn', fSubabn.NM_ABN,
'nnsubabn', memDol.FieldByName('NN_SUBABN').AsInteger,
'dtdate', deDate.Date,
'kfDol', StrToInt( Trim( memDol.FieldByName('DOL').AsString ) ),
'idusr', fId_Usr
]); //}
finally
memDol.Next;
end;
Процедура pcg_ls.set_dol_subabn_ - рабочая, проверял.
Данный блок может выполниться нормально, а может, что бывает намного чаще, вывалить AV и открывается окно CPU.
fSession: TOraSession;
memDol: TdxMemData;
в memDol вводятся значения вручную. Может тут что не так?

авыф (2007-11-20 18:36:00) [1]
если же вместо выполнения процедуры выполняю запросы типа select, insert, delete, вместе выполняющие те же действия, то все работает.

авыф (2007-11-20 18:22:00) [2]
прошу прощения - sql1 - это опечатка, в коде все правильно

13333 (2007-11-20 18:16:00) [3]

> Sql:= 'begin' + #13#10 +
> ' :res := pcg_ls.set_dol_subabn_ ( :idkng,
> :nmabn, :nnsubabn, :dtdate, :kfdol, :idusr);' + #13#10 +
> 'end;' ;
> while not memDol.Eof do
> begin
> fSession.ExecSQLEx( Sql1, [
> 'idkng', fSubabn.ID_KNG,
>
> 'nmabn', fSubabn.NM_ABN,
>
> 'nnsubabn', memDol.FieldByName('NN_SUBABN').
> AsInteger,
> 'dtdate', deDate.Date,
> 'kfDol', StrToInt( Trim(
> memDol.FieldByName('DOL').AsString ) ),
> 'idusr', fId_Usr
> ]); //}
> finally
> memDol.Next;
> end;

Может иза этог?

авыф (2007-11-20 18:09:00) [4]
finally - эт лишнее

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »