Få id fra netop oprettet record

Prøv og lav en "SELECT @@IDENTITY" lige efter du har indsat en ny værdi i databasen. Så burde du få det ID som den post du lige har indsat, har.

Et eksempel:

INSERT INTO Kunder
(Kundenr) VALUES (30001)

SELECT * FROM Kunder
WHERE ID = @@IDENTITY

DELETE FROM Kunder
WHERE ID = @@IDENTITY

SELECT * FROM Kunder

Jeg har sat følgende ind, efter min 1. update, men recordset'et er tomt:

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = autofin_STRING
Recordset1.Source = "SELECT * FROM autofin.autofin_items WHERE id = @@IDENTITY"
Recordset1.LockType = 2
Recordset1.Open()

strID = Recordset1("id")
Recordset1("photo") = strID & ".jpg"
Recordset1.update
Recordset1.close
set Recordset1 = nothing
Response.Write(strID)

"Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."

Så vidt jeg husker, så skal det recordset som du selecter @@INDENTITY'en ud fra, være det samme som du laver din INSERT med. Det vil altså ikke virke hvis du laver din INSERT, lukker forbindelsen til databasen, og derefter opretter en ny forbindelse for at lave din SELECT @@IDENTITY.

snowball >> Du husker rigtigt... Det skal være i samme connection! Det er nemlig årsagen til at det ikke kan lade sig gøre i Access, da Access ikke kan køre flere forespørgsler efter hinanden i et SQL job.

Hvordan vil du så lave en SELECT?

Dette virker med access:

Function GetOrdreNo ()
    'Nulstiller kald
    Application("Locked") = False
   
    'Laver løkke indtil DB'en ikke længere er i brug
    While Application("Locked") = True
    Wend
   
    Application.Lock
    Application("Locked") = True
    Application.Unlock
        strSQL = "SELECT * FROM tabelnavn"
        Set objRs = objConn.Execute(strSQL)
    strOrdreNo = objRs("OrdreNo")
   
    Application.Lock
    Application("Locked") = False
    Application.Unlock
    GetOrdreNo = strOrdreNo
End Function

pelkjaer >> Nu har spørgsmålet egentlig ikke noget med Access at gøre. I øvrigt er dit eksempel, så vidt jeg kan se lavet i VBA og ikke SQL.

:o)

Nææ jeg så bare lidt oppe at der var en der sagde man ikke kunne i access - derfor :)

Jamen det kan man så med VBA. Bare ikke direkte i SQL :)

i know :)

Så fandt jeg løsningen, til hvordan det skulle skrives/gøres:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open autofin_STRING

Conn.execute(strSQL)

strSQL = "SELECT @@identity AS intID FROM autofin.autofin_items"
Set rs = Conn.Execute(strSQL)

Response.Write rs("intID")