¿insertar en procedimientos ?

[Giniromero]

Hola,
He usado el TIBStoredProc en vez del tibDataSet, y al compilar el programa me resuelve el siguiente error, cuando se está abriendo la base de datos,

"Use ExecProc for Procedure : use TQuery for Select procedures"

supongo que hay algo más que debo saber al respecto de los TIBStoredProc, como por ejemplo, como les pido que se abran, si es que hay que pedirselo.

GRacias,

Virginia

[Nuria]

Hola Giniromero!

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 := nombredelprocedimiento;

    if not tr.InTransaction then
      tr.StartTransaction;

    // Si tuvieras que enviarle algun parámetro
    IBP.ParamByName('Parametro').AsInteger := Para;
    IBP.ExecProc;
    tr.Commit;

No sé si me he explicado bien.

Saludos!

[kinobi]

Hola,

como es un asunto de componentes de acceso, muevo el hilo desde "InterBase y Firerbird" a "Conexión con bases de datos".

Saludos.

[Giniromero]

Perdonar mi torpeza, pero, ......

1) ¿tengo que "abrir" el StoredPRoc, como con las tablas, esto es:

IBStoredPRoc.Active := True;?


2) En la ayuda que tengo de Ib me dicen que tengo que usar "prepare" para el IBStoredPRoc.

Después dentro de un try lo ejecutarlo con ExecProc
y en el finally le hago un "unprepare" para liberar los recursos que este estuviera usando.

Ahora, me comentais que ...

tr.Active := False;
IBP.StoredProcName := nombredelprocedimiento;

if not tr.InTransaction then
tr.StartTransaction;

// Si tuvieras que enviarle algun parámetro
IBP.ParamByName('Parametro').AsInteger := Para;
IBP.ExecProc;
tr.Commit;

Me podríais, si no es mucha molestia, explicar para que sirbe, y como usar, cada uno de estos comandos relaccionados con el IBStoredPRoc? Por que me estoy haciendo un lío, y no parece que consigua hacerlo funcionar.

Muchas gracias por todo,


Virginia

[__cadetill]

A ver, un IBStoredProc tienes que planteartelo "como si fuera" una TIBQuery con parámetros. Es decir, a un procedimiento almacenado, tu puedes pasarle parámetros si los necesitas (que puedes definirlos en la propiedad Params del mismo), que es lo que te comenta Nuria con lo de

BP.ParamByName('Parametro').AsInteger := Para;

Por otro lado, un TIBStoredProc no "se abre", sino que se ejecuta

BP.ExecProc;

Y por supuesto ha de ir dentro de una transacción

[Nuria]

1) ¿tengo que "abrir" el StoredPRoc, como con las tablas, esto es:

IBStoredPRoc.Active := True;?

No, porque el IBStoredProc lo tienes enlazado con una transacción, lo que realmente activas es la transacción.

2) En la ayuda que tengo de Ib me dicen que tengo que usar "prepare" para el IBStoredPRoc.

Yo no lo uso y me funciona correctamente. Quizá es recomendable usarlo no sé.

Por que me estoy haciendo un lío, y no parece que consigua hacerlo funcionar.

Porque no pones parte del código para ver si hay algo que haces mal.

Saludos!

[Giniromero]

Hola,

este es mi código:

screen.cursor := crHourGlass;
FrmEfePago := TFrmEfePago.Create(Self);
Screen.cursor := crDefault;

FrmDModule.TbEconoPago.Prepare;
TRY
FrmDModule.IBTransFXProce.Active := false;

if not FrmDModule.IBTransFXProce.InTransaction then begin
FrmDModule.IBTransFXProce.StartTransaction;
end;
FrmDModule.TbEconoPago.ParamByName('numalu').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger;
FrmDModule.TbEconoPago.ExecProc;
//si NO hay registros de deudas
// if FrmDmodule.TbEconoPago.RecordCount = 0 then begin
// showmessage('No existen efectos a pagar !!!');
// end
// else begin // Si hay registros de deudas
//inserta un registro
FrmDmodule.TbEcono.Append;
//mostramos como modal el form
FrmEfePago.ShowModal;
// end;

FrmDMOdule.IBTransFXProce.Commit;
FINALLY

FrmEfePago.Free;
//liberamos recursos usados con el Procedure
FrmDMOdule.TbEconoPago.UnPrepare;
END;

Si quito el comentario del " if FrmDmodule.TbEconoPago.RecordCount = 0 then " me responde siempre que 'No existen efectos a pagar !!!'

Si lo comento, al menos me deja entrar en la ventana en cuestión, pero este procedimiento está conectado con un DBgrid, que no muestra nada, asíque parece como si ni siquiera se llegase a abrir el procedimento.

hay algo que se me esté escapando?

GRacias por la ayuda.

Virginia

[Nuria]

Hola Giniromero!

Una sugerencia, has probado el procedimiento por el ibConsole o algún programa similar, igual lo que te falla es el procedimiento. Haz la comprobación desde ahí a ver si te devuelve registros.

Podías indicar el código del procedimiento.

Saludos!