Avatar billede ossian Nybegynder
08. september 2003 - 00:50 Der er 1 kommentar og
1 løsning

Microsoft JET Database Engine (0x80040E14) -2

får nu denne fejl:

Microsoft JET Database Engine (0x80040E14)
Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "and (uCase(productName) like '%VENTEGODT%' or uCase(productDesc) like '%VENTEGODT%')".

I denne kode:

            <%

chkText = Request.form("chkText")
    strText = cstr(Request.form("strText"))
    strText = uCase(strText)
    chkCat = Request.form("chkCat")
    strCat = Request.form("strCat")

    strTextWhere = ""
    strCatWhere = ""

if chkText = "yes" then
        strTextWhere = " and (uCase(productName) like '%"&strText&"%'"
        strTextWhere = strTextWhere & " or uCase(productDesc) like '%"_
            & strText & "%')"   
    end if

   
    if chkCat = "yes" then
        strCatWhere = " boger.catalogID = " & strCat
    end if

    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ConString

    sqlText = "select distinct boger.productID, "
    sqlText = sqlText & "boger.productName "
    sqlText = sqlText & "from boger "
    sqlText = sqlText & "where "
    if len(strTextWhere) > 0 then
      sqlText = sqlText & strTextWhere
    end if
    if len(strCatWhere) > 0 then
      if len(strTextWhere) > 0 then
        sqlText = sqlText & " and "
      end if
      sqlText = sqlText & strCatWhere
    end if

%>   
           
           
            <%
            'response.write(sqlText)
            'response.end
    set rsProd = Conn.Execute(sqlText)
       
        If rsProd.BOF And rsProd.EOF Then
            Response.Write "<font face='Verdana' size='2'><strong>"
            Response.Write "No items found, please narrow your <a href='search.asp'>search.</a></b>"
        end if
   
    while not rsProd.EOF
    %>
      <a href="product.asp?intProdID=<% Response.Write rsProd("productID") %>">
      <%= rsProd("productName") %> </a><br>
      <%       
rsProd.MoveNext
wend   
rsProd.Close
set rsProd = Nothing
   
Conn.Close
set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
08. september 2003 - 00:54 #1
PRøv at rette:

if chkText = "yes" then
        strTextWhere = " and (uCase(productName) like '%"&strText&"%'"
        strTextWhere = strTextWhere & " or uCase(productDesc) like '%"_
            & strText & "%')"   
    end if


Til:

if chkText = "yes" then
        strTextWhere = " (uCase(productName) like '%"&strText&"%'"
        strTextWhere = strTextWhere & " or uCase(productDesc) like '%"_
            & strText & "%')"   
    end if
Avatar billede ossian Nybegynder
08. september 2003 - 00:56 #2
tak :-)
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