Retrieve last inserted id

[lostboy]

Hi All,

Using classic ASP applciation with DB2 (just adding it to the apps
quiver of DBs). I am trying to do an insert and then retrieve the
auto-increment field's value using the standard ADO call of

rsForm.Update
nFormStructRecI d = rsForm("record_ id")
rsForm.Close

The problem is that the value comes back as 0. How should I fix the
problem?

Regards

phpster

[Serge Rielau]

lostboy wrote:

Hi All,

Using classic ASP applciation with DB2 (just adding it to the apps
quiver of DBs). I am trying to do an insert and then retrieve the
auto-increment field's value using the standard ADO call of

rsForm.Update
nFormStructRecI d = rsForm("record_ id")
rsForm.Close

The problem is that the value comes back as 0. How should I fix the
problem?

Regards

phpster

Which version of DB2 are you on.
Also what's the table definition (do you use a SEQUENCE or an IDENTITY
columns)?
How does the INSERT statement look like.

Cheers
Serge
--
Serge Rielau
DB2 SQL Compiler Development
IBM Toronto Lab

[lostboy]

v8.1 windows

ado insert
sequences

CODE
sSQL = "select * from form_structure where form_id = '" & nHeaderID
& "' and field_name = '" & sFldName & "' "

'use ADO to get the record id number back

rsForm.open sSQL, PortalDB, adOpenDynamic, adLockOptimisti c

if rsForm.EOF and rsForm.BOF then
rsForm.AddNew
' sThisSortOrder = 999 'move the newly added record to last
place
end if

rsForm("field_n ame") = lcase(sFldName)
rsForm("sort_or der") = nSortCounter 'current sort order
rsForm("form_id ") = nHeaderID
rsForm("data_ty pe") = lcase(sDefaultD ataType)

rsForm.Update

nFormStructRecI d = rsForm("record_ id")

Bastien

[Serge Rielau]

lostboy wrote:

v8.1 windows

ado insert
sequences

CODE
sSQL = "select * from form_structure where form_id = '" & nHeaderID
& "' and field_name = '" & sFldName & "' "

'use ADO to get the record id number back

rsForm.open sSQL, PortalDB, adOpenDynamic, adLockOptimisti c

if rsForm.EOF and rsForm.BOF then
rsForm.AddNew
' sThisSortOrder = 999 'move the newly added record to last
place
end if

rsForm("field_n ame") = lcase(sFldName)
rsForm("sort_or der") = nSortCounter 'current sort order
rsForm("form_id ") = nHeaderID
rsForm("data_ty pe") = lcase(sDefaultD ataType)

rsForm.Update

nFormStructRecI d = rsForm("record_ id")

Bastien

Bear with me I'm ADO ignorant.
If you are using sequence how do you generate teh new value?
Do you have an INSERT trigger on FORM_STRUCTURE?
You can get the value back through two means:
Select back "SELECT PREVIOUS VALUE FOR <seqname> FROM SYSIBM.SYSDUMMY 1"
or Do the insert expliictly:

SELECT <idcol> FROM NEW TABLE(INSERT INTO FORM_STRUCTURE .....)

Cheers
Serge

--
Serge Rielau
DB2 SQL Compiler Development
IBM Toronto Lab