¿insertar en procedimientos ?

Giniromero · #1 20-02-2004

Hola,

Estoy trabajando con delphi 6 e interbase 7.

Tengo un procedimiento en IB, que llamo desde mi programa, con un tDataSet, rellenando el EditSQL.

Puedo "Añadir campos" desde el "Editor de campos", pero si desde el "DataSet Editor" genero SQL para insertar, modificar, ... me da error de código SQL al intentar añadir campos nuevos.

La única forma que conozco para que me permita insertar esos campos, es dándole código SQL a la insercción , (insertSQL), pero o no lo hago bien, o no se puede insertar en estos procedimientos.

¿Alguien puede ayudarme con esto?, por que, por lo que tengo leido en el foro, veo que los procedimientos dentro de interbase, son muy comunmente usados, y me imajino que tiene que tener alguna forma de usarlos para insertar registros nuevos.

Gracias

Virginia

__cadetill · #2 20-02-2004

Si he entendido bien, estás utilizando el TIBDataSet para hacer llamadas a un Procedimiento Almacenado???

Si es así, no estás utilizando el componente correcto, has de usar el TIBStoredProc

Giniromero · #3 20-02-2004

Glups! ya sabía yo que tenía que estar haciendo algo mal...

, no hay nada en esta vida como "saber".

Supongo que se usará más o menos igual, ¿no?....

Bueno, pos' lo dicho, que muchas gracias....

Virginia

Giniromero · #4 20-02-2004

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 · #5 20-02-2004

Hola Giniromero!

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 := 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 · #6 21-02-2004

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 · #7 23-02-2004

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 ...

Cita:

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 · #8 23-02-2004

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

Código:

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

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

Código:

BP.ExecProc;

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

Nuria · #9 23-02-2004

Cita:

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.

Cita:

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é.

Cita:

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 · #10 24-02-2004

Hola,

este es mi código:

Cita:

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 · #11 24-02-2004

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!

Giniromero · #12 24-02-2004

Hola Nuria,

El procedimiento funciona perfectamente desde IBExpert, que es, de hecho, donde lo he creado. Me devuelve 300 registros más o menos que son los pendientes de pago.

Por ahí no hay ningún problema.

El tema es que no sé como abrir el procedimiento desde la aplicación.

Te cuento lo que tengo, para ver si me falta algo.

Tengo un procedure creado en IB, (usando IBExpert), que tiene el siguiente código:

Código:

CREATE PROCEDURE PROECONOPAGO (
    NUMALUACT SMALLINT)
RETURNS (
    CODIGO INTEGER,
    NUMALU SMALLINT,
    NUMGRUP SMALLINT,
    FECHA TIMESTAMP,
    ASIENTO INTEGER,
    CONCEPTO VARCHAR(50),
    IMPDEBE NUMERIC(15,2),
    IMPHABER NUMERIC(15,2),
    FORPAGO SMALLINT,
    RECIBO VARCHAR(10),
    FACTURA VARCHAR(10),
    USUARIO VARCHAR(10),
    TIPO VARCHAR(1),
    EMPRESATXT VARCHAR(1),
    CONTROL VARCHAR(1))
AS
DECLARE VARIABLE VCODIGO INTEGER;
DECLARE VARIABLE VNUMALU SMALLINT;
DECLARE VARIABLE VNUMGRUP SMALLINT;
DECLARE VARIABLE VFECHA TIMESTAMP;
DECLARE VARIABLE VASIENTO INTEGER;
DECLARE VARIABLE VCONCEPTO VARCHAR(50);
DECLARE VARIABLE VIMPDEBE NUMERIC(15,2);
DECLARE VARIABLE VIMPHABER NUMERIC(15,2);
DECLARE VARIABLE VFORPAGO SMALLINT;
DECLARE VARIABLE VRECIBO VARCHAR(10);
DECLARE VARIABLE VFACTURA VARCHAR(10);
DECLARE VARIABLE VUSUARIO VARCHAR(10);
DECLARE VARIABLE VTIPO VARCHAR(1);
DECLARE VARIABLE VPRODUCTOGRUP VARCHAR(2);
DECLARE VARIABLE VEMPRESAPRO VARCHAR(1);
begin
for select CODIGO, NUMALU, NUMGRUP, FECHA, ASIENTO, CONCEPTO, IMPDEBE, 
IMPHABER, FORPAGO, RECIBO, FACTURA, USUARIO, TIPO

