refrescado de datos

[marcoszorrilla]

Lo que dice Nemesio es cierto, pero solamente para el puesto que efectúa los cambios, si otro usuario tuviese abierta una consulta y se produjera un cambio, no vería la nueva situación puesto que en su momento obtuvo la tupla de datos, para esto existe la posibilidad de colocar un Timer que cada x tiempo recomponga la consulta para traernos los posibles cambios producidos.

Creo que en el caso de Interbase puede utilizarse el IBevents, pero no tengo ahora a mano documentación al respecto.

Un Saludo.

[[BlueSteel]]

Con este proceso almaceno un dato en la tabla "Centro", .. esto lo hago en el Form "Ccostos"

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Insert Into "Centro" ("Cen_Codigo","Cen_Detalle")');
IBQ_Edit.SQL.Add('Values (:P1, :P2)');
IBQ_Edit.Params[0].AsString := vCod.Text;
IBQ_Edit.Params[1].AsString := vDet.Text;
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;

para cerrar el Form le pongo solamente "close"

luego voy al Form "Cargos" y cuando este se abre me ejecuta el siguiente código, en donde todos los datos que estan en la tabla "Centro" me los pasa al Combo_Box "CB_Centro" para agregarlos

Código Delphi [-]
procedure TAsig_Costos.FormActivate(Sender: TObject);
begin
     IBQ_Cargos.Close;
     IBQ_Cargos.SQL.Clear;
     IBQ_Cargos.SQL.Add('Select * From "Centro"');
     IBQ_Cargos.SQL.Add('Order By "Cen_Codigo"');
     IBQ_Cargos.Open;
     CB_Centro.Items.Clear;

     While IBQ_Cargos.Eof=False Do
     Begin
          CB_Centro.Items.Append(IBQ_Cargos['Cen_Detalle']);
          IBQ_Cargos.Next;
     End;

lo que pasa es que cuando agrego un registro en la tabla "centro" y sin salir del sistema ingreso al Form "Cargos", este no aparece registrado.. pero si salgo del sistema e ingreso de nuevo.. lo actualiza y si aparece

espero haberme explicado bien....

[marcoszorrilla]

Cuando entras en el segundo form, cierra y vuelve a abrir la tabla centro.

Un Saludo.

[[BlueSteel]]

y como tendria que cerrarlo... sera algo asi

Código Delphi [-]
IBQ_Cargos.Active := False;
//luego lo vuelvo a abrir
IBQ_Cargos.Active := True;

[marcoszorrilla]

Pues sí, creo que con eso sería suficiente.

Un Saludo.