SQL Abfrageproblem

[Zyro]

Delphi-Quellcode:

for count:=0 to 10 do begin
MainQuery1.SQL.Add('Select KURZ from abfragen where ID='+inttostr(count)+'');
while not MainQuery1.Eof do
begin
     sqlkurz[count]:=MainQuery1.FieldByName('KURZ').AsString;
     MainQuery1.Next;
end;
end;

Kann mir jemand den Fehler sagen?! Denn leider scheint das Array sqlkurz leer zu bleiben.

[sakura]

Ändere bitte mal den Thread-Titel in eine aussagekräftige Variante.

Die Firma dankt,
......

[r_kerber]

Hallo Zyro,

in Deinem Quelltext fehlt ein MainQuery1.Open.

[Zyro]

Delphi-Quellcode:

for count:=0 to 10 do begin
MainQuery1.SQL.Add('Select KURZ from querys where ID='+inttostr(count)+'');
MainQuery1.Open;
while not MainQuery1.Eof do
begin
     sqlkurz[count]:=MainQuery1.FieldByName('KURZ').AsString;
     MainQuery1.Next;
end;

Hab das MainQuery1.Open; nun dort reingesetzt. Aber jetzt kommt ne Fehlermeldung *seufz*
Und sowas so früh am morgen.

[r_kerber]

Ja, und welche?

[Zyro]

Die beiden: siehe Anhang!

[r_kerber]

Ich vermute mal, ein Schleifendurchlauf sollte funktionieren. Bevor Du dann erneut das SLECT-Statment aufbaust, solltest Du das was vorher drin steht löschen. Außerdem solltest Du vorher die Query schließen:

Delphi-Quellcode:

MainQuery1.Close;
MainQuery1.SQL.Clear;
MainQuery1.SQL.Add('Select KURZ from querys where ID='+inttostr(count)+'');

[matthiasl]

Mal ein "MainQuery1.SQL.Clear;" vor der zweiten Zeile...
Bei mir hat das geholfen...

Matthias

[Zyro]

jo cool danke. Jetzt funzt es. Was man manchmal alles vergessen kann. Und dann geht schon gleich alles nichtmehr.