Thema: Delphi IBX Create Procedure

Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#1

IBX Create Procedure

  Alt 23. Feb 2006, 15:25
Datenbank: Firebird • Version: 1.5 • Zugriff über: IBX
Wie bzw. mit welcher IBX Komponente kann ich eine Procedure in der Datanbank erzeugen ?

SQL-Code:
SET TERM ## ;
CREATE PROCEDURE UPDATE_ARTIKEL (TEIL INTEGER)
AS
DECLARE VARIABLE ID INTEGER;
DECLARE VARIABLE MENGE INTEGER;
BEGIN
  FOR SELECT ARTIKELID, SUM(MENGE) FROM MATERIAL
             WHERE TEIL = :TEIL
             GROUP BY ARTIKELID
             INTO ID, MENGE
  DO
    UPDATE ARTIKEL SET MENGE = COALESCE(MENGE, 0) + :MENGE
           WHERE ID = :ID;
END ##
SET TERM ; ##
Habe immer das Problem, das er das TERM nicht kennt, und wenn ich die SET TERMS weglasse, dann bekomm ich einen Fehler im Blob.

In der IBConsole kann ichs erfolgreich ausführen, nur für updates, muß ich es auch per programm schaffen ...
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat