Interbase, добавление записи

[Алёна]

привет всем! вобщем возникла проблема при добавлении записи в базу, раньше использовала BDE, теперь решила освоить вкаладку Interbase. Использую при подключнеии компоненты IBDatabase, IBQuery, DataSource, IBDataSet, IBStoredProc, IBTransaction. При БДЕ писала такой код на кнопку ДОБАВИТЬ ЗАПИСЬ:

begin
IF (edit1.Text<>'') and (combobox1.Text<>'')
and (edit2.Text<>'') then begin
try
dm1.Database1.StartTransaction;// здесь ругается
with storedProc1 do begin
UnPrepare;
ParamByName('predpr').Value:= combobox1.Text;
ParamByName('nazv_otdel').Value:= edit1.Text;
ParamByName('adress').Value:= edit2.Text;
Prepare;
ExecProc;
end;
dm1.QuOtdel.Close;
dm1.QuOtdel.Open;
dm1.Database1.Commit;// здесь ругается
edit1.Clear;
edit1.SetFocus;
application.MessageBox('Новая запись добавлена','', mb_OK );
except
dm1.Database1.Rollback;// здесь ругается
application.MessageBox('Произошел сбой! Повторите операцию.','', mb_OK );
end;
end
else begin
application.MessageBox('Введите все данные.','', mb_OK );
combobox1.SetFocus;
end;


как изменить эти строки чтоб работала с компонентами Interbase????

[Gauss]

Не получается просто заменить компоненты на интербейсовские ?
А смысл же будет такой же, как в вашем коде, думаю так.

[pu4koff]

Commit, Rollback и другие операции с транзакциями осуществляются помоему через IBTransaction, а не через IBDatabase. ну есть хотя у базы свойство что-то вроде DefaultTransaction через него и можно до транзакции достукиваться, но это только если у вас все на одной транзакции. там, если мне не изменяет память, на каждый компонент своя транзакция внутри одной базы может быть.
так что надо что-то вроде:
storedProc1.Transaction.Commit и т.д. писать, чтобы не получилось, что не ту транзакцию подтверждаете

[Алёна]

Сообщение от Gauss

Не получается просто заменить компоненты на интербейсовские ?
А смысл же будет такой же, как в вашем коде, думаю так.

меняла конечно, но не то......

[Алёна]

ну помогите люди! не хочу я этот гребаный БДЕ.....неужели никто не добавлял записи в Интербэйс?

[Domovoy]

Тебеж написали IBTransaction юзай. Цепляешь его к IBDatabase и вперёд:
IBTransaction.StartTransaction;
IBTransaction.Commit;
.......

[Rik]

dm1.Database1.StartTransaction; Заменить на dm1.IBTransaction1.StartTransaction ; Вместо IBTransaction1 подставить компонент транзакции который связан с storedProc1.
Соответственно
dm1.Database1.Commit;
dm1.Database1.RollBack;
заменить на
dm1.IBTransaction1.Commit;
dm1.IBTransaction1.RollBack;

[Алёна]

спасибо всем, уже разобралась....только фишка еще есть что ниже Interbase 6-ки не работает это дело я пользуюсь 5-кой, семерка че то не нравится.... тепрь ищу 6-ку

[Алёна]

ввожу в одно поле значение , ему че то не нравится блин:

begin
IF (edit1.Text<>'') then begin
try
dm.IBTransaction1.StartTransaction;
with ibstoredProc1 do begin
UnPrepare;
ParamByName('firm_name').value:=edi t1.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;

[Rik]

dm.IBQFirm.Close;//вот тут стопорится
dm.IBQFirm.Open;
Это наверно для того чтобы набор данных обновить после того как фирму добавила?
В этом случае Commit лучше делать до этих строк а не после.
Компоненты ibstoredProc1 и IBQFirm, если они оба привязаны к одной транзакции IBTransaction1, рассади по разным транзакциям. Для длинных транзакций для запросов типа Select, используй одну транзакцию, для коротких типа Insert Update Delete, используй другую.

Когда стопорится, что пишет?

А, да, не парся с InterBase, пересаживайся на FireBird, отличная работает на разных платформах и совершенно бесплатный, не пожалеешь, ни каких заморочек с лицензиями.