find sidste ID

SELECT TOP 1 * FROM TABEL ORDER BY userID DESC;

Set Conn = Server.CreateObject(\"ADODB.Connection\")
\'mssql driveren kender jeg ikke lige
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../db/wservice.mdb\") & \";UID=admin;PWD=;\"
Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From gbook\", Conn, 1, 3
rs2.AddNew
rs2(\"bruger\") = bruger
rs2(\"bgcolor\") = request.form(\"bgcolor\")
rs2(\"fontface\") = request.form(\"fontface\")
rs2(\"fontcolor\") = request.form(\"fontcolor\")
rs2.Update
id = rs2(\"id\")
rs2.Close
Set rs2 = Nothing

tpiil >> Hvad hvis 2 opretter sig på samme tid ?

http://www.1script.com/asp0001.html

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword
Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From tabel\", Conn, 1, 3
rs2.AddNew
rs2(\"felt\") = \"whatever\"
id = rs2(\"id\")
rs2.close
set rs2 = not´hing

Så har du det id som posten blev oprettet med i variablen id

Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"Support.mdb\")
strSQL = \"Select Max(id) from tabl\"
set RS = conn.execute( strSQL )

perla >> vil sige det samme som til tpiil, hvad hvis der er 2 der opretter sig på samme tid ?

Det gøres på en sikker måde sådan her:

http://www.activeserverpages.dk/aspdigital/kapitel2/sql_identity.asp

Mit forslag virker fint når to opretter sig samtidig!

stigc >> Eller som jeg har skrevet.

Netsrac, min lille artikel handler om Access DB-er og virker formentlig
ikke ved MySql. Problemet er at mysql_insert_id ikke er tilgængelig gennem
ODBC driveren, som man vel sagtens bruger sammen med ASP. Og stigc, uden
at undersøge det, mener jeg din link kun virker med MsSql.

Jeg kender ikke nogen god løsning til ASP/Mysql - men lytter med :)

netsrac >> np, recordset\'et tager højde for det.

AddNew tilføjer en ny record til RecordsSet\'et og placerer cursoren på denne.

Hvis en anden bruger efterfølgende tilføjer en record vil det ikke ha\' nogen betydning; cursoren står STADIG på den record man netop har indsat.

Man skal især lige holde øje med parametrene på Open metoden (,1 ,2), som specifikerer cursortype og locktype.

At åbne et recordset på denne måde er en del langsommere end en \"standard\" forward-only cursor, så man skal generelt prøve at undgå det, med mindre man altså SKAL bruge ID\'et på den record man netop har indsat.

Er man mere til SQL-sætninger kan det også gøres på denne måde (frit efter hovedet, så der KAN være syntax-fejl osv.):

rs2.Open \"INSERT INTO tblMyTable bla bla bla\", Conn, 1, 3
Set rstNewID = Conn.Execute(\"SELECT @@IDENTITY@@ AS NewID\")
Response.Write \"NewID:\" & rstNewID(\"NewID\")

Håber det hjælper ;-)

/SørenS

...ups, har aldrig prøvet SELECT @@IDENTITY@@ på MySQL, kun på Access og MS SQL!

Nogen der kan sige om det er samme syntax?

/SørenS

netsrac >> findes ikke noget der hedder samtidigt da det håndteres i databasen .

Nu har jeg prøvet de forslag der er modtaget:
1 jeg kan ikke få AddNew til at virke
2 har prøvet http://www.activeserverpages.dk/aspdigital/kapitel2/sql_identity.asp  men efter hvad jeg kann se så understøtter Mysql ikke @@IDENTITY
andre forslag ?

perla >> Hvis det skal bruges når man opretter en ny post i databasen, vil du ikke med garanti få det rigtige id ud.

erik >> Uden selv at have testet det, tror jeg nok at det virker på mySQL.

Nå jo, nu har jeg det. 2 secs!

lyder godt

Du laver en sql som
  \"INSERT INTO ..\"
og som det næste laver du en
  \"SELECT  LAST_INSERT_ID() AS id\"
på samme connection. Så har du den - husk lige at den sidste også
afleverer et recordset som enhver anden SELECT. Virker med garanti :)

Netsrac - det er da muligt det virker - jeg har heller aldrig prøvet det :)

netsrac >> Den efterfølgende select tager max 5-10 msek.  I ekstreme situationer har du ret. Kan så løses med transaktionsstyring.

erik >> Nope, det virker ikke, har lige testet.

Tjaaa det så jo ellers meget rigtig ud, men jeg fik denne fejl:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80004005\'

[Microsoft][ODBC Driver Manager] Driveren understøtter ikke denne parameter.

/mysql/privat/gem_ny_admin.asp, linje 46
linie 46 er :     id = rs(\"id\")
så det kunne jo tude på at jeg ikke kan få fat på \"ID\" hvad gør jeg

min kode er:
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword
       


SQLstmt = \"INSERT INTO Users (dage_frem,mail_kode,mail_login,mail_server,bruger_efternavn,bruger_navn,Username,Password,opdate_tid)\"
SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"dage_frem\") & \",\'\" & request.form(\"mail_kode\") & \"\',\'\" & request.form(\"mail_login\") & \"\',\'\" & request.form(\"mail_server\") & \"\',\'\" & request.form(\"bruger_efternavn\") & \"\',\'\" & request.form(\"bruger_navn\") & \"\',\'\" & request.form(\"Username\") & \"\',\'\" & request.form(\"Password\") & \"\',\" & request.form(\"opdate_tid\") & \")\"

response.write sqlstmt

Conn.Execute (SQLstmt)

SQL =\"SELECT  LAST_INSERT_ID() AS id\"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)

    id = rs(\"id\")

response.write id
conn.Close
Set conn = nothing
Set SQLstmt = nothing
Set SQL = nothing

perla: der er ikke transaktioner i MySqls nuværende versioner. Du kan låse
tabellen, men når der nu er indbygget en \"gratis\" funktion, er det den der
skal bruges.

Kender desværre ikke MySQL

nogen med en go ide\' ?

øv også .... hvor kører du det henne, sth? Ved du hvilken version af
driveren, der bruges? Jeg kan ikke afprøve det lige nu.

jeg køre det hjemme ved mig selv på win ME og med pws odbc.driveren er ver.myodbc-2.50.36

OK, jeg har lige afprøvet det uden om ASP, og der virker det - naturligvis.
Det ser ud til at være den nyeste MyODBC. Noget med PWS???

Er der andre, der kan afprøve det?

jeg fandt denne løsning, jeg kunne godt nok ikke finde måde hvor med jeg kunne se det nye id-nr men denne løsning kunne i det mindste smide det nye nummer in i den anden tabel

i får 5 point hver, det var en der ledte mig på sporet her: http://www.eksperten.dk/spm/57727
han få så de 100 point.

ellers tak for kampen

Nu fik jeg lejlighed til at afprøve det, og jeg får nedenstående lidt omskrevne
til at virke perfekt. Den indsætter, og jeg får id-et ud hver gang, det bliver
bare større og større.... Det er også på en PWS (fra 1997 til Win95). Jeg har
ingen anelse om hvad der er galt hos dig...

<html>
<head>
<title>ASP/Mysql</title>
</head>

<body bgcolor=\"#FFFFFF\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=10.70.1.2;database=test_ej\"
SQLstmt = \"INSERT INTO navne (navn) values (\'Peter\')\"
response.write sqlstmt
Conn.Execute (SQLstmt)
SQL =\"SELECT  LAST_INSERT_ID() AS id\"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
id = rs(\"id\")
response.write id
conn.Close
Set conn = nothing
Set SQLstmt = nothing
Set SQL = nothing
%>
</body>
</html>