Avatar billede tblaster Nybegynder
15. april 2002 - 12:40 Der er 22 kommentarer og
1 løsning

Problem med asp

Jeg har et problem med asp og søger hurtiget et svar!

Ved kørelse af min asp kode får jeg følgende besked:

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

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


Min kode ser således ud:

            <%

If Varegruppe = "" then
response.Write("Skriv venligst hvad du vil søge på")
else
end if

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=db.mdb"
        Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE (Varegruppe = '" & Varegruppe & "')"
   
rs.Open SQL, Conn


For x = 1 to 10
    If rs.eof then
        Exit For
    Else
ImageURL = rs("ImageURL")
ImageURL = "<img src='" & ImageURL & "'>"

%>

Avatar billede medions Nybegynder
15. april 2002 - 12:42 #1
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = '" & Varegruppe & "'

//>Rune
Avatar billede medions Nybegynder
15. april 2002 - 12:45 #2
<%

If Varegruppe = "" then
response.Write("Skriv venligst hvad du vil søge på")
else
end if

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=db.mdb"
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")   
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = '" & Varegruppe & "'
   
rs.Open SQL, Conn


For x = 1 to 10
    If rs.eof then
        Exit For
    Else
ImageURL = rs("ImageURL")
ImageURL = "<img src='" & ImageURL & "'>"

%>

Prøv lige med denne!

//>Rune
Avatar billede kimiwan Nybegynder
15. april 2002 - 12:45 #3
hedder et af dine felter i databasen evt. noget andet end Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe ??
Avatar billede kimiwan Nybegynder
15. april 2002 - 12:50 #4
husk at sørge for at varegruppe-variablen vitterlig indeholder en værdi - ellers får du denne fejl.

måske du mener request("varegruppe") i stedet for bare varegruppe?

SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = '" & request("Varegruppe") & "'"
Avatar billede tblaster Nybegynder
15. april 2002 - 13:02 #5
VEd dit andet svar ... medions ... får jeg følgende besked:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/1/Shopping/items.asp, line 45

SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = '" & Varegruppe & "'
-----------------------------------------------------------------------------------------------------------------------------^
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:04 #6
tblaster: det er fordi medions glemte at sætte en double quote på i slutningen.
Avatar billede tblaster Nybegynder
15. april 2002 - 13:05 #7
Selve koden bruge i sammenhæng med nogle varegrupper ... man har altså en side hvor man har varegrupperne listet og når man trykker på den åbner siden med den kode jeg har sendt ... den åbner altså bare linket der hedder:
index.asp?ram ... foreksempel!
Avatar billede tblaster Nybegynder
15. april 2002 - 13:10 #8
jeg har prøvet det medions sagde oz med double " ... men det gav bare den samme fejl som den jeg havde før!
Avatar billede tblaster Nybegynder
15. april 2002 - 13:12 #9
Følgende kode har jeg selvfølge defineret i toppen:

<%Language = "VBScript"%>
<%Varegruppe = request.Querystring%>
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:14 #10
prøv med varegruppe = request.querystring("varegruppe")  (hvis din querystring ser sådan her ud: side.asp?varegruppe=sodavand
Avatar billede tblaster Nybegynder
15. april 2002 - 13:23 #11
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = request.querystring("Varegruppe")"

Dette giver en Expected end of statement fejl! Men hvor?
Avatar billede tblaster Nybegynder
15. april 2002 - 13:26 #12
Brguer jeg følgende kode:

SQL = "SELECT Varegruppe, Produkt,Udsalgspris, Bemærkning FROM Produkter WHERE Varegruppe = '" & Varegruppe & "'"

Får jeg følgende besked:

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:26 #13
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = '" & request.querystring("Varegruppe") & "'"
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:27 #14
så er varegruppe formentlig et id.. så skal du fjerne ''...

SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Varegruppe = " & request.querystring("Varegruppe")
Avatar billede tblaster Nybegynder
15. april 2002 - 13:29 #15
Varegruppe er et id ... men den får en tekst eftersom jeg bruger funktionen INNER JOIN til at få den rigtige tekst til varegruppens id!
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:31 #16
hvis varegruppe-feltet i din database er en numerisk værdi, skal du ikke bruge ''.
Avatar billede tblaster Nybegynder
15. april 2002 - 13:32 #17
Mecd den sidste kode du smed Kimiwan får jeg følgende fejl ved brug af følgende varegrupper:

items.asp?Varegruppe=Ram

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


items.asp?Varegruppe = CD-ROM drev

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Varegruppe = CD-ROM drev'.


Hvis du kan hjælpe mig med at få det til at virke skal jeg nok smide et bonus oveni!
Avatar billede kimiwan Nybegynder
15. april 2002 - 13:35 #18
kan du vente et par timer? tror jeg skal se at få bestilt lidt her *s*
Avatar billede tblaster Nybegynder
15. april 2002 - 13:38 #19
om et par timer så sidder jeg ikke og roder med det her mere ... så har jeg nemmelig fri ... :-D

Men ellers hvis du har tid i aften så vil jeg meget gerne have at du hjælpe mig der!
Avatar billede tblaster Nybegynder
15. april 2002 - 13:39 #20
Hvis du gider hjælpe mig til det virker så vil jeg gerne give dig 200 point!

Du kan kontakte mig på Thomas@dyrlund.dk eller icq: 30546966
Avatar billede tblaster Nybegynder
15. april 2002 - 13:49 #21
Ved brug af følgende formel:

            <%

If Varegruppe = "" then
response.Write("Skriv venligst hvad du vil søge på")
else
end if

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=scidata.mdb"
        Conn.Open "DBQ=" & Server.Mappath("scidata.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Varegruppe.Varegruppe, Produkter.Produkt, Produkter.Udsalgspris, Produkter.Bemærkning FROM Produkter INNER JOIN Varegruppe ON Produkter.varegruppe = Varegruppe.VaregruppeId ORDER BY Produkter.Varegruppe, Produkter.Produkt, Produkter.Udsalgspris, Produkter.Bemærkning WHERE Varegruppe = " & request.querystring("Varegruppe")
rs.Open SQL, Conn



For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

Får jeg følgende besked:

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Produkter.Bemærkning WHERE Varegruppe = 12
Avatar billede tblaster Nybegynder
15. april 2002 - 13:58 #22
Har ændret lidt i koden og er kommet frem til:

SQL = "SELECT Varegruppe.Varegruppe, Produkter.Produkt, Produkter.Udsalgspris, Produkter.Bemærkning FROM Produkter INNER JOIN Varegruppe ON Produkter.varegruppe = Varegruppe.VaregruppeId WHERE Produkter.Varegruppe = " & request.querystring("Varegruppe")
rs.Open SQL, Conn

Det virker fint nok når man bruger items.asp?Varegruppe=1 eller et hvilket som helst andet tal ... men hvordan kan jeg ændre så den accepter items.asp?Varegruppe=Is ... ???
Avatar billede tblaster Nybegynder
15. april 2002 - 14:07 #23
Glem det sidste spørgsmål ... jeg har oprettet det som et nyt spørgsmål her:
http://www.eksperten.dk/spm/198397

Tak for hjælpen kimiwan ... det hjalp mig til at finde en mådet at løse det på som du jo kan se!
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