Hallo,
muss das nicht statt
QryFachVorhanden.ExecSQL;
QryFachVorhanden.Open;
heißen?
Du möchtest doch wissen, ob es etwas schon gibt oder eben nicht.
Versuch es doch mal mit:
Delphi-Quellcode:
QryFachVorhanden.SQL.Text := 'select Count(*) As Anzahl from schueler_faecher where id_Schueler = :SID and id_Fach = :FID and id_Klasse = :KID';
QryFachVorhanden.Open;
If QryFachVorhanden.FieldByName('Anzahl').AsInteger = 0 then
// und hier dann weiter mit dem Insert...