automatischen erstellter IDENTITY Wert ermitteln

[GroHae]

Ich habe eine Tabelle mit Schlüssel via Identität = Ja.

Wenn ich jetzt einen neuen Datensatz hinzufüge wird die ID ja selber erstellt. Gibt es eine einfache Möglichkeit zu erfahren welchen Wert das Feld bekommen hat?

hier gibt es zwar eine Anleitung, aber das muß doch einfacher gehen

[marabu]

Hallo Thomas,

wie fügst du Datensätze hinzu? Wenn ein einen offenen DataSet hast, dann findest du den Identity-Wert jeweils nach dem Speichern einzelner Datensätze im entsprechenden Feld. Fügst du hingegen per SQL INSERT hinzu, so musst du zu solchen Tricks greifen, wie sie Microsoft empfiehlt.

Freundliche Grüße

[GroHae]

ich mach es via SQL.

Schade, so bringt mir das nix. Dann kann ich auch selber den Schlüssel vergeben und verwalten. Nimmt sich nix vom Aufwand

[Jelly]

Zitat von GroHae:

Nimmt sich nix vom Aufwand

Doch... Du musst dich nämlich nicht um die Eindeutigkeit der ID kümmerns. Insbesondere bei Multiuser System ist genau das ein Problem.

Ich hab jetzt den MS Artikel nicht gelesen, aber mit
select @identity kommst du an den zuletzt vergebenen Identiy Wert. Diesen kannst du in einem Event deiner Query auslesen.

[GroHae]

Super Stimmt

Delphi-Quellcode:

 
 with FQry do
 begin
   SQL.clear;
   SQL.Add('SELECT @@IDENTITY');
   Open;
   result := Fields.Fields[0].AsInteger;
 end;

Ist ja doch ganz einfach! DANKE!!

[marabu]

Eine äquivalente Schreibweise wäre:

Delphi-Quellcode:

with FQry do
begin
  SQL.Text := 'SELECT @@IDENTITY';
  Open;
  Result := Fields[0].AsInteger;
end;

Und ein vielleicht interessanter Thread: Insert Befehl, Rückgabe ID Wert

[alzaimar]

Schreib Dir dafür eine stored Procedure, denn wenn Du '@Identity' nicht im gleichen Batch abfragst (und zwischenzeitlich ein anderes INSERT ausgeführt wird), hast Du den falschen Wert!

z.B. so:

SQL-Code:

Create Procedure Customer_New @ID int output
as
set nocount on
insert into Customer defaultvalues -- Geht nur, wenn alle Felder default-Werte (NULL oder etwas explizites) haben
select @ID = @@Identity
set nocount on

Und in Delphi:

Delphi-Quellcode:

Procedure CreateNewCustomer (aCustomer : TCustomer);
Begin
  spCustomerNew.ExecProc; // Neuen Datensatz erstellen
  aCustomer.ID := spCustomerNew.Parameters.ParamValues['@ID']; // ID abholen
  // Ab hier machst Du ein UPDATE Customer SET .... WHERE ID = :ID // Datensatz befüllen
End;

Das ist etwas langsamer, aber allgemeingültig.

Ich versuche allerdings, die Kundendaten gleich der Stored Procedure zu übergeben:

SQL-Code:

Create Procedure Customer_New @Name VarChar (80), @Address VarChar(80), @ID int output
as
set nocount on
insert into Customer (Name, Address) Values (@Name, @Address)
select @ID = @@Identity
set nocount on

und in Delphi

Delphi-Quellcode:

Procedure CreateNewCustomer (aCustomer : TCustomer);
Begin
  spCustomerNew.Parameters.ParamValues['@Name'] := aCustomer.Name;
  spCustomerNew.Parameters.ParamValues['@Address'] := aCustomer.Address;
  spCustomerNew.ExecProc; // Neuen Datensatz erstellen
  aCustomer.ID := spCustomerNew.Parameters.ParamValues['@ID']; // ID abholen
End;

Ich bevorzuge so eine Abstraktion, weil man vielleicht irgendwelche Schweinereien anstellen will, wenn man einen Kunden anlegt. Das kann man dann machen, ohne den Quelltext und die eigentliche Logik anzufassen.