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?

[__cadetill]

Para empezar, para sentencias SQL que no devuelven valores, no has de usar Open, sino ExecSQL

Luego, despues del ExecSQL es cuando has de hacer un Commit o CommitRetaining de la transacción

Espero te sirva

[el_enigma1]

Empezado por cadetill

Para empezar, para sentencias SQL que no devuelven valores, no has de usar Open, sino ExecSQL

Luego, despues del ExecSQL es cuando has de hacer un Commit o CommitRetaining de la transacción

Espero te sirva

La verdad como siempre lo he hecho asi, a tambien porque en la escuela asi me enseñaron.

Gracias al ratito cuento que tal.

[el_enigma1]

Cadetill eso era lo que necesitaba.


Bueno, ya quedo y muchas gracias a todos, que la verdad ya me traia loco.