Foros Club Delphi - Error de Inserción con IBX

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Error de Inserción con IBX (https://www.clubdelphi.com/foros/showthread.php?t=31322)

Error de Inserción con IBX

Estoy empezando a hacer uso de los componentes IBX, como prueba intento agregar un registro a una tabla pero me sale el siguiente error "EMPTY QUERY". Si alguien me puede indicar cual es mi error les agradezco o si me pueden indicar donde puedo encontrar información para la solución de mi problema les agradezco.

El codigo que uso es el siguiente:

Código:

 

...

type

  TForm1 = class(TForm)

    IB_TR: TIBTransaction;

    IB_DS: TIBDataSet;

    Image1: TImage;

    IB_DB: TIBDatabase;

    BitBtn1: TBitBtn;

    IB_TB1: TIBTable;

    IB_TB1COD_FTE: TIntegerField;

    IB_TB1COD_CLI: TSmallintField;

    IB_TB1CED_EMP: TIntegerField;

    IB_TB1HORA_INICI: TDateTimeField;

    IB_TB1HORA_FINAL: TDateTimeField;

    IB_TB1SEC_NUM: TSmallintField;

    IB_TB1NUM_HORAS: TFloatField;

    procedure BitBtn1Click(Sender: TObject);

 

....

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

    try

        IB_DB.Connected := True;

    except

        Application.MessageBox('No se pudo establecer conexión con la Base de Datos','Información',MB_OK + MB_ICONINFORMATION);

        Application.Terminate;

    end;

    IB_TR.Active := True;

    IB_DS.Close;

    IB_DS.InsertSQL.Clear;

    IB_DS.InsertSQL.Add('INSERT INTO TU_PROGRA_VIGI(COD_FTE,COD_CLI,CED_EMP,HORA_INICI,HORA_FINAL,SEC_NUM,NUM_HORAS)VALUES (941,94,6464789,"12/30/1899 06:00","12/30/1899 18:00",1,12)');

    IB_DS.Open;

    IB_DS.Append;

    IB_DS.Insert;

    IB_DS.Post;

    IB_TR.Commit;

    Application.MessageBox('Actualización realizada con exito','Información',MB_OK + MB_ICONINFORMATION);

end;

De antemano, gracias por la colaboración que me puedan brindar.

Martin Bobadilla :(

las lineas:
IB_DS.Open;
IB_DS.Append;
IB_DS.Insert;
IB_DS.Post;

borralas y escribe:
IB_DS.ExecQuery;

Es todo.

La verdad es que se suele poner DBedits enlazados a ese IBdataset y un DBnavigator, y funciona exactamente que con paradox.

Lo diferente es que el IBDataset trae las 3 sqls, inserción borrado , actualización, tú las escribes en tiempo de diseño y Cuando modificas los DBedits, interbase se encarga de enviar la sql que corresponde, así que no tienes que hacer todo eso a mano, bueno... puede que en algun caso concreto si.

Si vas a empezar, te recomiendo Firebird con MDOLIB, busca en el foro.

Saludos

Error de Inserción con IBX

Lepe, gracias por su respuesta.

Voy a hacer la prueba de las intrucciones que me indica y de igual forma voy a bajar los componentes para realizar las pruebas pertinentes.

Mil gracias,

Martin Bobadilla