Foros Club Delphi - Procedimiento que borra

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Procedimiento que borra (https://www.clubdelphi.com/foros/showthread.php?t=7806)

ronson

26-02-2004 19:07:16

Procedimiento que borra

Hola amigos tengo este procedure que me borra un albaran:

CREATE PROCEDURE BORRAR_ALBARAN (
NUMERO INTEGER)
AS
BEGIN
DELETE FROM ALBARANES
WHERE NUMERO=:NUMERO;
/* Procedure body */
SUSPEND;
END

Como debo de ejecutarlo en el delphi?.

He probado con un TStoreProcedure pero me dice que no.

Si debo de ejecutarlo con un TQuery, que tengo que poner en la cadena SQL?.

Gracias

Nuria

26-02-2004 19:32:23

Hola!

Lo puedes que ejecutar con TStoredProcedure de la siguiente manera:

1.- Tienes que enlazar el TIBStoredProc con una transacción.

2.- Cuando quieras ejecutar el procedimiento : (transaccion --> tr; TIBStoredProc---> IBP)

Código:

    tr.Active := False;

    IBP.StoredProcName := 'BORRAR_ALBARAN';



    if not tr.InTransaction then

      tr.StartTransaction;



    IBP.ParamByName('NUMERO').AsInteger := 1;

    IBP.ExecProc;

    tr.Commit;

De esta manera te borra el albarán nº 1.

Saludos!

kinobi

26-02-2004 20:05:56

Hola Ronson,

además de lo que comenta Nuria,

Cita:

Empezado por ronson

He probado con un TStoreProcedure pero me dice que no.

Más explícito: "... me dice que no", no ayuda mucho a saber dónde puede estar el problema.

Saludos.

ronson

27-02-2004 10:03:59

muchas gracias Nuria

Una vez mas muchisimas gracias, la verdad es que no se que debi hacer mal por que ayer tras 10 horas programando estaba bastante espeso(por eso kinobi no te conteste), y esta mañana a la primera y eso que el codigo de Nuria era bastante "parecido" al que puse yo pero en fin que le vamois a hacer, incluso el trigger asociado a Borrar_albaran funciona al pelo.

Muchas gracias.

La franja horaria es GMT +2. Ahora son las 23:53:56.