Ich versteh dein Problem noch nicht so ganz. Wann und wo kommt es denn in deinem Quelltext zu einem Fehler?
Wenn ich mir das so anschaue hätte ich ein paar Vorschläge, wobei mir der
SQL-String aber auch irgendwie spanisch vorkommt...
- try/except-Block um die Query1 und mal schaun ob hier der Fehler herkommt. Nebenbei: Ersetz mal ExecSQL durch Open und lass das Active weg. AFAIK erwartet ExecSQL keine Rückgabe von Werten und sollte nur bei Update, Insert... verwendet werden.
- Irgendwie verbinde ich aber auch menthal
Query.RecordCount mit -1 als Rückgabe - zumindest bei Pervasive-
SQL hatte ich hier oft Probleme. Ich würde auf Query1.IsEmpty prüfen und dann die Datensätze wie folgt durchgehen. Sprich...
Delphi-Quellcode:
with Query1
do begin
try
Open;
First;
while not eof
do begin
// mach was
Next;
end;
except
on e:
exception do
ShowMessage(e.
message);
end;
end;
Grüsse!
[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]