irgendwie muss was falsch sein...
wie kommt meine fehlermeldung nicht???
Delphi-Quellcode:
//Fach hinzufügen
procedure TStammdaten.JvXPButton1Click(Sender: TObject);
var
Qry : TADOQuery;
QryFachVorhanden : TADOQuery;
SID : Integer;
FID : Integer;
KID : Integer;
begin
SID := QrySchueler.fieldbyname('ID').AsInteger;
FID := self.TblFaecher.fieldbyname('ID').AsInteger;
KID := Hauptform.QrySchueler.FieldByName('idKlasse').AsInteger;
//Abfragen ob Fach schon vorhanden
QryFachVorhanden := TADOQuery.Create(self);
QryFachVorhanden.Connection := HauptForm.ADOConnection1;
QryFachVorhanden.SQL.Text := 'select *from schueler_faecher where id_Schueler = :SID and id_Fach = :FID and id_Klasse = :KID';
QryFachVorhanden.Parameters.ParamByName('SID').Value := SID;
QryFachVorhanden.Parameters.ParamByName('FID').Value := FID;
QryFachVorhanden.Parameters.ParamByName('KID').Value := KID;
QryFachVorhanden.ExecSQL;
if QryFachVorhanden.Eof = true then
begin
Qry := TADOQuery.Create(self);
Qry.Connection := HauptForm.ADOConnection1;
Qry.SQL.Text := 'insert into schueler_faecher (id_Schueler,id_Fach,id_Klasse) values (:SID, :FID, :KID)';
Qry.Parameters.ParamByName('SID').Value := SID;
Qry.Parameters.ParamByName('FID').Value := FID;
Qry.Parameters.ParamByName('KID').Value := KID;
Qry.ExecSQL;
QryZugeFaecher.Close;
QryZugeFaecher.Open;
Qry.Free;
end
else
MessageDlg('Das Fach wurde schon zugeordnet.', mtError, [mbOK], 0);
end;