Aggiungere un nuovo campo input per fare una ricerca in base al numero che inserisci

wereb · 24 Gen 2007

OK , ma devo solo inserire questo ?

<%
Dim camporicerca, arrayslash, primadelloslash, dopoloslash
camporicerca = Request("nomecaselladitesto")
arrayslash = Split(camporicerca, "/")
primadelloslash = arrayslash(0)
dopoloslash = arrayslash(1)
rs.Open "SELECT * FROM NomeTabella WHERE ID_Z3 = " & primadelloslash & " AND Z56 = " & dopoloslash, cn, 1
%>

lukeonweb · 24 Gen 2007

mi sono fermato all'apertura del recordset

provo a completarlo, poi lo modifichi tu secondo le esigenze ed i reali nomi dei campi

Dim camporicerca, arrayslash, primadelloslash, dopoloslash
camporicerca = Request("nomecaselladitesto")
arrayslash = Split(camporicerca, "/")
primadelloslash = arrayslash(0)
dopoloslash = arrayslash(1)
rs.Open "SELECT * FROM NomeTabella WHERE ID_Z3 = " & primadelloslash & " AND Z56 = " & dopoloslash, cn, 1
If rs.EOF Then
Response.Write "NON CI SONO DATI"
Else
%>
<table>
<%
While rs.EOF = False
%>
<tr>
<td><%=rs("NOME_CAMPO_1")%></td>
<td><%=rs("NOME_CAMPO_2")%></td>
<td><%=rs("NOME_CAMPO_3")%></td>
</tr>
<%
rs.MoveNext
Wend
%>
</table>
<%
End If
rs.Close
%>

fammi sapere

wereb · 24 Gen 2007

ciao ti ho risp anche in privato,

mi esce questo errore che mi dava anche ieri :

-------------------------------------------------
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/0016/test/IT/test.asp, line 8
-------------------------------------------------

ho fatto un 1° file index.html :

<html>
<head>Test </head>
<body>
<form method="POST" action="test.asp" align="center">
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Riferimento:</font>
</TD>
<TD>
<INPUT NAME="riferimento" SIZE="10" VALUE="0">
</TD>
</tr>
<tr>
<td colspan="2">
<INPUT TYPE="submit" NAME="P4" tabindex="1" VALUE="Cerca i dati impostati">
<INPUT TYPE="reset" NAME="P5" tabindex="2" VALUE="Annulla i criteri">
</td>
</tr>
</form>
</body>
</html>

------------------------------------------------------------

e il secondo file test.asp :

------------------------------------------------------------


<%
Dim camporicerca, arrayslash, primadelloslash, dopoloslash
camporicerca = Request("riferimento")
arrayslash = Split(camporicerca, "/")
primadelloslash = arrayslash(0)
dopoloslash = arrayslash(1)
rs.Open "SELECT * FROM INDICE WHERE ID_Z3 = " & primadelloslash & " AND Z56 = " & dopoloslash, cn, 1
If rs.EOF Then
Response.Write "NON CI SONO DATI"
Else
%>
<table>
<%
While rs.EOF = False
%>
<tr>
<td><%=rs("Z4")%></td>
<td><%=rs("Z5")%></td>
<td><%=rs("Z6")%></td>
</tr>
<%
rs.MoveNext
Wend
%>
</table>
<%
End If
rs.Close
%>

------------------------------------------------------------

Quando puoi mi rispondi, ti aspetto...

lukeonweb · 24 Gen 2007

Io ho supposto che il tuo recordset si chiami rs... e comunque la connessione devi aprirla.

Ti consiglio di fermarti un attimo e di leggere queste mie semplici guide:

https://www.mrw.it/fareweb/asp/

Solo le prime tre, esclusa quella con riferimento a JScript.

Se poi preferisci JScript a VBScript per asp leggi anche quella. Trovi poi molte risorse ASP/JScript sul mio http://www.lukeonweb.net

Fammi sapere!

wereb · 24 Gen 2007

a fare la connessione penso che ci sia riuscito, infatti quando vado a scrivere ex. 0/0023 mi da non ci sono risultati ma quando scrivo 1/0032 mi esce questo errore :

------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/0016/test/IT/test.asp, line 14
------------------------------------------------------------

la linea 14 e:

rs.Open "SELECT * FROM INDICE WHERE ID_Z3 = " & primadelloslash & " AND Z56 = " & dopoloslash, cn, 1

---------------------
ora il file e:
-------------------------

<%@ LANGUAGE = "VBScript" %>

<%
Dim camporicerca, arrayslash, primadelloslash, dopoloslash, sc, cn, rs
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("/db21.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

camporicerca = Request("riferimento")
arrayslash = Split(camporicerca, "/")
primadelloslash = arrayslash(0)
dopoloslash = arrayslash(1)
rs.Open "SELECT * FROM INDICE WHERE ID_Z3 = " & primadelloslash & " AND Z56 = " & dopoloslash, cn, 1

If rs.EOF Then
Response.Write "NON CI SONO DATI"
Else
%>
<table>
<%
While rs.EOF = False
%>
<tr>
<td><%=rs("Z4")%></td>
<td><%=rs("Z5")%></td>
<td><%=rs("Z6")%></td>
</tr>
<%
rs.MoveNext
Wend
%>
</table>
<%
End If
rs.Close
%>

wereb · 24 Gen 2007

volevo dirti anche che il

campo ID_Z3 e di tipo Numerico

e il campo Z56 e di tipo TESTO

la select sul db access cambia vero ?

lukeonweb · 24 Gen 2007

Come prima riga della pagina, prima della include, mettici:

<%On Error Resume Next%>

Se uno dei due campi è di tipo stringa la select cambia:

' ESEMPIO NUMERICO
"SELECT * FROM rabella WHERE campo = 1"

' ESEMPIO TESTUALE
"SELECT * FROM rabella WHERE campo = 'valore'"

Naturalmente concatena i doppi apici con le &.

Come in PHP, solo che li usi il . e qui la &.

Aggiungere un nuovo campo input per fare una ricerca in base al numero che inserisci

wereb

Nuovo Utente

lukeonweb

Utente Attivo

wereb

Nuovo Utente

lukeonweb

Utente Attivo

wereb

Nuovo Utente

wereb

Nuovo Utente

lukeonweb

Utente Attivo

Discussioni simili

Aggiungere un nuovo campo input per fare una ricerca in base al numero che inserisci

wereb

Nuovo Utente

lukeonweb

Utente Attivo

wereb

Nuovo Utente

lukeonweb

Utente Attivo

wereb

Nuovo Utente

wereb

Nuovo Utente

lukeonweb

Utente Attivo

Discussioni simili

Privacy & Transparency

Privacy & Transparency