Ver Mensaje Individual
  #5  
Antiguo 22-06-2005
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 26
maeyanes Va por buen camino
El problema puede estar en la transacción...

Me imagino que pusiste un componente FIBDatabase y un FIBTransaction, entonces, puedes intentar algo como:

Código Delphi [-]
FIBTransaction.StartTransaction; // Inicias la transacción
try
  with FIBQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO Insumos (cod_insumo, desc_insumo)');
      SQL.Add('VALUES (' + QuotedStr(edCodigo.Text) + ',' + QuotedStr(edDescrip.Text) + ') ');
      ExecQuery;
      FIBTransaction.Commit // Luego de insertar el registro, haces commit
    end
except
  FIBTransaction.Rollback;  // Si hay algún error, deshechas la transacción
  raise
end;
Responder Con Cita