FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿insertar en procedimientos ?
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#4
|
|||
|
|||
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#5
|
||||
|
||||
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; Saludos! |
#6
|
||||
|
||||
Hola,
como es un asunto de componentes de acceso, muevo el hilo desde "InterBase y Firerbird" a "Conexión con bases de datos". Saludos. |
#7
|
|||
|
|||
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:
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#8
|
|||
|
|||
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; Código:
BP.ExecProc; |
#9
|
||||
|
||||
Cita:
Cita:
Cita:
Saludos! |
#10
|
|||
|
|||
Hola,
este es mi código: Cita:
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#11
|
||||
|
||||
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! |
#12
|
|||
|
|||
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 El TIBStorePRo tiene las siguientes propiedades: Cita:
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#14
|
|||
|
|||
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. pues, o no lo he entendido bien, o me descoloca la idea que tenía de los procedimientos. Muchas gracias por la ayuda, Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) Última edición por Giniromero fecha: 24-02-2004 a las 13:50:20. |
#15
|
||||
|
||||
Hola Virginia!
Código:
FrmDModule.TbEconoPago.ParamByName('numaluACT').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger; Saludos! |
#16
|
|||
|
|||
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#17
|
|||
|
|||
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#18
|
||||
|
||||
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.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#19
|
|||
|
|||
Hola,
Cita:
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#20
|
||||
|
||||
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:
Ejecutas el TIBStoredProc. No se si me explicado bien... |
|
|
|