Fehlermeldung beim Zugriff auf die Datenbank

[Delphi.Narium]

Persönlich würd' ich diesen Teil umbauen:

Delphi-Quellcode:

if not (FieldByName(aFeld).IsNull) and
not (FieldByName(aFeld).asString.IsEmpty) and
(Recordcount > 0) and
((FindField('GELOESCHT') = nil) or (Locate('GELOESCHT', 0, []))) then
  Result := FieldByName(aFeld).AsString;

In etwa so (das with lassen wir jetzt mal wie es ist, auch wenn ich es überhauptnicht mag ):

Delphi-Quellcode:

if (Recordcount > 0) and
not (FieldByName(aFeld).IsNull) and
not (FieldByName(aFeld).asString.IsEmpty) and
((FindField('GELOESCHT') = nil) or (Locate('GELOESCHT', 0, []))) then
  Result := FieldByName(aFeld).AsString;

Ist RecordCount = 0, muss nicht geprüft werden, ob es die Felder überhaupt gibt, spart die Suche der Felder und wenn die mal nil sein sollten, kracht es nicht, weil die erste Bedingung nicht erfüllt ist und damit die restlichen Prüfungen obsolet werden.
Das ändert sich erst dann, wenn man in den Kompileroptionen das "Boolsche Asudrücke vollständig auswerten" aktiviert hat.

Alternativ könntest Du vor not (FieldByName(aFeld).IsNull) auch noch prüfen, ob and not (FindField(aFeld) = nil) , derweil: Das könnte (theoretisch) auch noch schief gehen.

[Humbucker]

Zitat von Delphi.Narium:

Delphi-Quellcode:

if (Recordcount > 0) and
not (FieldByName(aFeld).IsNull) and
not (FieldByName(aFeld).asString.IsEmpty) and
((FindField('GELOESCHT') = nil) or (Locate('GELOESCHT', 0, []))) then
  Result := FieldByName(aFeld).AsString;

Nice

P.S.: als Zeichen meiner Läuterung; hier der akutelle Code - ohne with -

Delphi-Quellcode:

function GetFeldwertFromID(aTabelle, aFeld: string; aID: integer): Variant;
var
  MyQuery: TFDQuery;
begin
  Result := StrKeinEintrag;  
  MyQuery := TFDQuery.Create(MyDB);
  try
    MyQuery.Connection := MyDB;
    if (MyQuery.Connection.Connected) and (aID > 0) then
    begin
      MyQuery.SQL.Text := 'select * from &pTabelle where ID = :pID';
      MyQuery.MacroByName('pTabelle').asRaw := aTabelle;
      MyQuery.ParamByName('pId').asInteger := aId;
      try
        MyQuery.open;
        if (MyQuery.Recordcount > 0) and
          not (MyQuery.FieldByName(aFeld).IsNull) and
          not (MyQuery.FieldByName(aFeld).asString.IsEmpty) and
          ((MyQuery.FindField('GELOESCHT') = nil) or (MyQuery.Locate('GELOESCHT', 0, []))) then
            Result := MyQuery.FieldByName(aFeld).AsString;
      except
        raise;
      end;
    end;
  finally
    MyQuery.Close;
    MyQuery.Free;
  end;
end;