Firebird FibPlus pFibStoredproc

[vovk]

Firebird 2.1, Delphi 2007, FibPlus 6.9.6
Учусь работать с Firebird, попробовал тут создать хранимую процедуру для добавления записи

SET TERM ^ ;

RECREATE PROCEDURE PR_ADD_SB_REC (
 SM_NAME  VARCHAR(5),
 DESCRIPT VARCHAR(50))
RETURNS (
 MESS     VARCHAR(31))
AS 
BEGIN
IF (NOT EXISTS(SELECT ID FROM SB_PLAN WHERE SMALL_NAME=:SM_NAME))
THEN
BEGIN
INSERT INTO SB_PLAN (SMALL_NAME, DESCRIPTION) VALUES (:SM_NAME,:DESCRIPT); 
MESS = 'Запись добавлена';
SUSPEND;  
END ELSE
MESS = 'Запись с таким именем уже есть';
END^

SET TERM ; ^

потом в приложении пытаюсь воспользоватся с помощью TpFibStoredproc

try
 DM_MAIN.FTrsn_update_main.StartTransaction;
  pFIBStoredProc1.ParamByName('SM_NAME').AsString:=edit1.Text;
  pFIBStoredProc1.ParamByName('DESCRIPT').AsString:=edit2.Text;
  pFIBStoredProc1.ExecProc;
  DM_MAIN.FTrsn_update_main.Commit;
 Label1.Caption:= pFIBStoredProc1.Fields[0].AsString;
 
	except
   DM_MAIN.FTrsn_update_main.Rollback;
  Label1.Caption:='Ошибка при добавлении записи';
	 end;

В общемто работает.. так для эксперемента попробовал передать в параметры текст побольше чем переменные в процедуре, получил исключение.. ну того вроде и ожидал. Потом меняю текст на нормальный а процедура не выполняется вылетает с такой ошибкой.
sql error code=-804
sqlda missing or incorrect number/type of vadiables
Можно конечно исключить вообще такие варианты, но просто на будущее хотелось бы знать почему при смене параметров на правильные с ошибкой вылетает.

А да и ещё вопрос в догонку, возможно ли в хранимую процедуру передать как параметр имя таблицы.

[soleil@mmc]

бьюсь об заклад, что при таком написании процедуры

SET TERM ^ ;

RECREATE PROCEDURE PR_ADD_SB_REC (
 SM_NAME  VARCHAR(5),
 DESCRIPT VARCHAR(50))
RETURNS (
 MESS     VARCHAR(31))
AS 
BEGIN
IF (NOT EXISTS(SELECT ID FROM SB_PLAN WHERE SMALL_NAME=:SM_NAME))
THEN
BEGIN
INSERT INTO SB_PLAN (SMALL_NAME, DESCRIPTION) VALUES (:SM_NAME,:DESCRIPT); 
MESS = 'Запись добавлена';
SUSPEND;  
END ELSE
MESS = 'Запись с таким именем уже есть';
END^

SET TERM ; ^

ты не получишь сообщения 'Запись с таким именем уже есть'

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

А да и ещё вопрос в догонку, возможно ли в хранимую процедуру передать как параметр имя таблицы.

возможно
но собсна само выполнение селекта нужно будет писать через execute statement (аналог execute immediate в оракле, если такой есть в файрберде)

[vovk]

бьюсь об заклад, что при таком написании процедуры

так что ты ставил то со своей стороны?
Тут ты не прав я же говорю всё работает. Постановку условия взял из книги Хелен Борри "Firebird Руководство разрабртчика баз данных" единственно нот добавил там

IF (EXISTS(....)) THEN..

и вообще это моя 2-я хранимая процедура, (поэтому вряд ли она идеально составлена) первая выглядит так

SET TERM ^ ;

RECREATE PROCEDURE PROC1
RETURNS (
 PAR1 VARCHAR(30))
AS 
BEGIN
par1 = current_user || '  Role' || current_role ;  
suspend;
END^

SET TERM ; ^

но собсна само выполнение селекта нужно будет писать через execute statement

Нашол про execute statement почитал, испугался, передумал В общем для чего хотел использовать лучше по другому сделать. Кому интерестно про execute statement читал тут


Всё вызвал процедуру так

pFIBStoredProc1.ExecProcedure('PR_ADD_SB_REC',[edit1.Text,edit2.Text]);

теперь работает как ожидалось

ЗЫ спасибо за обсуждение

[soleil@mmc]

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

так что ты ставил то со своей стороны?
Тут ты не прав я же говорю всё работает.

кроме чтения правильных книжек еще нужно понимать, что делают операторы
например здесь

IF (NOT EXISTS(SELECT ID FROM SB_PLAN WHERE SMALL_NAME=:SM_NAME))
THEN
BEGIN
  INSERT INTO SB_PLAN 
  (SMALL_NAME, DESCRIPTION) 
   VALUES (:SM_NAME,:DESCRIPT); 
   
  MESS = 'Запись добавлена';
  SUSPEND;  
END 
ELSE
  MESS = 'Запись с таким именем уже есть';

я разбивочку по коду сделал, а то не читалось
если условие выполнится, то все пучком, а вот если нет, то и мессагу ты не получишь - потому что там нет SUSPEND;

в твоем случае проще писать так

IF (NOT EXISTS(SELECT ID FROM SB_PLAN WHERE SMALL_NAME=:SM_NAME))
THEN
BEGIN
  INSERT INTO SB_PLAN 
  (SMALL_NAME, DESCRIPTION) 
   VALUES (:SM_NAME,:DESCRIPT); 
   
  MESS = 'Запись добавлена';  
END 
ELSE
  MESS = 'Запись с таким именем уже есть';

SUSPEND;

[vovk]

Сообщение от soleil@mmc

кроме чтения правильных книжек еще нужно понимать, что делают операторы
например здесь

Я не претендую на абсолютное знание, да и просто на хорошое знание этой темы тоже как бы не претендую. Но у меня в зависимости от параметров приходило и 1 и второе сообщение.

Ради интереса сделал даже так

SET TERM ^ ;

RECREATE PROCEDURE PR_ADD_SB_REC (
 SM_NAME  VARCHAR(5),
 DESCRIPT VARCHAR(50))
RETURNS (
 MESS     VARCHAR(31))
AS 
BEGIN
IF (NOT EXISTS(SELECT ID FROM SB_PLAN WHERE SMALL_NAME=:SM_NAME))
THEN
BEGIN
/*INSERT INTO SB_PLAN (SMALL_NAME, DESCRIPTION) VALUES (:SM_NAME,:DESCRIPT); */
MESS = 'Запись добавлена';
/*SUSPEND; */ 
END 
ELSE
MESS = 'Запись с таким именем уже есть';
END^

SET TERM ; ^

и в таком виде тоже выдаёт и то и другое значение в зависимости от параметров

пока всё что нашол про Suspend в книге

В выполняемых процедурах SUSPEND имеет точно такойже эффект как и END

я правда ещё не всё прочитал



Сделал как в первоначальном варианте, только без SUSPEND, хмм работает,
переместил SUSPEND до

MESS = 'Запись добавлена';

запись добавляется сообщение не приходит, мне кажется я вообще зря его поставил это же выполняемая процедура.
Обьясните пожалуйста поподробнее про действие Suspend в процедурах выбора. Если не трудно конечно..

Кажется понял он добавляет строку в буфер строк, то есть нужен только там где многострочный вывод. Я прав?

Нее не только многострочный.. везде где open, а не exec нужен SUSPEND вроде так.
поэксперементировал тут..