Hvordan fanger jeg det id for den række jeg lige har sat ind

Her er en lille kode til det:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From tabel"
rs.Open strSQL, Conn, 1, 3 ' adOpenKeyset, adLockOptimistic
  rs.AddNew
  rs("felt1") = strFelt1
  osv ...
  rs.Update

  rs("ID")
%>

Hvis du åbner tabellen på ovennævnte måde og indsætter den nye post med rs.AddNew kan du efter rs.Update aflæse autonummer ID med rs("ID")

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data.mdb")
strSQL = "SELECT * FROM minTabel WHERE ID = 0"
rs.Open strSQL, strDSN, 1, 3


...opret ny record

rs.Update

nyID = rs("ID")

rs.Close
Set rs = Nothing

response.write nyID

hmmm, for langsom :-(

Ved ikke om det er den smarteste måde, men du kunne lave en:

Set rs = Conn.Execute("SELECT TOP 1 id FROM dintabel ORDER BY id DESC")

Derved vil rs("id") være det største (og dermed nyeste id i tabellen).

aaaalt for langsom, og usmart :/

:-)

magik
det holder ikke den der, hvis der er to der opretter samtidig, kan der ske fejl....

a1: Derfor min kommentar. Plejer ellers at tænke først  :)