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
