🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.database.dbexpress
Article #137

TIBQuery

#137
From: Gi
Date: Tue, 22 Feb 2005 13:50
55 lines
2589 bytes
Hi, TIBQuery component can insert in database a stored procedure???
I try to insert stored procedure but I have an exception 
:"EibInterbaseError: invalid reguest BLR at offset 384: bad parameter 
number".
With IBConsole tha same come works!
Procedure is:

CREATE PROCEDURE INSERT_ACCONTO (
         ID_PERSONA                 INTEGER,
         ID_SOCIETA                   INTEGER,
         ID_TIPO_CONTO           SMALLINT,
         ID_TIPO_PAGAMENTO SMALLINT,
         DATA_PAGAMENTO    TIMESTAMP,
         EURO                              NUMERIC(8,2),
         COMM_ACCONTO      VARCHAR(255),
         NUM_DOCUMENTO     SMALLINT,
         ID_PRENOTAZIONE      INTEGER)
returns (ID INTEGER)
AS

begin
        IF (ID_SOCIETA = 0) THEN ID_SOCIETA=NULL;
        IF (ID_PERSONA = 0) THEN ID_PERSONA=NULL;
        IF (ID_PRENOTAZIONE = 0) THEN ID_PRENOTAZIONE=NULL;

        ID = GEN_ID(COUNTER_ID_ACCONTO,1);
        INSERT INTO
          ACCONTI (ID_ACCONTO,
                   ID_PERSONA,
                   ID_SOCIETA,
                   ID_TIPO_CONTO,
                   ID_TIPO_PAGAMENTO,
                   DATA_PAGAMENTO,
                   EURO ,
                   COMM_ACCONTO,
                   NUM_DOCUMENTO,
                   ID_PRENOTAZIONE
                  )

        VALUES(:ID,
               :ID_PERSONA,
               :ID_SOCIETA,
               :ID_TIPO_CONTO,
               :ID_TIPO_PAGAMENTO,
               :DATA_PAGAMENTO,
               :EURO,
               :COMM_ACCONTO,
               :NUM_DOCUMENTO,
               :ID_PRENOTAZIONE
               );
        EXIT;
end

if in values I insert values instead od parameters TIBQuery  doesn't return 
any error. 
Technical Details
Message-ID: <421b38a0$1@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!proxad.net!fr.ip.ndsoftware.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: fb4e2,b104dbef192c5ab4,start
X-Google-Attributes: gidfb4e2,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: "Gi�" <glazzariniATmediasoft-srlDOTcom>
Newsgroups: borland.public.cppbuilder.database.dbexpress
Subject: TIBQuery
Date: Tue, 22 Feb 2005 14:50:32 +0100
Lines: 57
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
NNTP-Posting-Host: 81.72.21.218
Message-ID: <421b38a0$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1109080224 81.72.21.218 (22 Feb 2005 05:50:24 -0800)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!proxad.net!fr.ip.ndsoftware.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail