Avatar billede axl_rose Nybegynder
17. januar 2006 - 21:07 Der er 14 kommentarer

Problem med id

Fejlen er:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.


Siden ser således ud:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
strSQL = "Select * From gruppe_menu Where id_side = " & Request.Querystring("side")
Set rs = Conn.Execute(strSQL)

Do
Html= "" & rs("Html") & ""


' Skriv personens data
Response.Write "" & rs("html") & ""



rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede axl_rose Nybegynder
17. januar 2006 - 21:47 #1
Eller er dette bedre?:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
strSQL = "Select * From gruppe_menu Where ([id_side,sprog]) = " & Request.Querystring("side")& "" & Request.Querystring("sprog")

Set rs = Conn.Execute(strSQL)

Do
id_side = "" & rs("id_side") & ""
sprog = "" & rs("sprog") & ""

' Skriv personens data
Response.Write "" & rs("html") & ""



rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede cpufan Juniormester
17. januar 2006 - 22:15 #2
enten hedder kolonnen ikke id_side eller også er request("side") tom
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:16 #3
Er kommet frem til dette, er det ikke deromkring?:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
strSQL = "Select * From gruppe_menu Where "("side,sprog") = "" & Request.Querystring("side") & " " & Request.Querystring("sprog")

Set rs = Conn.Execute(strSQL)

Do
side = "" & rs("side") & ""
sprog = "" & rs("sprog") & ""

' Skriv personens data
Response.Write "" & rs("html") & ""



rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:17 #4
i databasen hedder den side

Det kommer fra siden med flg:
site.asp?side=muligheder&sprog=DK
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:18 #5
Fejlen lyder nu:
Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "Select * From gruppe"]'
Avatar billede jansangill Nybegynder
17. januar 2006 - 22:22 #6
Dette ville være nemmere, ifølge mig i det mindste.
<%
' Databaseforbindelse - husk at angive sti til din database

Set Conn = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
SQL = "Select * From gruppe_menu Where id_side = " & Request.Querystring("side")
Conn.Open DSN,SQL


Do while not Conn.EOF
Html= "" & Conn("Html") & ""


' Skriv personens data
Response.Write "" & Conn("html") & ""



Conn.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

Men hvor er det du definerer Request.Querystring("side")?, siden det vel er den det går galt med?

eller
Avatar billede jansangill Nybegynder
17. januar 2006 - 22:24 #7
too slow hehe, nvm
Avatar billede cpufan Juniormester
17. januar 2006 - 22:31 #8
hvis den hedder side i db'en

så er den korrekte

strSQL = "Select * From gruppe_menu Where side = " & Request.Querystring("side")
Avatar billede cpufan Juniormester
17. januar 2006 - 22:33 #9
eller hvis du vil have sprog med:

strSQL = "Select * From gruppe_menu Where side = '" & Request.Querystring("side") &"' AND sprog ='" & request("sprog") &"'"


rettelse til før:

strSQL = "Select * From gruppe_menu Where side = '" & Request.Querystring("side")&"'"
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:36 #10
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:37 #11
Kunne du rette det hele for jeg en række mange fejl!
Avatar billede cpufan Juniormester
17. januar 2006 - 22:43 #12
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/database.mdb")
Conn.Open DSN
strSQL = "Select * From gruppe_menu Where side = '" & Request.Querystring("side") &"' AND sprog ='" & request("sprog") &"'"
Set rs = Conn.Execute(strSQL)

while not rs.eof
side = "" & rs("side") & ""
sprog = "" & rs("sprog") & ""

' Skriv personens data
Response.Write "" & rs("html") & ""



rs.MoveNext
wend

Conn.Close
Set Conn = Nothing
%>
Avatar billede axl_rose Nybegynder
17. januar 2006 - 22:48 #13
YES!!!! smider du ikke et svar det var bare godt tak
Avatar billede cpufan Juniormester
17. januar 2006 - 22:54 #14
kommer her
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester