die funktion ist ja schön und sie geht warscheinlich auch aber wie baue ich die in meinen code ein???
Delphi-Quellcode:
Qry := TADOQuery.Create(self);
Qry.Connection := HauptForm.ADOConnection1;
Qry.SQL.Text := 'insert into klassen (Klassenname, Stufe, Jahrgang, Jahr1, Jahr2 ) values (:KlassennameNeu, :StufeNeu, :JahrgangNeu, :Jahr1Neu, :Jahr2Neu )';
Qry.Parameters.ParamByName('KlassennameNeu').Value := KlassennameNeu;
Qry.Parameters.ParamByName('StufeNeu').Value := StufeNeu;
Qry.Parameters.ParamByName('JahrgangNeu').Value := JahrgangNeu;
Qry.Parameters.ParamByName('Jahr1Neu').Value := Jahr1Neu;
Qry.Parameters.ParamByName('Jahr2Neu').Value := Jahr2Neu;
Qry.ExecSQL;