@Ponka

привет всем! вобщем возникла проблема при добавлении записи в базу, раньше использовала BDE, теперь решила освоить вкаладку Interbase. Использую при подключнеии компоненты IBDatabase, IBQuery, DataSource, IBDataSet, IBStoredProc, IBTransaction. Пишу такой код на кнопку ДОБАВИТЬ ЗАПИСЬ:
begin
IF (edit1.Text<>'') then begin
try
dm.IBTransaction1.StartTransaction;
with ibstoredProc1 do begin
UnPrepare;
ParamByName('firm_name').value:=edit1.Text;

Prepare;
ExecProc;
end;

dm.IBQFirm.Close;//вот тут стопорится
dm.IBQFirm.Open;
dm.IBTransaction1.Commit;
edit1.Clear;
edit2.Clear;
edit1.SetFocus;

application.MessageBox('Íîâàÿ çàïèñü äîáàâëåíà','', mb_OK );
except
dm.IBTransaction1.RollbackRetaining;
application.MessageBox('Ïðîèçîøåë ñáîé! Ïîâòîðèòå îïåðàöèþ.','', mb_OK );
end;
end
else begin
application.MessageBox('Ââåäèòå âñå äàííûå.','', mb_OK );
edit1.SetFocus;
end;

0