Dein Code sollte eigentlich funktionieren.
Du kannst es ja mal so versuchen...
Delphi-Quellcode:
with FHaupt.ADOQuery
do
begin
Active := False;
SQL.Text :=
'
SELECT ' + FieldCheckID + #10 +
'
FROM ' + Datenbank.TableCheckID + #10 +
'
WHERE ' + FieldCheckID + '
= :i_ID';
Prepared := True;
Parameters.ParamByName('
i_ID').Value := ID;
// ich weiß nicht, ob Active bei ADO unbedingt auf True gesetzt werden muss...
Active := True;
Open;
if Eof
then
Found := False
else
Found := True;
end;