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;

[mkinzler]

Wie meinst du das mit dem nicht ändern wollen?

[Delphi-Phil]

sry ich hatte mir vertippt, ich meine natürlich wenn ich einen datensatz ändern möchte;)

[mkinzler]

Und was für einen?

[Delphi-Phil]

ja über den sql code. also der datensatz den er mit der where klausel findet.

[mkinzler]

Ich meinte, welchen Fehler?

[Delphi-Phil]

hier ist ein screen vom fehler!

[mkinzler]

Setz mal den Debugger an.

[Delphi-Phil]

hier haut der debugger rein:

Delphi-Quellcode:

Qry.SQL.Text := 'UPDATE schueler SET Schuleintritt_Klassse_ID = :KID WHERE id = :SID';

[generic]

Delphi-Quellcode:

Qry : TADOQuery;

ist nicht initialisiert.

[Hansa]

In welcher Unit wird das alles deklariert ? Ist eventuell Datenmodul vorhanden ? Hilfreich wäre es auch, in diesem Falle die DPR zu posten.

[Delphi-Phil]

Zitat:

Zitat von generic

Delphi-Quellcode:

Qry : TADOQuery;

ist nicht initialisiert.

und das heißt?? was muss ich nun tun?

[mkinzler]

Delphi-Quellcode:

Qry := TADOQuery.Create(...);

[Delphi-Phil]

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!

[mkinzler]

Ist Query so konfiguriert, dass Parameter auomatisch erzeugt werden?
BTW. Man sollte denm Query auch eine Connection zuweisen

[Delphi-Phil]

vielen dank! jetzt läuft es alles solche dummen fehler... hab einfach die connection vergessen, warscheinlich weil ich sonnst nicht zur laufzeit erzeuge;)

Noch einen schöenen sonnigen tag wünsche ich euch...