Delphi-Quellcode:
function GetLastInsertID(Qry:TADOQuery):Integer;
begin
with Qry
do
begin
Close();
SQL.Text:='
SELECT LAST_INSERT_ID()';
Open();
Result:=Fields[0].AsInteger;
end;
// with Qry
end;
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;
KIDNeu := GetLastInsertID(Qry);
so stelle ich mir das vor! Also im Zweiten Teil Code habe ich jetzt die Variablen weggelassen..
Nur meine Frage ist nur wie ist das mit den Querys läuft in der Funktion wird ja eine zur Laufzeit erzeugt, muss du genau so heißen wie die in der procedure die erzeugt wird oder wie läuft da??