Error de Inserción con IBX

[MALBOTO22]

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:

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

[[Lepe]]

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

[MALBOTO22]

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