Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ХП - rintime [D6, IB6.x]

Smashich © (2003-02-10 17:24:00)
Доброго времени суток!

подскажите пожалуйста как мне создать хранимую процедуру в IB из своего клиента?

Smashich (2003-02-11 10:19:00) [1]
СПАСИБО!!

Александр С. (2003-02-11 10:11:00) [2]
P.S.
В данном случае не используются терминаторы после
CREATE..BEGIN ... END
в теле же ХП терминаторы обязательны.

Александр С. (2003-02-11 10:05:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBDatabase1.Open;
IBTransaction1.StartTransaction;
try
IBQuery1.SQL.Assign(Memo1.Lines);
IBQuery1.ExecSQL;
IBTransaction1.Commit;
except
IBTransaction1.Rollback;
IBDatabase1.Close;
end;

end;
Текст в Memo1:
create procedure P1
returns (u varchar(20))
as
begin
select current_user from
RDB$DATABASE into u;
suspend;
end

Reindeer Moss Eater (2003-02-11 08:50:00) [4]
isql -i <inputfile>

Alexandr (2003-02-10 18:17:00) [5]
из IBSQL...

Smashich (2003-02-10 17:40:00) [6]
ндя... забыл...могу нарваться...
как мне выполнить следующий скрипт из своего клиента?

SET TERM ^ ;
CREATE PROCEDURE "GETDAYSMISSED"("IDPERIOD" INTEGER)
RETURNS("DAYSMISSED" INTEGER)
AS BEGIN EXIT; END^

Smashich (2003-02-10 17:36:00) [7]
ok...попробую по другому...
как мне выполнить следующий скрипт:
CREATE PROCEDURE "GETDAYSMISSED"("IDPERIOD" INTEGER)
RETURNS("DAYSMISSED" INTEGER)
AS BEGIN EXIT; END ^

Reindeer Moss Eater (2003-02-10 17:26:00) [8]
DDL скрипт надо выполнить. Независимо от Run-Time или еще чего.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »