sql insert problem

[Delphi-Phil]

Hallo,

Delphi-Quellcode:

ich habe folgendes Problem:

//Fach hinzufügen
procedure TStammdaten.JvXPButton1Click(Sender: TObject);
var
Qry : TADOQuery;
SID : Integer;
FID : Integer;
KID : Integer;
begin

SID := HauptForm.TblAlleSchueler.fieldbyname('id').AsInteger;
FID := self.TblFaecher.fieldbyname('ID').AsInteger;
KID := Hauptform.QrySchueler.FieldByName('idKlasse').AsInteger;

Qry := TADOQuery.Create(self);
Qry.Connection := HauptForm.ADOConnection1;

[b]Qry.insert into SchuelerFaecher (id_Schüler,id_Fach,id_Klasse) values (%d, %d, %d),[SID, FID, KID]);[/b]

Qry.ExecSQL;
QryZugeFaecher.Close;
QryZugeFaecher.Open;
Qry.Free;
end;

Die von mir fett makierte zeile, mit dem insert ist mir ein rätsel...wie müsste diese zeile aussehen??
Ich möchte einfach nur in die tabelle SchuelerFaecher (id_Schüler,id_Fach,id_Klasse) die werte aus den drei var´s sid fid und kid einfügen!!


Gruß
Phil :hi:

[angos]

Hiho,

Delphi-Quellcode:

Qry.SQL := 'insert into SchuelerFaecher (id_Schüler,id_Fach,id_Klasse) values (SID, FID, KID)';

edit sagt:
Was machst du hier?

Delphi-Quellcode:

QryZugeFaecher.Close;
QryZugeFaecher.Open;

Gruß

[Delphi-Phil]

danke angos für deine hilfe!!!

es kommt aber immer noch ein Fehler!!

[Fehler] StammdatenUnit.pas(128): Inkompatible Typen: 'TStrings' und 'String'

Zitat:

Was machst du hier?
QryZugeFaecher.Close;
QryZugeFaecher.Open;

Da mach ich ein close, open bei der qry die dann die einträge aus SchuelerFaecher filtert!


Gruß

Phil

[DeddyH]

Delphi-Quellcode:

Qry.SQL.Text := 'insert into SchuelerFaecher (id_Schüler,id_Fach,id_Klasse) values (:SID, :FID, :KID)';
Qry.ParamByName('SID').AsInteger := SID;
Qry.ParamByName('FID').AsInteger := FID;
Qry.ParamByName('KID').AsInteger := KID;

[edit] Ich sehe gerade, ADO, also dann so:

Delphi-Quellcode:

Qry.SQL.Text := 'insert into SchuelerFaecher (id_Schüler,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;

[/edit]

[Jelly]

@Delphi-Phil:
Würdest Du noch bitte die Delphi Tags in deinem ersten Beitrag setzen, um den Code lesbarer zu machen. Du kannst deinen Beitrag nachträglich mit dem "Edit" Button editieren.

[Delphi-Phil]

Danke für eure so mega schnelle Hilfe, einfach das beste Forum der WELT!!!

Mein Problem ist behoben...
Danke DeddyH, war nur das Problem weil es ADO war...aber jetzt geht es!!

Super ich bin total glücklich... :hello: :hello: :hello: :hello: :hello: :hello:


Euch noch einen schönen Tag,

Gruß
Phil :hi: :hi: :hi: :hi: