update sql

[Delphi-Phil]

Hallo,

ich habe folgenden Code und bekomme immer einen Fehler wenn ich einen Datensatz ändern möchte.

Delphi-Quellcode:

procedure TSchuleintrittKlasse.Button1Click(Sender: TObject);
var
SID : Integer;
KID : Integer;
Qry : TADOQuery;
begin
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;