Procedimiento que borra

[ronson]

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]

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)

    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]

Hola Ronson,

además de lo que comenta Nuria,

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]

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.