Recover the ID of the last inserted row in a table (ADO)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
// Insert a new Record... var LastID: Integer; // Query: TADOQuery; // oder // Query: TQuery; begin Query.Active := False; Query.SQL.Clear; Query.SQL.Append('INSERT INTO Table (Spalte) VALUES (Value)'); Query.ExecSQL; LastID := GetLastID(Query); end; // get the ID of the last inserted row function GetLastID(var Query: TADOQuery {or TQuery}): Integer; begin result := -1; try Query.SQL.clear; Query.SQL.Add('SELECT @@IDENTITY'); Query.Active := True; Query.First; result := Query.Fields.Fields[0].AsInteger; finally Query.Active := False; Query.SQL.clear; end; end; |