Escritura

[el_enigma1]

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?