Fehlermeldung beim Zugriff auf die Datenbank

[Sinspin]

Und wieder mal ein with und keiner sagt was. Das ist eine Art von Schreibfaulheit die früher oder später zu sehr schönen Fehlern führen wird.

Schau mal nach was in dem Fall in aFeld und aTabelle steht.
Ich denke aber es liegt daran : aID.ToString . Ändere das mal um in IntToStr(aID.AsInteger) Wenn aID NULL ist bleibt der String leer und die Abfrage ist fehlerhaft.

[Klaus01]

aId kann eigentlich, da es als Parameter der Funtione deklariert ist, nicht "null" sein.

versuche es mal so:

Delphi-Quellcode:

function GetFeldwertFromID(aTabelle, aFeld: string; aID: integer = 0): Variant;
var
  MyQuery: TFDQuery;
begin
  if aID = 0 then
    exit;
  MyQuery := TFDQuery.Create(nil);
  try
    myQuery.Connection := myDb;
    if myQuery.Connection.Connected then
    begin
      if myQuery.FindField('GELOESCHT') <> Nil then
        myQuery.SQL.Text := 'Select :aFeld  from &aTabelle where ID = :aID '+
                    ' and GELOESCHT = 0 '
      else
        myQuery.SQL.Text := 'Select :aFeld  from &aTabelle where ID = :aID ';

      myQuery.ParamByName('aFeld').AsString := aFeld;
      //myQuery.ParamByName('aTabelle').AsString := aTabelle;
      myQuery.MacroByName('aTabelle').AsString := aTabelle;
      myQuery.ParamByName('aId').AsInteger := aId;
      try
        myQuery.Open; //--> hier tritt der Fehler auf
        if myQuery.Recordcount = 0 then
          Result := 'Kein Eintrag'
        else
          Result := myQuery.FieldByName(aFeld).AsString;
      except
        raise;
      end;
    end;
  finally
    myQuery.Close;
    myQuery.Free;
  end;
end;

Grüße
Klaus

[Frickler]

Zitat von Klaus01:

Code:

'Select :aFeld from :aTabelle where ID = :aID '

Das dürfte so nicht gehen. Der Tabellenname kann kein Parameter sein, wohl aber ein Macro:

Code:

'Select :aFeld from &aTabelle where ID = :aID '

und dann

Code:

myQuery.MacroByName('aTabelle').AsString := aTabelle;

[Klaus01]

Zitat von Frickler:

Zitat von Klaus01:

Code:

'Select :aFeld from :aTabelle where ID = :aID '

Das dürfte so nicht gehen.

danke - habe es im Beispiel ausgebessert.

[himitsu]

Zitat:

Delphi-Quellcode:

if aID = 0 then
  exit;

Exit, ohne vorher das Result zu initialisieren ... selbst Schuld, wenn es hier mal ein Problem gibt.
(dein Pech, dass die entsprechende Compilerwarnung für gemagte Typen leider nicht kommt)

Beispiel: rufe deine Funktion zwei Mal hintereinander auf, oder in einer Schleife ... dann wirst du viel Spaß haben.


Vorher abfragen, ob es das Feld gibt

Delphi-Quellcode:

if myDb.Connected and (aID <> 0) then
begin
  MyQuery := TFDQuery.Create(nil);
  try
    myQuery.Connection := myDb;

    myQuery.SQL.Text := 'select * from &aTabelle limit 0';
    myQuery.MacroByName('aTabelle').Value := aTabelle;
    myQuery.Open;
    if myQuery.FindField('GELOESCHT') <> nil then
      myQuery.SQL.Text := 'select :aFeld from &aTabelle where ID = :aID '
                        + ' and GELOESCHT = 0 '
    else
      myQuery.SQL.Text := 'select :aFeld from &aTabelle where ID = :aID ';
    myQuery.Close;

    myQuery.ParamByName('aFeld').AsString := aFeld;
    myQuery.MacroByName('aTabelle').Value := aTabelle;
    myQuery.ParamByName('aId').AsInteger := aId;
    myQuery.Open;
    Result := myQuery.FieldByName(aFeld).Value;
  finally
    myQuery.Free;
  end;
