Obtener ID autonumerico insertado en Access con ASP clásico

Código ASP clásico

Obtener el ID de un valor autonumérico insertado en una base de Access son ASP clásico:


<% 
Set commInsert = Server.CreateObject("ADODB.Connection")
commInsert.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WebSiteDirectory\DatabaseDirectory\YourDB.mdb; Persist Security Info=False" ' Replace with your OLE DB connection string.
commInsert.Execute("INSERT INTO tableName(TextField, NumericField)_ VALUES('ABCDE', 12345);") ' Execute the insert command
Set rsNewID = commInsert.Execute("SELECT @@IDENTITY") ' Create a recordset and SELECT the new Identity
intNewID = rsNewID(0) ' Store the value of the new identity in variable intNewID
rsNewID.Close
Set rsNewID = Nothing
commInsert.Close
Set commInsert = Nothing
%>

tags: autonumerico en sql, trabajr en access, tablas access ejemplos, microsoft access, ejemplos base datos, base datos access, crear base datos access, ejemplo base datos access, id en access, autonumeracion access