Cita:
Empezado por marcoszorrilla
Yo hago esto:
Código Delphi [-]
procedure TDmRauch.AgendaAfterPost(DataSet: TDataSet);
begin
IbTransAgenda.CommitRetaining;
end;
Un Saludo.
|
ok mira para una insert y un Update hago esto
Una insercion la hago asi
Uso un TIBQuery
insert into TIVA (CVEIVA, DESCRIPCION, IVA) values (:I_CVEIVA, :I_DESCRIPCION, :I_IVA);
y al precionar el BotonInsertar hago esto
QInsertarIVA.Close;
QInsertarIVA.ParamByName('I_CVEIVA').AsString := EClave.Text;
QInsertarIVA.ParamByName('I_DESCRIPCION').AsString := EDescripcion.Text;
QInsertarIVA.ParamByName('I_IVA').AsString := EIVA.Text;
QInsertarIVA.Prepare;
QInsertarIVA.Open;
Una modificacion tambien con TIQuery
update TIVA set DESCRIPCION = :I_DESCRIPCION, IVA = :I_IVA where CVEIVA = :I_CVEIVA;
QModificarIVA.Close;
QModificarIVA.ParamByName('I_CVEIVA').AsInteger := StrToInt(EClave.Text);
QModificarIVA.ParamByName('I_DESCRIPCION').AsString := EDescripcion.Text;
QModificarIVA.ParamByName('I_IVA').AsFloat := StrToFloat(EIVA.Text);
QModificarIVA.Prepare;
QModificarIVA.Open;
Que le quito que le pongo?