ADO Tabelle per Code Sperren und freigeben

[sventeq]

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

[sventeq]

Kann mir da keiner helfen?

[sventeq]

Wirklich niemand, der mir da wenigstens einen Tipp geben kann??

[nahpets]

Hallo,

Zitat von sventeq:

Kann mir da keiner helfen?

nur Geduld, wir sind doch keine D-Züge

Schau in der Hilfe mal nach TADOLockType, ltPessimistic sollte für Dich das passende sein.

Stephan

[sventeq]

Zitat von nahpets:

Hallo,

Zitat von sventeq:

Kann mir da keiner helfen?

nur Geduld, wir sind doch keine D-Züge

Schau in der Hilfe mal nach TADOLockType, ltPessimistic sollte für Dich das passende sein.

Stephan

Sorry, bin da echt dran verzweifelt. Danke für deine Hilfe.

Wie schreibt man das dann im Code?
  programmdb.ADOEintragsID.LockType:=ltPessimistic; So vielleicht?
Und wie gibt man die Tabelle wieder frei oder passiert das nach der Bearbeitung des Datensatzes automatisch?

[nahpets]

Hallo,

der Code sollte richtig sein und die Tabelle solange gesperrt, bis die aktuelle Transaktion abgeschlossen ist.
Bitte ausprobieren, hab's selbst noch nicht benutzt und müsste jetzt auch raten.

so in der Art?

Delphi-Quellcode:

programmdb.ADOEintragsID.LockType := ltPessimistic;
programmdb.ADOEintragsID.Connection.BeginTrans;
...
programmdb.ADOEintragsID.Connection.CommitTrans;

Stephan

[sventeq]

Zitat von nahpets:

Hallo,

der Code sollte richtig sein und die Tabelle solange gesperrt, bis die aktuelle Transaktion abgeschlossen ist.
Bitte ausprobieren, hab's selbst noch nicht benutzt und müsste jetzt auch raten.

so in der Art?

Delphi-Quellcode:

programmdb.ADOEintragsID.LockType := ltPessimistic;
programmdb.ADOEintragsID.Connection.BeginTrans;
...
programmdb.ADOEintragsID.Connection.CommitTrans;

Stephan

Da bekomme ich eine Fehlermeldung: Undefinierter Bezeichner: ltPessimistic

[DeddyH]

Die Unit ADOdb ist eingebunden?

[sventeq]

Zitat von DeddyH:

Die Unit ADOdb ist eingebunden?

Jetzt ja....

[sventeq]

Vielen Dank für die Hilfe.
Eine Frage hab ich noch. Wenn der Datensatz dann gesperrt ist und ein anderer Benutzer dann zugreifen will, bekommt der dann eine Fehlermeldung mit "Der Datensatz ist momentan gesperrt" oder sowas, oder muss er einfach einen Moment länger warten bis der Datensatz wieder freigegeben ist.
Ich kann das im Moment nicht testen, da sich das Netzwerk in der Uni befindet und ich es nicht immer zur Verfügung habe.

sventeq