5 respuestas en este tema

[abraham85]

hola gente? como stan?

tengo un form....en dond el usuario pone unos datos y se ejecuta una query, esta query trae los datos consultados por el usuario a un dbgrid, el usuario comienza a modificar las filas del dbgrid, completando una celda de cada fila con un precio.
quiero poner un boton CANCELAR para que si el usuario se equivoco en los datos de la query, o simplemente no quiere guardar los datos q ingreso en el bdgrid, se pueda deshacer todas las modificaciones q hizo anteriormente.
esto lo digo...porq si el usuario modifica una fila en el dbgrid, y da enter, se hace un query.POST(entiendo q eso lo hace automaticamente, sin q yo le haya puesto codigo), entonces quiero q cuando apriete el boton cancelar, todas las modificaciones q haya hecho, se deshagan, se entiende che???

saludos

[egostar]

Tienes las opciones ROLLBACK y COMMIT que son para realizar lo que quieres.

Salud OS

[abraham85]

ego...estoy aprendiendo a usar esas funciones....

puse :
DataModule1.ADOConnection1.BeginTrans;
aca sta el codigo de consulta y de insercion en una tabla
DataModule1.ADOConnection1.CommitTrans;

despues en el boton cancelar le puse una pregunta para confirma si queria cancelar las operaciones

delphi

procedure TFCarga.Button3Click(Sender: TObject);
begin
if(MessageBox(Handle, 'Desea Cancelar la carga?', 'Confirmacion', MB_YESNO+mb_ICONQUESTION)=IDYES) then
       begin
        DataModule1.ADOConnection1.RollbackTrans;
       end;
end;

pero me sale el mensaje "no hay ninguna transaccion activa"

se me ocurre cambiar el boton CANCELAR por uno que se llama GUARDAR...y q pregunte si quiere guardar...y que si dice que SI  q haga el commit  else rollbacks....

alguna sugerencia? 

[abraham85]

bueno le puse asi (ste codigo va en el boton BUSCAR)
DataModule1.ADOConnection1.BeginTrans;
aca abajo sta el codigo de consulta y de insercion en una tabla

y despues en el bton guardar:

delphi

procedure TFCarga.Button3Click(Sender: TObject);
begin
if(MessageBox(Handle, 'Desea guardar la carga?', 'Confirmacion', MB_YESNO+mb_ICONQUESTION)=IDYES) then
       begin
        DataModule1.ADOConnection1.CommitTrans;
       end
       else 
       begin
        DataModule1.ADOConnection1.RollbackTrans;
       end;
end;

hasta aca hace todo lo q quiero 
lo unico q es : como pregunto si hay una transscion activa en ese momento?
porq tengo un boton CERRAR, para cerra el form, pero quiero q el usuario pueda cerrar si antes apreto el boton GUARDAR y definio hace el commit o el rollbacks.
entonces preguntaria si hay una transaccion activa, y si la hay le mando un mensajito de q tiene q Guardar antes de cerrar el form.

saludos 

[egostar]

Eso lo puedes checar con esto:

delphi

  if ADOConnection1.InTransaction = true then
  begin
  end;

Salud OS

[abraham85]

sip..ese era hehhehee 
gracias amigos!

solucionado