Getting last insert id (ZEOS or SQLdb)

[Leledumbo]

I can't find this implemented in ZEOS or SQLdb. I wonder why, isn't this functionality is easy to implement? Currently I create my own:

Code: [Select]

function LastInsertID(const TableName: String): Integer;
begin
  with DBQuery do begin
    SQL.Text := 'SELECT MAX(id) AS last_insert_id FROM :TableName';
    Params.ParamByName('TableName').AsString := TableName;
    Open;
    Result := FieldByName('last_insert_id').AsInteger;
  end;
end;
but I really wish to have this implemented because I almost always use MV(C|P|???) design pattern and this is required for newly created table entry.

[clauslack]

For Firebird (and others)
you can use insert an return primary key in one step, with RETURNING clause.

with DBQuery do begin
    SQL.Text := 'INSERT INTO t1 (...) values (...) returning pk';
    Open;
    Result := FieldByName('pk').AsInteger;
  end;


Tested with Firebird 2.1.4 and fpc  2.3.1 (SQLDB)

Regards

[Leledumbo]

I've never heard of that. How portable it is across dbms?

[clauslack]

"Firebird 2 introduces RETURNING clause for INSERT statements...."
http://www.firebirdfaq.org/faq243/

Postgre
http://www.postgresql.org/docs/current/interactive/sql-insert.html

Oracle
http://psoug.org/snippet/INSERT-With-Returning-Clause_595.htm
(Stored procedure)
http://www.adp-gmbh.ch/ora/sql/insert_into_x_returning_y.html

I don't know about other DBMS.

I only test with Firebird and SQLDb.

[cdbc]

Hi.
Within Firebird, it's portable.

hth - Regards Benny

[Leledumbo]

Weird, Firebird states that it's supported so we can get it like MySQL did. But MySQL doesn't support this clause... so, for safety (because I still don't know the environment of deployment platform), I still use my LastInsertID above.

[Lacak2]

Some of APIs (for example SQLite, MySQL) provides functions to obtain last value (currently inserted) of identity (autoincrement) columns.

There is it internaly in dbSQL also implemented (search for example for "insertid" in sources in fcl-db directory), but not all SQL connectors provide such information.

General solution will be IMHO fetch this "last identity value" after Append...Post and put into local dataset. See also http://bugs.freepascal.org/view.php?id=16076

[clauslack]

Check this,
 In firebird (maybe other DBMS)
 the primary key has ascending order, and the statement
 select max(id) don't use this index.  So in tables of millions of records,
 this query has a high resources consuming, unless you create a descending index in primary key field.

Regards

[Leledumbo]

Check this,
 In firebird (maybe other DBMS)
 the primary key has ascending order, and the statement
 select max(id) don't use this index.  So in tables of millions of records,
 this query has a high resources consuming, unless you create a descending index in primary key field.

Hmm... do you have any other solution? Should I differ the query based on TZConnection.Protocol?

[marcov]

For Zeos, use the TZSequence object.  I use it succesfully with Postgresql.

(but note that it might not be safe with automatic transactions)

[Marc]

set the AutoGenerateValue of the ID field to arAutoInc, then zeos will update this value
(for postgre you need to set it to arDefault)

[Leledumbo]

For Zeos, use the TZSequence object.

How to use it? I only see Connection property...

set the AutoGenerateValue of the ID field to arAutoInc, then zeos will update this value
(for postgre you need to set it to arDefault)

of what object?

FYI, since I use fpWeb to create this application, I must create the code by hand (dropping the component from palette causes the app to end up in runtime errors).

[marcov]

For Zeos, use the TZSequence object.

How to use it? I only see Connection property...

If a table is named xxx and there is a field "ID" that been declared PK and autonumber etc in postgres, then there is a sequence counter in postgresql named "xxx_ID_seq"

Enter this into the tzsequence object, and also connect it to connection. You can then put this sequence object in the relevant query, and connect the navigator to it.

This should be doable in code too, but these are mainly interesting if you use e.g. dbnavigators. I don't know how fpweb solves that.

[Leledumbo]

If a table is named xxx and there is a field "ID" that been declared PK and autonumber etc in postgres, then there is a sequence counter in postgresql named "xxx_ID_seq"

Is "ID" name hardcoded? I've used that, but in lowercase (all my table fields do). Would that be a problem?

This should be doable in code too, but these are mainly interesting if you use e.g. dbnavigators. I don't know how fpweb solves that.

I see TZSequence has GetNextValue, so probably I can call that from code.

[Marc]

set the AutoGenerateValue of the ID field to arAutoInc, then zeos will update this value
(for postgre you need to set it to arDefault)

of what object?

The ID field. (Now speaking delphi, haven't used this in lazarus) If you have a TZQuery, and you make the fields of it Persistent, you can change the properties of the ID field.

If you create the query in code, then you can access the property by:
  yourQuery.FieldByName('ID').AutoGenerateValue := arAutoInc