Hive ID ud af recordset (Hjææææælp)

Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.Open \"Table\", Conn, 3, 3
objRS.AddNew
objRS.Update
objRS.movelast
TmpId = objRS(\"ID\")
response.write TmpId

Det ved jeg, problemet er bare hvis der er to der opretter samtidig kan der opstå fejl!
Det skal være 100% at den id der kommer ud er den man selv har oprettet.
Det er til en betalings løsning, og der er dødstraf til mig hvis der kommer sådanne fejl.

  Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.Open \"Table\", Conn, 3, 3
objRS.AddNew
objRS.Update
objRS.close

sqlStr = SELECT * FROM table ORDER BY id
objRS.Open sqlStr,\"Table\", Conn, 3, 3
objRS.movelast
TmpId = objRS(\"ID\")
response.write TmpId 

Open skal se sådan ud.
objRS.Open sqlStr, Conn, 3, 3

Min Open ser jo sådan ud: objRS.Open sqlStr, Conn, 3, 3

sqlStr er jo bare angivet direkte: \"Table\" istedet for at ligge det i en variabel.

Og så laver du Movelast finten igen, det virker jo ikke hvis der er en anden bruger der har oprettet en post i det split sekund som man er om at oprette og movelast\'e

Ifølge MS skal du bruge Jet Engine. Din \"con\" skal ændres til:
con= \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(dindatabase)
objRS.Open \"Table\", Conn, 3, 3
objRS.AddNew
TmpId = objRS(\"ID\")
objRS.Update
response.write TmpId


Prøv at kikke her:
http://support.microsoft.com/support/kb/articles/Q244/1/36.asp
http://www.adopenstatic.com/experiments/autonumberandaddnew.asp

P.S: Jeg prøvet og jeg kan få det til at virke med Access97 og Jet Engine.

Jeg har gjort mig nogle tanker om dette på
http://www.1script.com/asp0001.html
Alting er ikke helt korrekt, for jeg har fundet ud at parametrene
på en rs.open varierer på forskellige databaser. Men det er da
en start!

jimmidreeeeeng.....hvor svært kan det være!!

normalt så ville jeg lave:

objRS.AddNew
objRS.Update
TmpId = objRS(\"ID\")

Men hvis du skal være dødsenssikker sikker på at det virkelig er det id, som netop er blevet oprettet, så ville jeg benytte T-SQL\'s udmærkede @@identity. f.eks.:

SQL = \"INSERT INTO something(field1, fields2) VALUES (8,8)\"

Conn.Execute(SQL)

Set TmpId = Conn.Execute(\"SELECT @@IDENTITY FROM something\")


Er alt dette ikke implementeret i den originale betalingsløsning. Det må have været en kludderkoder som har lavet det. :-]


/ortrak