mein code sieht jetzt so aus:
Delphi-Quellcode:
procedure TSchuleintrittKlasse.Button1Click(Sender: TObject);
var
SID : Integer;
KID : Integer;
Qry : TADOQuery;
begin
Qry := TADOQuery.Create(self);
KID := DBLookupComboBox1.KeyValue;
SID := Stammdaten.QrySchueler.FieldByName('ID').AsInteger;
Qry.SQL.Text := 'UPDATE schueler SET Schuleintritt_Klassse_ID =:KID WHERE id =:SID';
Qry.Parameters.ParamByName('SID').Value := SID;
Qry.Parameters.ParamByName('KID').Value := KID;
Qry.ExecSQL;
end;
und jetzt kommt der fehler wie im angehangenen screen!