end
else
  Exit(Null);

oder nachher dessen Wert prüfen, wenn es das Feld gibt

Delphi-Quellcode:

Result := Null;
if myDb.Connected and (aID <> 0) then
begin
  MyQuery := TFDQuery.Create(nil);
  try
    myQuery.Connection := myDb;
    myQuery.SQL.Text := 'select * from &aTabelle where ID = :aID ';
    myQuery.ParamByName('aFeld').AsString := aFeld;
    myQuery.MacroByName('aTabelle').Value := aTabelle;
    myQuery.ParamByName('aId').AsInteger := aId;
    myQuery.Open;
    if (myQuery.FindField('GELOESCHT') <> nil) and (myQuery.FieldByName('GELOESCHT').AsInteger = 0) then
      Result := myQuery.FieldByName(aFeld).Value;
  finally
    myQuery.Free;
  end;
end;

oder falls es Gelöscht und Nicht-Gelöscht gleichzeitig geben kann

Delphi-Quellcode:

    myQuery.Open;
    if (myQuery.FindField('GELOESCHT') = nil) or myQuery.Locate('GELOESCHT', 0, []) then
      Result := myQuery.FieldByName(aFeld).Value;
  finally

[Humbucker]

[QUOTE=himitsu;1501211]

Zitat:

Delphi-Quellcode:

    myQuery.Open;
    if (myQuery.FindField('GELOESCHT') = nil) or myQuery.Locate('GELOESCHT', 0, []) then
      Result := myQuery.FieldByName(aFeld).Value;
  finally

Danke für diesen Lösungsansatz.

Gruß Michael

[Humbucker]

Hallo Forum,

dank eurer vielen Kommentare und Anregungen habe ich den Code nun folgendermaßen angepasst:

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
      with MyQuery do
      begin
        SQL.Text := 'select * from &pTabelle where ID = :pID';
        MacroByName('pTabelle').asRaw := aTabelle;
        ParamByName('pId').asInteger := aId;
        try
          open;
          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;
        except
          raise;
        end;
      end;
    end;
  finally
    MyQuery.Close;
    MyQuery.Free;
  end;
end;

Die ursprüngliche Fehlermeldung aus #1 bleibt aber weiterhin bestehen. Wie gesagt, die Fehlermeldung kommt nur in Verbindung mit einer Microsoft Access Datenbank und auch nur einmal beim ersten Druchlauf.

Was mich übrigens noch interessieren würde ist:

Zitat von Sinspin:

Und wieder mal ein with und keiner sagt was. Das ist eine Art von Schreibfaulheit die früher oder später zu sehr schönen Fehlern führen wird.

Was ist an WITH so "schlimm"? Welche Fehler treten durch WITH auf?

Gruß Michael

[Humbucker]

Zitat von Klaus01:

Zitat von Frickler:

Zitat von Klaus01:

Code:

'Select :aFeld from :aTabelle where ID = :aID '

Das dürfte so nicht gehen.

danke - habe es im Beispiel ausgebessert.

Hallo Klaus,

warum geht das so nicht? Ich habe versucht mich in der Lektüre von Carry Jensen - Delphi in Depth: FireDAC zu diesem Thema einzulesen. Ich habe grundsätzlich verstanden, dass mit &MACRO eine Ersetzung im SQL-Statement stattfinden kann, die aber doch auch mit : PARAM (so wie in deinem ersten Beispiel) erfolgen kann.

Ich verstehe den Unterschied zwischen den Ersetzungsbegriffen aTabelle und aFeld nicht, da es sich in beiden Fällen um Stringwerte handelt.

Danke für deine Antwort.

Gruß
Michael