SQL-Suchergebnis nachträglich noch mal einschränken

[norwegen60]

Zitat von haentschman:

Moin...

Delphi-Quellcode:

while not dbquSQL.Eof do
begin
  if not TFile.Exists(dbquSQL.FieldByName('Feld mit dem Dateinamen').AsString) then
  begin
    dbquSQL.Edit;
    dbquSQL.FieldByName('FileExist').AsInteger = 0:
    dbquSQL.Post;
  end;
  dbquSQL.Next;
end;

Natürlich Edit und nicht Open. War ein Schreibfehler
Ging aber erst nachdem Options.SetFieldsReadOnly entsprechend gesetzt war

Delphi-Quellcode:

  // Damit VersionExists nachträglich geändert werden kann. Muss vor der ersten Ausführung des SQL stehen
  dbquSQL.Options.SetFieldsReadOnly := false;

  // SQL-Statement ausführen
  dbquSQL.Open;

  // Prüfen, ob schon eine versionierte Datei vorliegt
  while not dbquSQL.Eof do
  begin
    sNr := dbquSQL.FieldByName('DokNr').AsString;
    if (GetVersionedFiles(sNr)) then
    begin
      dbquSQL.Edit;
      dbquSQL.FieldByName('VersionExists').Value := 0;
      dbquSQL.Post;
    end;
    dbquSQL.next;
  end;

Grüße
Gerd