servicomp
07-08-2006, 18:56:11
Anteriormente solicite la ayuda del foro para resolver un problema sobre como adicionar registro en una base datos en interbase usando delphi y conactandola mediante IBX
Le he hecho caso a mis compañeros y tengo una Edit donde capturo la información que debe de ir en el campo llave, y unos DBEdit donde se captura la información Complementaria. Tengo en la forma un boton que me permite grabar la información.
En el boton de grabar tengo el siguiente codigo:
DataM.IBDataSet1.Open;
DataM.IBDataSet1.Append;
Edit1.SetFocus;
En el IBDataSet en el SQL Select tenemos algo asi:
INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3) VALUES (:CAMPO1, :CAMPO2, :cAMPO3)
El campo1 es el campo llave.
Al Activar el botón de grabar, graba la información con excepción del campo llave que se encuentra en Edit1.Text.
Creo que debo agregar una instrucción asi
INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3) VALUES (:edit1.text, :CAMPO2, :cAMPO3)
Lo que pasa es que si inserto este tipo de instrucción no se me activa el IBDataset1.
Si debo de agregarlo en el evento del boton grabar como lo debo de hacer.
Agradeciendo su ayuda
Le he hecho caso a mis compañeros y tengo una Edit donde capturo la información que debe de ir en el campo llave, y unos DBEdit donde se captura la información Complementaria. Tengo en la forma un boton que me permite grabar la información.
En el boton de grabar tengo el siguiente codigo:
DataM.IBDataSet1.Open;
DataM.IBDataSet1.Append;
Edit1.SetFocus;
En el IBDataSet en el SQL Select tenemos algo asi:
INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3) VALUES (:CAMPO1, :CAMPO2, :cAMPO3)
El campo1 es el campo llave.
Al Activar el botón de grabar, graba la información con excepción del campo llave que se encuentra en Edit1.Text.
Creo que debo agregar una instrucción asi
INSERT INTO TABLA1 (CAMPO1, CAMPO2, CAMPO3) VALUES (:edit1.text, :CAMPO2, :cAMPO3)
Lo que pasa es que si inserto este tipo de instrucción no se me activa el IBDataset1.
Si debo de agregarlo en el evento del boton grabar como lo debo de hacer.
Agradeciendo su ayuda