AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Fehlermeldung beim Zugriff auf die Datenbank
Thema durchsuchen
Ansicht
Themen-Optionen

Fehlermeldung beim Zugriff auf die Datenbank

Offene Frage von "Humbucker"
Ein Thema von Humbucker · begonnen am 25. Jan 2022 · letzter Beitrag vom 22. Mär 2022
Antwort Antwort
Humbucker

Registriert seit: 8. Feb 2013
Ort: im Lahntal
39 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: Fehlermeldung beim Zugriff auf die Datenbank

  Alt 3. Feb 2022, 14:33
Was ist an WITH so "schlimm"? Welche Fehler treten durch WITH auf?
Schon etwas älter: The with-statement considered harmful
OK. Das ist nachvollziehbar. Also dann ab jetzt kein WITH mehr
Michael H.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.598 Beiträge
 
Delphi 7 Professional
 
#2

AW: Fehlermeldung beim Zugriff auf die Datenbank

  Alt 3. Feb 2022, 17:41
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.
  Mit Zitat antworten Zitat
Humbucker

Registriert seit: 8. Feb 2013
Ort: im Lahntal
39 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Fehlermeldung beim Zugriff auf die Datenbank

  Alt 7. Feb 2022, 14:17
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;
Michael H.

Geändert von Humbucker ( 7. Feb 2022 um 14:25 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz