skriv hvilket ID der er blevet tildelt i databasen

sorry denne streng (fejl havde sneget sig ind)

strSQL = "Insert into db (navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing%>
tak for tilmelding
<p>du har indtastet følgende :</p>
<p>navn : <%response.write request("navn")%><br>
adresse : <%response.write request("adresse")%><br>
color : <%response.write request("color")%></p>
<p>Og du har fået dette ID : <%response.write request("ID")%></p>

Hvilken database er det?

database.mdb

strSQL = "Insert into db (navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)
rs.open
Set Conn = Nothing%>
tak for tilmelding
<p>du har indtastet følgende :</p>
<p>navn : <%response.write request("navn")%><br>
adresse : <%response.write request("adresse")%><br>
color : <%response.write request("color")%></p>
<p>Og du har fået dette ID : <%response.write rs("ID")%></p>

Her går jeg så ud fra at dit felt i databasen hedder id
er ikke testet!!

Altså en Access database :)

her en beskrivelse af det:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=79

Du kan prøve efter du har indsat indsætte dette:

Set RS = Conn.Execute( "SELECT @@IDENTITY" )
idOfNewlyAddedRecord = RS(0)


Så det bliver:


strSQL = "Insert into db (navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("farve") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)
Set RS = Conn.Execute( "SELECT @@IDENTITY" )
idOfNewlyAddedRecord = RS(0)
Conn.Close
Set Conn = Nothing%>


Giver det 0 eller -1 må kan du prøve at ændre den sidste set rs til:
Set RS = Conn.Execute( "SELECT @@IDENTITY FROM db" )


Giver det stadig 0 må man bruge .AddNew metoden.

kunne man ikke lave en ny select ?

hvor man finder det højeste ID og vælger derfra ?

Men hvordan skulle det gøres?

-> fun22 = virker ikke :-(
eagleeye -> langt over min fatteevne, men hvis intet andet virker, må jeg jo til at se om jeg kan finde hoved og hale i det, men er der ikke en lettere måde?

Jo men en som henter max id gør jo det sammme som:
Set RS = Conn.Execute( "SELECT @@IDENTITY" )

Men du kan da prøve at skrive det sådan her:

Set RS = Conn.Execute( "SELECT max(id) from db" )

Så har du to selects, umiddelbart er det ikke mere uoverskueligt efter min mening :)


strSQL = "Insert into db (navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("farve") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)
Set RS = Conn.Execute( "SELECT max(id) from db" )
idOfNewlyAddedRecord = RS(0)
Conn.Close
Set Conn = Nothing%>

lidt mere logisk for mig :-)
tak for hjælpen, send lige et svar, så ruller pointene....

ok :)

dammm det virker ikke, det jeg skal have er noget i stil med :

strSQL = "Select * from counter where ID= max(ID)"

sorry igen en tryk fejl :-( (det er sent)

strSQL = "Select * from db where ID= max(ID)"

Hvad er fejlen ?

jeg kan ikke hente fx rs("navn") frem

tak for tilmelding
<p>du har indtastet følgende :</p>
<p>navn : <%response.write rs("navn")%><br>
adresse : <%response.write rs("adresse")%><br>
color : <%response.write rs("color")%></p>
<p>Og du har fået dette ID : <%response.write rs("ID")%></p>

Brug af MAX(id) kan ikke erstatte @@IDENTITY med flere samtidige brugere.

Nej ok, det kan du ikke navn og adresse må du uskrive fra Request.Form("navn") osv.

Max i SQL kan hente max værdi ud og ikke bruge som en where del.


Så du nød til at gøre sådan her:

strSQL = "Insert into db (navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("farve") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)
Set RS = Conn.Execute( "SELECT max(id) as nytid from db" )
Conn.Close
Set Conn = Nothing%>
tak for tilmelding
<p>du har indtastet følgende :</p>
<p>navn : <%response.write request("navn")%><br>
adresse : <%response.write request("adresse")%><br>
color : <%response.write request("color")%></p>
<p>Og du har fået dette ID : <%response.write rs("nytid")%></p>

jeg har ændret til @@IDENTITY men får nu denne fejl :
Item cannot be found in the collection corresponding to the requested name or ordinal.

i linien som kalde rs("navn")

ok tester lige

nu får jeg denne :
Og du har fået dette ID :

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

Ok hvordan ser koden ud?
Det er fordi id ikke er en kolonne i recordset'et

sådan ser hele sovsen ud :

strSQL = "Insert into db(navn, adresse, color) values('" & request.Form("navn") & "','" & request.Form("adresse") & "','" & request.Form("color")  & "')"
Conn.Execute(strSQL)

Set RS = Conn.Execute( "SELECT max(Id) as nytid from db" )

Conn.Close
Set Conn = Nothing
%>

tak for tilmelding
<p>du har indtastet følgende :</p><p>
navn : <%response.write request("navn")%><br>
adresse : <%response.write request("adresse")%><br>
color : <%response.write request("color")%></p><p>
Og du har fået dette ID : <%response.write rs("nytid") %></p>

jeg har prøvet at fjerne rs(" så der står :

Og du har fået dette ID : <%response.write nytid %></p>

i sidste linie - virker ej heller :-(

samme fejl?

nope, der står bare ID =

og så står der ingen ID

Linjen skal være sådan her:

Og du har fået dette ID : <%response.write rs("nytid") %></p>

Item cannot be found in the collection corresponding to the requested name or ordinal.

der er jo ingen recordset som hedder nytid ?
ingen kolonner som hedder nytid ?

Hvorfor så rs("nytid")?

Prøv lige at flytte de to linjer:

Conn.Close
Set Conn = Nothing


Til sidst efter du har udskrivet.


>>der er jo ingen recordset som hedder nytid ?
Nej men den laves i dette max(Id) as nytid  as bruge til at lave et alias sådan man kan bruge max(id) som et fiktivt kolonnenavn i denne linje
Set RS = Conn.Execute( "SELECT max(Id) as nytid from db" )

|-)  blind eller hvad  .....  tjaaa logisk nok.

perfekt så virker det.

velfortjente point

Så kan du prøve om denne virker:
Set RS = Conn.Execute( "SELECT  @@IDENTITY as nytid from db" )

nej da det virker fint nu... :-)

kan man ikke bruge select top 1 ?

og så bruge ORDER BY ID desc;