SQL-Suchergebnis nachträglich noch mal einschränken

[norwegen60]

Hallo zusammen,

ich zeige das Ergebnis ein SQL-Abfrage direkt in einem DbGrid an. Die SQL-Liste entält z.B. eine Liste von bestimmten Dokumenten. Jetzt möchte ich zusätzlich per (erweitertem) FileExists abfragen, ob die Datei auch physisch existiert. Selbst wenn es in SQL einen Befehl gäbe der die Suche nach Dateien zuließe, ginge das nicht, da schon die Festlegung des Verzeichnis in Delphi programmiert ist.

Hat jemand eine Idee, wie per zweitem Schritt durch die Ergebnismenge gegangen werden kann und dort ein Flag gesetzt wird, das noch mal einzelne Sätze ausblendet, so dass die Darstellung weiter per DbGrid erfolgen kann.

Oder bleibt mir nichts anderes übrig, als auf Grid zu wechseln und das Einfügen selber zu übernehemen?

Grüße
Gerd

[mkinzler]

Man kann die Ergebnismenge natürlich auch noch lokal Filtern.

Delphi-Quellcode:

<DataSet>.Filter := ...
<DataSet>.Filtered := True;

[norwegen60]

Erst dachte ich "Klar, ganz einfach" aber es hakt an der Umsetzung

Wenn ich bei folgendem SQL

Code:

select d.Nr, v.version, FileExist = 1
from Table1 d
left outer join Table2 v on v.id = d.Table2ID

in einem zweiten Schritt das Feld FileExist entsprechend meiner Suche

Delphi-Quellcode:

while not dbquSQL.Eof do
begin
  if not FileExist then
  begin
    dbquSQL.Open;
    dbquSQL.FieldByName('FileExist').Value = 0:
    dbquSQL.post;
  end;
  dbquSQL.next;
end;

anpasse bekomme ich die Fehlermeldung "Feld 'FileExist' kann nicht verändert werden"
Wie kann ich ein Feld in einer Suchmenge ändern um dann den Filter zu setzen?

Grüße
Gerd

[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;

[Schokohase]

Es gibt berechnete Felder, die dann in dem Event TDataSet.OnCalcFields berechnet werden.

Darüberhinaus kann man zum Filtern den Event TDataSet.OnFilterRecord verwenden.
Einfach die Eigenschaft TDataSet.Filtered auf true setzen und gut ist.

Ein Nachträgliches Bearbeiten der Datenmenge ist hier eher kontraproduktiv.

[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

[TigerLilly]

Unter MS-SQL kannst du auf die Existenz von Dateien prüfen:
dbo.xp_fileexist @path, @result

https://www.tech-recipes.com/rx/3052...n-a-directory/

Das nachträglich, also lokal, zu machen, kommt mir unstimmig vor. Besser der Server macht das.