Выполнение хранимой прцедуры?

[Andre1723]

Здравствуйте.
В базе данных InterBase 7 созданы хранимые процедуры select, insert, delete,refreshдля каждой таблицы. Как можно их использовать в приложении (Delphi7), т.е. передвать им параметры, запускать и т.д.?

[maLoy*508]

поместить на форму компонент IBStoredProc... подключить его к базе... потом выбрать имя хранимой процедуры...
и потом:
выполнение процедуры

IBStoredProc1.ExecProc

[Andre1723]

Что-то типа этого?

procedure TfStrType.AddElement;
begin
  try
    with fDM.IBStoredProc1 do
      begin
        Name:= 'SP_STRTYPE_I'; //SP_STRTYPE_I, ХП созданная в БД
        ParamByName('STRTYPE_ID').Value:=StrToInt(edStrType_id.Text);
        ParamByName('STRTYPENAME').Value:=StrToInt(edStrTypeName.Text);
        ParamByName('STRTYPEFULLNAME').Value:=StrToInt(edStrTypeFullName.Text);
        Prepare;
        ExecProc;
      end;
     //Bla-bla
  except
     //Bla-bla
  end;
end;

[soleil@mmc]

имхо сначала препаре, потом подстановка параметров, потом экзек

[Andre1723]

Я думаю, сначала подстановка параметров, а затем prepere.
Как я понял (читая ответы на форуме) prepare запрашивает на сервере возможность выполнения запроса с данными параметрами.
Возник другой вопрос: Почему не сработал триггер в БД?
Я передал STRTYPE_ID = 0 и при последующем просмотре НД этот "0" появился в ключевом поле, что в принципе не должно быть (на поле стоит триггер Before Insert).

В топике "not null" и триггер в IBase/FB от Surgeon обсуждался этот вопрос

В компоненте IBQuery есть возможность задать триггер, как мне выполнить процедуру с помощью IBQuery?

[Andre1723]

УПС

Как я понял (читая ответы на форуме) prepare запрашивает на сервере возможность выполнения запроса с данными параметрами.

неправильно...

При вызове метода prepare, Delphi посылает SQL запрос на удаленный сервер. Сервер выполняет грамматический разбор и оптимизацию запроса. Преимущество такой подготовки запроса состоит в его предварительном разборе и оптимизации. Альтернативой здесь может служить подготовка сервером запроса при каждом его выполнении. Как только запрос подготовлен, подставляются необходимые новые параметры, и запрос выполняется.

[soleil@mmc]

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

на поле стоит триггер Before Insert).

триггер стоит не на поле, а на таблице
лучше всего триггер в студию
а скорее всего, у тебя там просто не прописан генератор

[Andre1723]

Для создания БД и всех остальных прибамбасов к ней (в том числе генераторы и триггеры) использовался
IB&FB Development Studio.

 
CREATE GENERATOR GEN_STRTYPE_ID;
SET GENERATOR GEN_STRTYPE_ID TO 0

CREATE TRIGGER TR_GEN_STRTYPE_ID FOR STRTYPE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
  IF (NEW.STRTYPE_ID IS NULL) THEN 
    NEW.STRTYPE_ID=GEN_ID(GEN_STRTYPE_ID,1);
end

[soleil@mmc]

все верно
вся прелесть программ и в том числе триггеров, что они работают так как в них написано

ты передаешь при вставке в поле значение 0 - оно же не нулл, поэтому ветка по условию не срабатывает

отсюда 3 выхода:
1) передавать на инсерт нулл (если получится)
2) ничего в это поле не передавать и тогда будет считаться что передали нулл
3) прописать подстановку значения в это поле при инсерте без условия, т.е. всегда

З.Ы.: открою секрет - скрипты можно писать хоть в нотпаде (рекомендую Notepad++), а накатывать с помощью тулзы IBEScript; еще могу порекомендовать IBExpert (бесплатен для рос.разработчиков)

[Andre1723]

Спасибо. Воспользовался способом №3, первый не получился, а на второй ругается, что поле не должно быть пустым.