---

Jeg har en form hvor der indtases forskellige oplysninger, og nednstående
kode, den fejler når jeg prøver at trække "ID" på den netop
indsatte record ud igen. Ellers fungerer det fint altsammen bortset fra det
med ID

Jeg har læst mig til at det skulle man kunne gøre med noget @@identity men
jeg kan f..... ikke få det til at virke

--------------------------------------------------------------
Set objConn = Server.CreateObject("ADODB.Connection")
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("stat.mdb")
objConn.Open ConnectionString

sqlQuery = "SELECT * FROM produkter"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sqlQuery, objConn, 1, 2

objRS.AddNew

objRS.Update


objRS.Close
Set objRS = Nothing

--------------------------------------------------------------



Jensen

---

"Jensen" <jtn@privat.dk> wrote in message
news:3e2b229a$0$10983$edfadb0f@dread12.news.tele.dk...
> Jeg har en form hvor der indtases forskellige oplysninger, og nednstående
> kode, den fejler når jeg prøver at trække "ID" på den netop
> indsatte record ud igen. Ellers fungerer det fint altsammen bortset fra
det
> med ID
>
> Jeg har læst mig til at det skulle man kunne gøre med noget @@identity men
> jeg kan f..... ikke få det til at virke
>
> --------------------------------------------------------------
> Set objConn = Server.CreateObject("ADODB.Connection")
> ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("stat.mdb")
> objConn.Open ConnectionString
>
> sqlQuery = "SELECT * FROM produkter"
> Set objRS = Server.CreateObject("ADODB.Recordset")
> objRS.Open sqlQuery, objConn, 1, 2
>
> objRS.AddNew
>
> objRS.Update
>
>
> objRS.Close
> Set objRS = Nothing

sqlQuery = "SELECT Top 1 ID FROM produkter ORDER BY ID DESC"

/S

---

Jensen skrev:

> Jeg har en form hvor der indtases forskellige oplysninger, og
> nednstående kode, den fejler når jeg prøver at trække "ID" på
> den netop indsatte record ud igen.

Hvad har du gjort og hvilken fejl får du?

> Jeg har læst mig til at det skulle man kunne gøre med noget
> @@identity men jeg kan f..... ikke få det til at virke

@@identity virker (mig bekendt) kun ved insert-sætninger - ikke
ved .Addnew på et ADO-recordset.

> objRS.AddNew
>
> objRS.Update

Her burde du kunne læse værdien med

   x = objRS("idfelt")

Har du prøvet det?
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns930912B05D91jcdmfdk@gyrosmod.cybercity.dk...
> Jensen skrev:
>
> > Jeg har en form hvor der indtases forskellige oplysninger, og
> > nednstående kode, den fejler når jeg prøver at trække "ID" på
> > den netop indsatte record ud igen.
>
> Hvad har du gjort og hvilken fejl får du?


Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status
value, if available. No work was done.





> > Jeg har læst mig til at det skulle man kunne gøre med noget
> > @@identity men jeg kan f..... ikke få det til at virke
>
> @@identity virker (mig bekendt) kun ved insert-sætninger - ikke
> ved .Addnew på et ADO-recordset.
>
> > objRS.AddNew
> >
> > objRS.Update
>
> Her burde du kunne læse værdien med
>
> x = objRS("idfelt")


Så får jeg denne

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status
value, if available. No work was done.





Jensen

---

Jensen skrev:

> Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
>
> Multiple-step OLE DB operation generated errors. Check each
> OLE DB status value, if available. No work was done.


Hm - det siger mig ikke umiddelbart noget. Hvilken database bruger
du? Har du evt. overvejet en anden driver?

En Googlesøgning på fejlmeddelelsen giver en lang række hits - prøv
evt. og se om der er noget der kan bruges.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

On Mon, 20 Jan 2003 00:06:53 +0100, Jens Gyldenkærne Clausen
<jens@gyros.invalid> wrote:

>> Jeg har læst mig til at det skulle man kunne gøre med noget
>> @@identity men jeg kan f..... ikke få det til at virke
>
> @@identity virker (mig bekendt) kun ved insert-sætninger - ikke
>ved .Addnew på et ADO-recordset.

Og vel heller ikke på en Access db.
Er det ikke en MS SQL-ting?


--
Jørn Andersen,
Brønshøj

---

Jørn Andersen skrev:

>> @@identity virker (mig bekendt) kun ved insert-sætninger - ikke
>>ved .Addnew på et ADO-recordset.
>
> Og vel heller ikke på en Access db.
> Er det ikke en MS SQL-ting?

Det har du vist ret i.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jensen" <jtn@privat.dk> skrev i en meddelelse
news:3e2b229a$0$10983$edfadb0f@dread12.news.tele.dk...
> Jeg har en form hvor der indtases forskellige oplysninger, og nednstående
> kode, den fejler når jeg prøver at trække "ID" på den netop
> indsatte record ud igen. Ellers fungerer det fint altsammen bortset fra
det
> med ID
>
> Jeg har læst mig til at det skulle man kunne gøre med noget @@identity men
> jeg kan f..... ikke få det til at virke

Denne kode virker for mig :

<%
'skriv til database
strSQL = "Insert into Kunder (fornavn, efternavn) values ('" & strFornavn &
"','" & strEfternavn & "')"
Conn.Execute(strSQL)
strSQL = "SELECT @@IDENTITY AS nytID FROM Kunder"
Set tRs = Conn.Execute(strSQL)
kundenummer = tRs("nytID")
tRs.Close
Set tRs = Nothing
Conn.Close

Response.Write kundenummer
%>


Læs eventuelt disse to indlæg på eksperten hvor jeg fik koden:
http://www.eksperten.dk/spm/234018
http://www.eksperten.dk/spm/234050