Ver Mensaje Individual
  #4  
Antiguo 29-04-2004
Avatar de StartKill
StartKill StartKill is offline
Miembro
 
Registrado: ene 2004
Posts: 299
Reputación: 21
StartKill Va por buen camino
Hola a todos,

Amigo xcostey, diste en el punto clave, es lo que buscaba, al margen de la sugerencia de nuestro moderator jachguate.

La sugerencia de xcostey es mas real a mi aplicación, por que??..humm, como les comentaba tengo un grid con varias columnas editables y este dbgrid pinta la columna "terminado", y ya saben el usuario quiere ver su columna con el dato (0/1) segun el presionado "boton", y sin perder los datos que habia modificado en el grid y sin haber hecho aun un commit.

Aqui les pego el codigo ejemplo que probe, tanto el IBQuery como el IBSQL utilizan una misma transaccion,


Código:
procedure TForm1.Button4Click(Sender: TObject);
begin
   IBSQL1.Close;
   IBSQL1.sql.clear();
   IBSQL1.sql.Add('update zzzz set term ='+chr(39)+'0'+chr(39));
   IBSQL1.ExecQuery;
  
   IBquery1.close;
   IBquery1.open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   IBSQL1.Close;
   IBSQL1.sql.clear();
   IBSQL1.sql.Add('update zzzz set term ='+chr(39)+'1'+chr(39));
   IBSQL1.ExecQuery;
  
   IBquery1.close;
   IBquery1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ibtransaction1.Rollback;
  ibquery1.Close;
  ibquery1.Open;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   IBTRANSACTION1.CommitRetaining;
end;
Muchas gracias, y hasta la proxima...

Your friend

StartKill
Lima-Peru
Responder Con Cita