from ECONO
WHERE NUMALU =:NUMALUACT
order by numalu
into
:VCODIGO,:VNUMALU,:VNUMGRUP,:VFECHA,:VASIENTO,:VCONCEPTO,:VIMPDEBE,
:VIMPHABER, :VFORPAGO,:VRECIBO,:VFACTURA,:VUSUARIO,:VTIPO  do
begin
select  PRODUCTO from grupos where NUMGRUP =:vnumgrup  into  :vproductogrup ;
select  EMPRESA from produ where PRODUCTO=:vproductogrup  into :vempresapro;

  If (:vasiento <2 AND :vimpdebe <> 0 ) Then Begin
    CODIGO = :VCODIGO;
    NUMALU = :VNUMALU;
    NUMGRUP = :VNUMGRUP;
    FECHA = :VFECHA;
    ASIENTO = :VASIENTO;
    CONCEPTO = :VCONCEPTO;
    IMPDEBE = :VIMPDEBE;
    IMPHABER = :VIMPHABER;
    FORPAGO = :VFORPAGO;
    RECIBO = :VRECIBO;
    FACTURA = :VFACTURA;
    USUARIO = :VUSUARIO;
    TIPO = :VTIPO;
    EMPRESATXT =:vempresapro;
    suspend;
    end
end
end

Luego, en mi aplicación, (usando delphi 6 e interbase 7), dentro de un DataModule, tengo un TIbStorePro, conectado a una transaccion que solo le afecta a el, conectada a la base de datos general.

El TIBStorePRo tiene las siguientes propiedades:

Cita:

object TbEconoPago: TIBStoredProc
Database = IBDBFX
Transaction = IBTransFXProce
OnCalcFields = TbEconoPagoCalcFields
OnNewRecord = TbEconoPagoNewRecord
StoredProcName = 'PROECONOPAGO'
Left = 282
Top = 80
ParamData = <
item
DataType = ftInteger
Name = 'CODIGO'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'NUMALU'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'NUMGRUP'
ParamType = ptOutput
end
item
DataType = ftDateTime
Name = 'FECHA'
ParamType = ptOutput
end
item
DataType = ftInteger
Name = 'ASIENTO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'CONCEPTO'
ParamType = ptOutput
end
item
DataType = ftBCD
Name = 'IMPDEBE'
ParamType = ptOutput
end
item
DataType = ftBCD
Name = 'IMPHABER'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'FORPAGO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'RECIBO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'FACTURA'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'USUARIO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'TIPO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'EMPRESATXT'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'CONTROL'
ParamType = ptOutput
item
DataType = ftSmallint
Name = 'NUMALUACT'
ParamType = ptInput
end

