Query springt nicht zum ersten Datensatz

[Ykcim]

Die Bedingungin der while-Schleife soll eigentlich heißen:
Solange Du nicht am Ende angekommen bist (eof) und Du die Einstellung nicht gefunden hast, dann Query.Next. Damit wird der nächste Datensatz angesprochen.

Aber die Query bleibt auf dem letzten Datensatz stehen...

[jobo]

Wie kommst Du darauf, das First sei wirkungslos?
Wenn man nur Next macht und am Ende angekommen ist, gibt es die Einstellung, die Du suchst halt nicht.

[haentschman]

Zitat:

dann Query.Next. Damit wird der nächste Datensatz angesprochen.

...und was passiert mit NEXT? Der Datensatzzeiger wird verschoben...und wo sitzt der Datensatzzeiger nach der Schleife?

Zitat:

Das könntest Du ach mit einem TClientDataSet hinbekommen

Zitat:

Ich kenne Unidac nicht, aber gibt es da kein Locate o.ä.?

...das hilft aber nicht bei offensichtlichen Logikfehlern.

[Jumpy]

Zitat von haentschman:

Zitat:

Ich kenne Unidac nicht, aber gibt es da kein Locate o.ä.?

...das hilft aber nicht bei offensichtlichen Logikfehlern.

Das stimmt schon, aber dann wäre das ganze Schleifen-Geraffel nicht nötig und dann wäre auch der Fehler weg.
Wenn man es aber schon mit Schleife macht, wäre es vllt. sinngemäß so einfacher:

Delphi-Quellcode:

Result:='Default oder Dummy oder nix';
Query.First
while not Query.EOF do
  begin
  if Query.FieldByName('Eingabe').AsString='Eingabe' then
    begin
    Result:=Query.FieldByName('Angabe').AsString;
    break;
    end;
  Query.Next
  end;

Nützt aber natürlich nix, wenn Query.First wirklich nicht funzt wegen unidirectionalem Cursor o.ä.

Evtl. kann man die Query nur lokal in der Funktion benutzen und jedes mal neu aufmachen, dann steht sie autom. immer auf dem ersten Datensatz.

[Ykcim]

Zitat:

Hast Du mal die Schleife durchdebuggt?

Ja, habe ich versucht. Aber da die Query auf dem letzten Datensatz steht, springt er sofort aus der Schleife heraus...

Zitat:

Gibt es bei der Query ein Property UniDirectional?
Wenn ja, setze das mal auf False.

Ja, gibt es, hatte aber leider keinen Effekt...

Zitat:

...und was passiert mit NEXT? Der Datensatzzeiger wird verschoben...und wo sitzt der Datensatzzeiger nach der Schleife?

Der Datenzeiger steht auf dem letzten Datensatz.

Deshalb wollte ich FQuery_Einstellungen.First nutzen, um zum ersten zu springen und dann die Schleife laufen zu lassen. Aber das bleibt ohne Effekt. Bei debuggen kann ich sehen, dass der Wert des letzten Datensatzes ausgegeben wird....

[Lemmy]

keine Lösung, dafür Fragen...

wie sieht der Wert von FQuery_Einstellungen.FieldByName('Einstellung').As String vor und nach FQuery_Einstellungen.First; aus? das schon geprüft? Oder wie stellst Du fest, dass First keine Wirkung hat?

Wie ist der Wert von FQuery.SQL.Text beim Eintritt in die Methode?

[haentschman]

Zitat:

keine Lösung, dafür Fragen..

Ich kürze das mal ab...

Delphi-Quellcode:

function TMySQLDB.Find_Property(Einstellung, Spalte: string): string;
var I: integer;
begin
   Result := '';
   FQuery_Einstellungen.First; 
   while not FQuery_Einstellungen.Eof do
   begin
      if FQuery_Einstellungen.FieldByName('Einstellung').AsString = Einstellung then 
      begin
        Result := FQuery_Einstellungen.FieldByName(Spalte).AsString;
        Break;
      end;
     FQuery_Einstellungen.Next;
   end;
end;

[jobo]

Und wenn schon dynamisch per Query, warum machst du nicht gleich eine Query, die genau den gesuchten Wert holt, statt dieses "Gehampel" (zum Glück jetzt nur max. 53 Mal nachschauen und weiterschalten). Wenn es tausende Einstellungen wären, würde man wahrscheinlich gar nicht ert auf die Idee kommen, jeden lokal abzurufen und nachzuschauen, ob es die Einstellung ist, die man eigentlich braucht.

Query.sql.add('where <spalte> = :Einstellung')
Ergebnis: Leere Menge = Einstellung gibt's nicht in <spalte> bzw. Tippfehler im Parameter
Ergebnis: Ein Datensatz = Treffer
Ergebnis: Mehr = nicht eindeutig... > Fehler im Datenmodell

[Lemmy]

Zitat von jobo:

Und wenn schon dynamisch per Query, warum machst du nicht gleich eine Query, die genau den gesuchten Wert holt, statt dieses "Gehampel" (

warum einfach, wenn es auch kompliziert geht?

[Ykcim]

Zitat:

wie sieht der Wert von FQuery_Einstellungen.FieldByName('Einstellung').As String vor und nach FQuery_Einstellungen.First; aus? das schon geprüft? Oder wie stellst Du fest, dass First keine Wirkung hat?

Es bleibt der Wert vom letzten Datensatz. Query.First hat keine Auswirkung...

Zitat:

Wie ist der Wert von FQuery.SQL.Text beim Eintritt in die Methode?

'select * from einstellungen'

Zitat:

Und wenn schon dynamisch per Query, warum machst du nicht gleich eine Query, die genau den gesuchten Wert holt, statt dieses "Gehampel" (zum Glück jetzt nur max. 53 Mal nachschauen und weiterschalten). Wenn es tausende Einstellungen wären, würde man wahrscheinlich gar nicht ert auf die Idee kommen, jeden lokal abzurufen und nachzuschauen, ob es die Einstellung ist, die man eigentlich braucht.

Query.sql.add("where <spalte> = :Einstellung")
Ergebnis: Leere Menge = Einstellung gibt's nicht in <spalte> bzw. Tippfehler im Parameter
Ergebnis: Ein Datensatz = Treffer
Ergebnis: Mehr = nicht eindeutig... > Fehler im Datenmodell

Ich wollte nach Möglichkeit nicht ständig eine Abfrage auf der Datenbank machen...

Ich weiß nicht warum Query.First keinen Effekt hat. Bislang hatte ich die Wert in ein Array geladen, da funktionierte es natürlich. Aber das musste ich aus einem anderen Grund ändern.

So scheint es aber auch zu funktionieren... Ich nach dem Hinweis mit Locate, loacate den Datensatz mit der procedure Query.locate und nehme dann den Wert aus der Spalte 'Spalte'... Anders herum gedacht, sieht aber ganz gut aus und ist sogar einfacher...

Delphi-Quellcode:

function TMySQLDB.Find_Property(Einstellung, Spalte: string): string;
begin
   Result:='';
   FQuery_Einstellungen.Locate('einstellung',einstellung,[]);
   if FQuery_Einstellungen.FieldByName('Einstellung').AsString=Einstellung then begin
      Result:=FQuery_Einstellungen.FieldByName(Spalte).AsString;
   end;
end;

Vielen Dank
Patrick