01. marts 2002 - 19:13Der er
5 kommentarer og 2 løsninger
Finde den første ID
Jeg har en nyheds side hvor jeg kan slette nyheder. Jeg ville gerne have et link fra forsiden der hedder Vis alle Nyheder. Normalt kaldes siden med arkiv.asp?id=9 jeg ville gerne kunne kalde den med arkiv.asp Men så får jeg en fejl med at der ikke er angivet noget id.
Så prøvede jeg:
id = request("id") if request("id") = "" then Set rs= Connect.Execute("SELECT TOP 1 FROM tnyheder ORDER BY id ASC") id = rs("id") set rs = Nothing end if
men det giver fejlen:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
/arkiv.asp, line 41
Linie 41 er Set rs= Connect.Execute("SELECT TOP 1 FROM tnyheder ORDER BY id ASC")
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Prøv det her, jeg tror det kan det du skal bruge, dog skal det lige tilpasses:
id = request("id") if id = "" then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db.mdb") strSQL = "select * from tabel order by id ASC" set rs = Conn.execute(strSQL) if rs.EOF then Response.write "Databasen er tom...>" else Do Until rs.EOF
RS.MoveNext Loop end if Conn.Close Set Conn = Nothing
else set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM tabel WHERE ID=" & id, Conn, 1, 3 rs.Close set rs = nothing Conn.Close set Conn = nothing end if
For at undgå de to fejl du beskriver skal linierne se således ud:
Set rs= Connect.Execute("SELECT TOP 1 * FROM tnyheder ORDER BY id ASC") ' * Manglede if not RS.EOF then id = rs("id") ' Må kun anvendes hvis RS ikke er tom end if
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