end>
object TbEconoPagoCODIGO: TIntegerField
FieldName = 'CODIGO'
Origin = 'PROECONOPAGO.CODIGO'
end
object TbEconoPagoNUMALU: TSmallintField
FieldName = 'NUMALU'
Origin = 'PROECONOPAGO.NUMALU'
end
object TbEconoPagoNUMGRUP: TSmallintField
FieldName = 'NUMGRUP'
Origin = 'PROECONOPAGO.NUMGRUP'
end
object TbEconoPagoFECHA: TDateTimeField
FieldName = 'FECHA'
Origin = 'PROECONOPAGO.FECHA'
end
object TbEconoPagoASIENTO: TIntegerField
FieldName = 'ASIENTO'
Origin = 'PROECONOPAGO.ASIENTO'
end
object TbEconoPagoCONCEPTO: TIBStringField
FieldName = 'CONCEPTO'
Origin = 'PROECONOPAGO.CONCEPTO'
Size = 50
end
object TbEconoPagoIMPDEBE: TIBBCDField
FieldName = 'IMPDEBE'
Origin = 'PROECONOPAGO.IMPDEBE'
Precision = 18
Size = 2
end
object TbEconoPagoIMPHABER: TIBBCDField
FieldName = 'IMPHABER'
Origin = 'PROECONOPAGO.IMPHABER'
Precision = 18
Size = 2
end
object TbEconoPagoFORPAGO: TSmallintField
FieldName = 'FORPAGO'
Origin = 'PROECONOPAGO.FORPAGO'
end
object TbEconoPagoRECIBO: TIBStringField
FieldName = 'RECIBO'
Origin = 'PROECONOPAGO.RECIBO'
Size = 10
end
object TbEconoPagoFACTURA: TIBStringField
FieldName = 'FACTURA'
Origin = 'PROECONOPAGO.FACTURA'
Size = 10
end
object TbEconoPagoUSUARIO: TIBStringField
FieldName = 'USUARIO'
Origin = 'PROECONOPAGO.USUARIO'
Size = 10
end
object TbEconoPagoTIPO: TIBStringField
FieldName = 'TIPO'
Origin = 'PROECONOPAGO.TIPO'
Size = 1
end
object TbEconoPagoEMPRESATXT: TIBStringField
FieldName = 'EMPRESATXT'
Origin = 'PROECONOPAGO.EMPRESATXT'
Size = 1
end
object TbEconoPagoCONTROL: TIBStringField
FieldName = 'CONTROL'
Origin = 'PROECONOPAGO.CONTROL'
Size = 1
end
object TbEconoPagoNUMALUACT: TSmallintField
FieldName = 'NUMALUACT'
Origin = 'PROECONOPAGO.NUMALUACT'
Size = 1
end

end

Este TIbStoreProc tiene un DataSource enlazado a él.

Este DataSource está relacionado con el DBGrid de la ventana en la que quiero se muestren los registros de los apunte económicos pendientes de pago, que, como te comenté antes, salen vacios, como si no lo ejecutase.

El código que utilizo para abrir este procedimiento es:

Código:

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


     TRY
        FrmDMOdule.IBTransFXProce.Active := false;

        if not FrmDModule.IBTransFXProce.InTransaction then begin
           FrmDModule.IBTransFXProce.StartTransaction;
        end;
        FrmDModule.TbEconoPago.ParamByName('numaluACT').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger;
        FrmDModule.TbEconoPago.Prepare;
        FrmDMOdule.IBTransFXProce.Active := true;
        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;

Muchas gracias por la ayuda,

Virginia

__cadetill · #13 24-02-2004

Hola Virginia

Quizás este hilo te sirva de guía para lo que quieres hacer

Giniromero · #14 24-02-2004

Gracias Cadetill,

La construcción de procedimientos, en mi caso no es
maravillosa, pues no tengo mucha esperiencia, pero
funciona ok, con sus parámentros de entrada, de salida,...
pero hay algo que no entiendo, a pesar de haber leido el
hilo que me apuntaste.

Para llamar al procedimiento desde el programa, ¿no
puedo usar el TIbStorePRoc?, tengo que hacerlo desde otro
tipo de conexión? por que la verdad, yo estaba usando
TbDataSet, pero una de las cosas que me interesan, es
poder guardar registros nuevos a través de ese
procedimiento, vamos, que no sea sólo "lectura", y esta es
la razón por la que me pasé a usar TIBStoreProc.

Probé a conectar un TIbDataSet, cuando no se le insertaba
parámetros de entrada, y se abría y se mostraban los
datos en el dbgrid, pero esa opción no me vale, pues,
como ya dige ante, tengo que poder insertar registros
nuevos, y usando el TIBDataSet no se puede.

De todos modos, creo que no he entendido bien lo que le
están recomendando en ese hilo.

por que ese de:

Código:

 utilizar procedimientos para filtrar una tabla (o una join 
sobre varias tablas) no es el procedimiento habitual ni el 
recomendado, para eso tienes la cláusula WHERE.

¿Que quiere decir esto? ¿para que se puede usar entonces?
pues, o no lo he entendido bien, o me descoloca la idea
que tenía de los procedimientos.

Muchas gracias por la ayuda,

Virginia

Nuria · #15 24-02-2004

Hola Virginia!

Código:

FrmDModule.TbEconoPago.ParamByName('numaluACT').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger;

Has hecho una parada para ver que valor le estas mandando al procedimiento, ya que me comentabas que siempre te salía 'No existen efectos a pagar !!!' . Es una sugerencia porque no sé donde te puede estar fallando, te lo seguiré mirando.

