Hallo,

bei folgendem Code (Ausschnitt) wird das Feld "zugang" beim Lesen nicht gefunden, obwohl vorher beschrieben wurde!

zusammenfalten · markieren

Delphi-Quellcode:

    FDQuery.SQL.Text := 'Select * from Settings';
    FDQuery.Open;
    if FDQuery.RecordCount = 0 then
    begin
      FDQuery.Append;
      FDQuery.Edit;
      FDQuery.FieldByName('zugang').AsString := '???'; // Beschreiben ohne Fehlermeldung
      FDQuery.Post;
    end;
    //... hier werden noch andere Felder gelesen
    // Zugang lesen
    settings.zugang := FDQuery.FieldByName('zugang').AsString; // <-- hier kommt Fehler, das Feld "zugang" wurde nicht gefunden

Ich habe keine Ahnung, wo ich suchen könnte!
Wenn ich in die DB schaue ist die Spalte zugang da und mit ??? gefüllt!

Tips?

Ciao
Stefan

Ändere den Source mal wie folgt:

zusammenfalten · markieren

Delphi-Quellcode:

    FDQuery.SQL.Text := 'Select * from Settings';
    FDQuery.Open;
    if FDQuery.RecordCount = 0 then
    begin
      FDQuery.Append;
      FDQuery.Edit;
      FDQuery.FieldByName('zugang').AsString := '???'; // Beschreiben ohne Fehlermeldung
      FDQuery.Post;
    end;
    settings.zugang := FDQuery.FieldByName('zugang').AsString;
    //... hier werden noch andere Felder gelesen

Wenn du den Fehler nicht mehr bekommst, ist der Fehler in den Bereich, wo du noch was mit mit den anderen Feldern machst.
Falls der Fehler aber immer noch da ist, kann ich spontan nicht sagen, was das sein kann.

Vielleicht tritt der Fehler auch bei der Variable settings auf.

Zitat von mkinzler:

Vielleicht tritt der Fehler auch bei der Variable settings auf.

War auch mein erster Gedanke. Aber dann hätte ja schon der Compiler gemeckert.

Zitat:

War auch mein erster Gedanke. Aber dann hätte ja schon der Compiler gemeckert.

Es kommt darauf an, was hinter settings steckt.

settings ist nur ein Record...

Jasocul hat recht!
Bei den Feldern, welche vorher gelesen werden, ist auch eines ala

settings.passwort := Decrypt(FDQuery.FieldByName('passwort').AsString);

wobei Decrypt nur eine einfache Entschlüsselungsroutine ist, die an dem Feld nichts tut!

Neue Variante:

markieren

Delphi-Quellcode:

settings.passwort := FDQuery.FieldByName('passwort').AsString;
settings.zugang := FDQuery.FieldByName('zugang').AsString;
//... weitere Felder lesen
settings.passwort := Decrypt(settings.passwort);

Und der Fehler ist weg

Danke für den Denkanstoß!

Ciao
Stefan

Nachtrag:
Der Code vom Anfang des Threads hat jahrelang funktioniert, erst nach einer Änderung im Programm an einer ganz anderen Stelle (Optik, die nichts mit dem DB-Handling zu tun hat!) kam der beschriebene Fehler!