Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    estrarre dati da un db access filtrandoli

    ciao a tutti

    seguendo il punto 36 della guida asp su html.it sto cercando di estrarre dati da un database access filtrandoli sulla base di un campo. Finchè filtro in base al campo id chiave primaria come nell'esempio tutto ok. quando lo faccio sulla base di altri campi mi dà l'errore: Too few parameters. Expected 1.
    Nel codice al posto di intCodice io scrivo strCodice per filtrare secondo un campo che è di testo e che viene raccolto da un'altra pagina scrivendo: <a href="collegamento2.asp?foto=<%=rs(2)%>"
    vi ringrazio



    <%
    dim intCodice
    intCodice = request("Id")
    if intCodice<>"" then
    %>
    <HTML>
    <HEAD>
    <TITLE> Modifica Un Libro Immesso</TITLE>
    </HEAD>
    <BODY>
    <%
    dim strCode
    strCode="innovatel"
    dim intVolta
    intVolta="0"

    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="driver={Microsoft Access Driver (*.mdb)}; "
    strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb")
    strConn=strConn & ";pwd=" & strCode
    Conn.Open strConn
    sql = "SELECT * FROM libri WHERE Id="&intCodice
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn ,3,3
    %>
    <FORM METHOD=POST ACTION="modifica3.asp?Id=<%=rs(0)%>">
    <TABLE>
    <TR>
    <TD>Titolo</TD>
    <TD><INPUT TYPE="text" NAME="titolo"
    value="<%=rs(1)%>"></TD> </TR>
    <TR>
    <TD>Autore</TD>
    <TD><INPUT TYPE="text" NAME="autore"
    value="<%=rs(2)%>"></TD> </TR>
    <TR>
    <TD>Genere</TD>
    <TD><INPUT TYPE="text" NAME="genere"
    value="<%=rs(3)%

  2. #2
    prova così

    sql = "SELECT * FROM libri WHERE Id=' " &strCodice & " ' "

  3. #3
    grazie ho scritto così. adesso non mi dà errore ma non mostra alcun record. ce ne sono che soddisfano la condizione ma non li mostra


    <%
    dim strCodice
    strCodice = request("foto")
    if strCodice<>"" then
    %>


    <%

    dim intVolta
    intVolta="0"

    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="driver={Microsoft Access Driver (*.mdb)}; "
    strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/nuovo.mdb")
    strConn=strConn & ";pwd=" & strCode
    Conn.Open strConn
    sql = "SELECT * FROM catalogo WHERE foto LIKE ' " &strCodice & " '"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn ,3,3

    do while not(rs.eof)
    if intVolta="1" then
    intVolta="0"
    intTesto="#00FF99"
    intSfondo="#FFFF00"
    else
    intVolta="1"
    intTesto="#FFFF99"
    intSfondo="#33CCFF"
    end if
    %>
    <TR bgcolor="<%=intSfondo%>">
    <TD width="25%"><%=rs(0)%></TD>
    <TD width="25%"><%=rs(1)%></TD>
    <TD width="25%"><%=rs(2)%></TD>
    <TD width="25%"><%=rs(3)%></TD>
    </TR>
    <%
    rs.movenext
    loop
    rs.Close
    set rs = Nothing
    conn.Close
    set conn = Nothing
    %>
    </TABLE>
    </center>
    </body>
    </html>

  4. #4
    Utente di HTML.it L'avatar di wallrider
    Registrato dal
    Apr 2003
    Messaggi
    2,755
    ma il LIKE senza caratteri jolly si può usare? :master:
    RIP Cicciobenzina 9/11/2010

    "Riseminaciceli, i ceci nell'orto"

  5. #5
    prova a fare due cose
    1) un response.write(sql)
    e ti provi la query in access per vedere se è tutto ok
    2) se vuoi fare il link lo puoi usare come hai scritto o anche così "SELECT * FROM catalogo WHERE foto LIKE ' " &strCodice & "% '""

    infine prova a fare prima un trim di strCodice

    ciao

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.