Microsoft Access Insert With Autonumber / Identity

Here's a quick little example of how to retrieve the last identity id or autonumber from an MS Access table when the record was inserted.

Here's a quick little example of how to retrieve the last identity id or autonumber from an MS Access table when the record was inserted.

<%

Dim oRec
Dim sConStr
Dim sNewID

sConStr = "your connection string here."
Set oRec = Server.CreateObject("ADODB.RECORDSET")
oRec.CursorLocation = adUseServer

with oRec
.Open "tblMyTableName",sConStr,adOpenKeySet,adLockOptimistic,adCmdTableDirect
.AddNew
.Fields("MYCOLUMNNAME") = "stuff"
.Update
sNewID = .Fields("MYIDENTITYCOLUMN")
End With

oRec.close
Set oRec = nothing

%>


Submission Date:  9/23/2005 2:57:54 PM
Submitted By:  Robbe Morris
My Home Page:  http://www.robbemorris.com