хранимая процедура(firebird)

[alex_-87]

у меня есть БД(firebird), помогите написать хранимую процедуру редактирования записи, и код в delphi при котором она будет вызываться...

[Скандербег]

Запуск процедуры из приложения

    qrTemp.Close;
    qrTemp.Transaction.StartTransaction;
    try
      qrTemp.SQL.Text := 'EXECUTE PROCEDURE <proc_name> [(<праметры, если есть>)];';
      qrTemp.ExecSQL;
      qrTemp.Transaction.Commit;
    except
      qrTemp.Transaction.Rollback;
    end;

Где qrTemp Dataset (здесь TIBQuery).
А писать процедуру надо в IBExpert.

[alex_-87]

CREATE OR ALTER PROCEDURE PR_INS (
par1 varchar(50),
par2 integer)
as
begin
insert into students(spid, sgrupa) values(ar1, ar2);
suspend;
end^
правильно?

[alex_-87]

и тогда оно будет выглядить так....
qrTemp.Close;
qrTemp.Transaction.StartTransaction ;
try
qrTemp.SQL.Text := 'EXECUTE PROCEDURE pr_ins (ar1,ar2);';
qrTemp.parambyname('par1').Value:=e dit1.text;
qrTemp.parambyname('par2').value:=s trtoint(edit2.text);
qrTemp.ExecSQL;
qrTemp.Transaction.Commit;
except
qrTemp.Transaction.Rollback;
end;
да?

[Скандербег]

Не совсем. Параметры в самом Dataset к процедуре не имеют никакого отношения.

qrTemp.SQL.Text := 'EXECUTE PROCEDURE pr_ins ('+QuotedStr(edit1.text)+','+edit2.text+');';
//qrTemp.parambyname('par1').Value:=edit1.text;
//qrTemp.parambyname('par2').value:=strtoint(edit2.text);

Первый параметр строка - в кавычках, второй целое - без кавычек.
Создавать или менять процедуру при работе приложения - не совсем хорошее решение и применяется редко. Ее надо создать один раз, а из приложения только запускать.

[mihali4]

Странно, почему никто не использует специализированный компонент...
Пример:

IBStoredProc1.UnPrepare;
IBStoredProc1.StoredProcName:='PADDNUMBERUPD';
IBStoredProc1.Prepare;
IBStoredProc1.ParamByName('NUM').Value:=100;
IBStoredProc1.ParamByName('NUMB').Value:=15;
IBStoredProc1.Prepare;
IBStoredProc1.ExecProc;

Пример текста ХП:

CREATE PROCEDURE PADDNUMBERUPD (
  NUM INTEGER,
  NUMB INTEGER
)  AS                
BEGIN
UPDATE TOVLIST SET NUMBER=:NUMB WHERE TMP=:NUM;
END

[alex_-87]

спс, работает...

[alex_-87]

еще один такой вопросик: у меня таблица students дочерняя от grupa, как мне сделать что бы у меня был выпадающий список всех допустимых значений таблицы grupa?

[mihali4]

Одна тема - один вопрос.
Закрыто.