id vom letzten insert

[Delphi-Phil]

Zitat:

ich habe eine tabelle klassen da lege ich einen datensatz an(also eine klasse)

dann habe ich eine tabelle jahrgaenge da lege ich auch einen datensatz an

und dann habe ich eine tabelle klassen_jahrgaenge

da lege ich einen datensatz an der aus der id besteht von dem angelegten datensatz in klassen und von dem angelegten datensatz in jahrgaengen

was soll ich denn jetzt tun??

[nuclearping]

Zitat:

Zitat von Delphi-Phil

was soll ich denn jetzt tun??

Ähh ... Grundlagen aneignen?

Oder wenn du schon was gemacht hast und da konkret ein Problem hast, dazu halt deine Frage stellen.

Aber so wie's da jetzt steht, klingts ja fast so, als ob du fast erwartest, dass dir jemand die verschiedenen Lösungsmöglichkeiten buchstabiert.

[QuickAndDirty]

Mit MySQL scheint es ja recht einfach zu sein und wurde ja auch schon genannt wie es geht.

Finde ich super das es dort eine Sitzungs abhängige Last ID gibt. Daumen hoch!

[Delphi-Phil]

nein verschiedene lösungen möchte ich hier natürlich nicht buchstabiert bekommen...

ich möchte nur wissen, wie das ergebnis, was hier geliefert wird :

Delphi-Quellcode:

Qry.Close;
Qry.SQL.Text:='SELECT LAST_INSERT_ID()';
Qry.Open;

in eine variable geschrieben werden kann??

[rwachtel]

Zitat:

Zitat von Delphi-Phil

[...] ich möchte nur wissen, wie das ergebnis, was hier geliefert wird [...] in eine variable geschrieben werden kann??

http://www.delphipraxis.net/internal...=989224#989224

[Delphi-Phil]

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;

[rwachtel]

Zitat:

Zitat von Delphi-Phil

die funktion ist ja schön und sie geht warscheinlich auch aber wie baue ich die in meinen code ein??? [...]

Diese Frage meinst Du jetzt nicht wirklich ernst, oder??? :gruebel:

[Delphi-Phil]

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??

[rwachtel]

Zitat:

Zitat von Delphi-Phil

[...] 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??

Sorry, aber kannst Du das nochmal verständlich formulieren?

[Delphi-Phil]

tut mir leid was ich da für einen müll geschrieben habe;)

ich meine folgendes:

Die Query mit der ich den Datensatz einfüge in die Tabelle heißt ja Qry muss die Query dann in der Funktion um die ID zu ermitteln auch so heißen??