TransWikia.com

Sincronizar una tabla

Stack Overflow en español Asked by Horacio Martinazzi on December 4, 2021

Esta aplicación se ejecuta en una tablet, dentro de una red.
Tengo un Botón que agrega un registro a una tabla:

procedure TTurnosList.CornerButton1Click(Sender: TObject);
begin
          with D_Turnos do
               begin
                    TurnosSocios.Insert;
                    TurnosSociosCod_Socio.Value := SociosCod_Socio.Value;
                    Cod_Socios_Esperando.Add(IntToStr(D_Turnos.SociosCod_Socio.Value));
                    TurnosSocios.Post;
                    TurnosSocios.ApplyUpdates();
                    TurnosSocios.CommitUpdates;
                    ConexionTurnos.Commit;
               end;
end;

Por otra parte, desde otras PC’s pueden actualizar la misma tabla. Y con un TIdTCPServer tengo que actualizar la vista de dicha tabla, que lo hago a continuación

procedure TD_Turnos.Tablet_IdTCP_ServerExecute(AContext: TIdContext);
var S: String;
begin
     S := AContext.Connection.Socket.ReadLn;
     if S <> ''
     then
          Begin
               TurnosSocios.Close;
               TurnosSocios.Open;
               TurnosList.Cod_Socios_Esperando.Delete(StrToInt(S));
          End;
end;

La pregunta es ¿Cómo los sincronizo para evitar conflictos?.

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP