Hallo zusammen,
ich habe ein Programm an dem mehrere Benutzer gleichzeitig arbeiten, daher muss ich eine Tabelle sperren und nach ablauf eines Algorithmus wieder freigeben. Ich hab hier schon gelesen, dass das per Lock funktionieren soll. Hat da jemand wohl einen Code? Hab ich hier leider nicht gefunden
Delphi-Quellcode:
programmdb.ADOEintragsID.Open;
programmdb.ADOEintragsID.First;
eintragsID:=programmdb.ADOEintragsIDID.Value;
programmdb.ADOEintragsID.Delete;
try
programmdb.ADOEintragsID.insert;
programmdb.ADOEintragsIDID.Value:=eintragsID+1;
programmdb.ADOEintragsID.Post;
except
MessageDlg('Fehler', mtError, [mbOK], 0);
end;
programmdb.ADOEintragsID.Close;
Während dieser Procedure muss ich die Tabelle ADOEintragsID sperren und wieder freigeben.
Wäre für jede Hilfe sehr dankbar