Saludos!

Giniromero · #16 24-02-2004

Hola a tod@s,

he vuelto a mirarme lo que pone en "developer's guide" respecto de los procedimientos, y ahora si que no sé que pensar.

Por un lado vosotros me comentais que no hay que poner el TIBStoredProc.Active := True;

por otro lado leo que:

"For Stored procedures that return a cursor, use the active property or the open method"

Además, veo como el mismo procedimiento, (sin parametros input), que estoy utilizando, me muestra los registros en el dbgrid, cuando uso un dataset para mostrarlos, pero no parece abrirse cuando ese mismo procedure lo intento mostrar en el mismo DBgrid, usando un tIBStoredProc.

Es como si no se abriese, de hecho, tengo que ejecutar una inserción despues de mostrar el form con el dbgrid que tendría que mostrarme los registros, y al ir a hacer dicha insercción, me dice que la tabla esta cerrada.

Por favor, ¿alguien podría ponerme un ejemplo, de uso de este objeto o decirme como hacer?

Estoy empantanada mientras no lo consigua poner en marcha.

Muchas gracias por vuestra ayuda,

Virginia

Giniromero · #17 24-02-2004

Hola Nuria,

Le estoy pasando el valor del alumno que está actualmente activo.
El "FrmDModule.TbAlumnosNUMALU.AsInteger;"
aparentemente funciona ok. Si le digo que :

showmessage (FrmDModule.TbAlumnosNUMALU.asstring);

efectivamente me devuelve el valor del alumno activo.

De todos modos, eso es lo de menos, por que tambiem me da problemas si hago que no aparezca esa variable ni en el servidor de bD, ni en la aplicación.

Creo sinceramente, que el problema es que NO se está abriendo el procedimiento o que no stoy usando bien el TIBStoredProc.

¿ha usando alguien alguna vez el TIbStoredProc para mostrar registros que devuelve en un DBgrid?

Por que es eso, básicamente lo que necesito.

En tal caso, ¿como lo abría/ponía en funcionamiento, vamos, como mostrar en ese DBGrid, los datos que, por lo menos me muestra sin problemas en el IBExpert cuando ejecuto este procedimiento?

Gracias a todos por la ayuda,

Virginia

guillotmarc · #18 24-02-2004

Hola.

En dbExpress no se puede abrir un SP, si devuelve datos, para abrirlos en un dataset tienes que usar un Query y lanzar una consulta del tipo :

select * from Procedimiento(:Parametro)

Imagino que en IBX es parecido.

Giniromero · #19 25-02-2004

Hola,

Cita:

En dbExpress no se puede abrir un SP, si devuelve datos, para abrirlos en un dataset tienes que usar un Query y lanzar una consulta del tipo :

select * from Procedimiento(:Parametro)

Una vez más disculpaz por mi torpeza, pero :

"¿si devuelve datos? "

Pensaba que todos los procedimientos, de un modo u otro, devolvían datos. ¿Te refieres a si devuelve registros?, ¿hay procedimientos que no devuelvan ningún dato?

"¿para abrirlos en un dataset tienes que usar un Query y lanzar una consulta?"

A ver que me aclare. ¿Tengo que usar un dataSet en el que ponga, dentro de la propiedad del SelectSQL, código como el que tu me pasas?, ¿A que te refieres con lanzar una consulta?
y con eso, ¿podré insertar registros usando ese DataSet?, entonces, ¿cuando se usa el TIBStoredPRoc?

Muchas gracias por vuestra paciencia y ayuda.

Virginia

Nuria · #20 25-02-2004

Hola!

No había caido, Marc tiene razón. en los IBX es igual.

En el IBDataSet en la propiedad SelectSQL : select * from Procedimiento(:Parametro) y funciona perfectamente, creo que en tú caso deberías ponerlo en la propiedad InsertSQL, nunca he usado esta propiedad con procedimientos, pero supongo que no será problema.

Cita:

¿cuando se usa el TIBStoredPRoc?

Lo puedes utilizar, cuando por ejemplo, tengas que hacer un procedimiento, nunca mejor dicho, que se repite muchas veces , como calcular totales,ect.
Ejecutas el TIBStoredProc.

No se si me explicado bien...