Hallo PES,
nach dem Öffnen der
Query kannst du mit RecordCount prüfen, ob ein Ergebnis erzeugt wurde:
Delphi-Quellcode:
maxID := -1;
try
NeuerKunde.querySQL.active:=false;
NeuerKunde.querySQL.sql.clear;
NeuerKunde.querySQL.sql.add('
SELECT Max(Kundennummer) as maxid FROM Kunde');
NeuerKunde.querySQL.active:=true;
if NeuerKunde.RecorCount > 0
then
maxID:=NeuerKunde.querySQL.FieldbyName('
maxid').Value
except
on E:
exception do
MessageDlg('
Fehler bei der Abfrage'#13
+E.
Message, mtError, [mbOK], 0);
end;