Ricerche nei DATABASE

il 17 gennaio 2002 alle 01:12

15 messaggi dal 15 gennaio 2002

Vorrei sapere come posso effettuare una ricerca nel Database utilizzando operatori di confronto <>=.
In pratica in un archivio in cui sono registrati utenti con i seguenti campi:

ID
NOME
COGNOME
ETA

ed io volessi creare un RecordSet con tutti quelli aventi una eta minore di 30 anni come posso fare?

Rispondi Quoting

luxet

il 17 gennaio 2002 alle 03:16

725 messaggi dal 31 agosto 2001

Così dovrebbe andare:

<%
' codice

tuaEta = 30
strSQL = "SELECT nome, cognome, eta FROM tua_tabella WHERE eta <= " & tuaEta

'codice
%>

<% Tutto è complesso prima di essere semplice %>

Rispondi Quoting

panthe

il 17 gennaio 2002 alle 04:02

15 messaggi dal 15 gennaio 2002

Ok!
Poi ho provato a fare una Ricerca all'interno del database dando un range di valori possibili, per esempio dicendo tutti quelli con eta compresa tra i 20 ed i 30.

Lo script è il seguente ed è funzionante.

<%
Response.write "<BODY bgcolor='#CCCC99' text='#000000' link='#FF0000' vlink='#800000' alink='#FF0000'>"

dim Conn, strConn, page, RecPerPag, TotRec, Dove, strRicerca

Dove= Server.MapPath("AgDatabase")

strConn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Dove & "\ragazze.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

RecPerPag=6

page= Request("page")

if page="" then page=1

strRicerca= Request("ricerca")

SQL = "SELECT * FROM Ragazze_tbl WHERE Eta < 33 AND Eta > 22"

Set rs= Server.CreateObject("ADODB.Recordset")

rs.Open SQL, Conn, 1, 1, 1

rs.PageSize=RecPerPag

rs.AbsolutePage = page

TotRec=rs.RecordCount

If TotRec=0 then
Response.write "Nessun record presente"
Else
Response.write " " & TotRec & " Risultati trovati"
Response.write "<CENTER><TABLE border=1 width='100%'>"
For i=1 to RecPerPag
if Not rs.EOF then

if i=1 then
Response.write "<TR>"
Else
if i=4 then
Response.write "</TR><TR>"
End if
End if

'Mostra record corrente
Response.write "<TD width='16%'><CENTER><a href='Zoom.asp?IdPassed=" & rs("Id") & "&' target='_blank'><IMG border=0 src='"& Dove & "\Foto\" & rs("Fotosmall") &"'></A></CENTER></TD>"
Response.write "<TD width='16%'><a href='Zoom.asp?IdPassed=" & rs("Id") & "&' target='_blank'> REF: " & rs("Id") & "</A> "
Response.write " " & rs("Nome")
Response.write " "
Response.write " " & rs("Eta") & " anni</TD>"

'Vai al record successivo
rs.movenext
end if
Next
Response.write "</TR></TABLE></CENTER>"
End if

If TotRec > 0 then

Response.Write "Pagine: "

For p=1 to rs.PageCount

If p <> CInt(Page) then
Response.Write "<A href='ricerca.asp?page=" & p
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Else
' pagina attuale
Response.Write ""
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</A> "
Else
Response.Write " "
End if

Next

Response.Write ""

End if

%>

<hr>

<%

' liberiamo le risorse
Rs.Close
Set Rs = Nothing

conn.Close
set conn = Nothing

%>

Ora con l'aiuto di qualcuno vorrei modificarlo in modo che al posto di valori fissi utilizzi delle variabili in ingresso che definiscono il range delle eta , ETA_DA, ETA_A.
In effetti ci ho già provato ma non funziona...

Aiuutttoooo

Rispondi Quoting

luxet

il 17 gennaio 2002 alle 17:06

725 messaggi dal 31 agosto 2001

Se non ho interpretato male la tua richiesta ti basterà crare una pagina che contenga una FORM con una TEXTBOX dove l'utente digiterà il valore, dopo di che recuperi il tutto con un Request.Form e tutto è risolto!

<% Tutto è complesso prima di essere semplice %>

Rispondi Quoting

panthe

il 18 gennaio 2002 alle 04:22

15 messaggi dal 15 gennaio 2002

Ok adesso funziona tutto bene:

Questo è lo script, se a qualcuno potrà in futuro servire...

<%
Response.write "<BODY bgcolor='#F7C598' text='#000000' link='#FF0000' vlink='#800000' alink='#FF0000'>"

dim Conn, strConn, page, RecPerPag, TotRec, Dove, strRicerca, Eta_da, Eta_a

Dove= Server.MapPath("AgDatabase")

strConn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Dove & "\ragazze.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

RecPerPag=6

page= Request("page")
Eta_da= Request("Eta_da")
Eta_a= Request("Eta_a")

if page="" then page=1
if Eta_da="" then Eta_da=CInt(18)
if Eta_a="" then Eta_a=CInt(100)

SQL = "SELECT * FROM Ragazze_tbl WHERE Eta >= " & Eta_da & " AND Eta <= " & Eta_a & " ORDER BY Eta ASC, Cognome ASC"

Set rs= Server.CreateObject("ADODB.Recordset")

rs.Open SQL, Conn, 1, 1, 1

TotRec=rs.RecordCount

If TotRec=0 then
Response.write "Nessun record presente"
Else
Response.write "<CENTER> " & TotRec & " Risultati trovati</CENTER>"

Response.write "<CENTER><TABLE border=1 width='100%' bgcolor='#F6B678'>"

rs.PageSize=RecPerPag

rs.AbsolutePage = page

For i=1 to RecPerPag
if Not rs.EOF then

if i=1 then
Response.write "<TR>"
Else
if i=4 then
Response.write "</TR><TR>"
End if
End if

'Mostra record corrente
Response.write "<TD width='16%'><CENTER><a href='Zoom.asp?IdPassed=" & rs("Id") & "&' target='_blank'><IMG border=0 src='"& Dove & "\Foto\" & rs("Fotosmall") &"'></A></CENTER></TD>"
Response.write "<TD width='16%'><a href='Zoom.asp?IdPassed=" & rs("Id") & "&' target='_blank'> REF: " & rs("Id") & "</A> "
Response.write " " & rs("Nome")
Response.write " "
Response.write " " & rs("Eta") & " anni</TD>"

'Vai al record successivo B2B1B2
rs.movenext
end if
Next
Response.write "</TR></TABLE></CENTER>"
End if

If TotRec > 0 then
Response.Write ""
Response.Write "Pagine: "

For p=1 to rs.PageCount

If p <> CInt(Page) then
Response.Write "<A href='ricerca.asp?page=" & p & "&Eta_da=" & Eta_da & "&Eta_a=" & Eta_a & "'>"

Else
' pagina attuale
Response.Write ""
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</A> "
Else
Response.Write " "
End if

Next

Response.Write ""

End if
Response.Write "<a href='Brasile.html'>Nuova Ricerca</a>"

%>

<hr>

<%

' liberiamo le risorse
Rs.Close
Set Rs = Nothing

conn.Close
set conn = Nothing

%>
Ciaaoo

Rispondi Quoting

sylver65

il 20 gennaio 2002 alle 23:37

15 messaggi dal 10 dicembre 2001

per meglio comprendere lo script, vorrei chiedere una cosa:
Come hai chiamato il db, come hai nominato la tabella, come hai nominato i campi.
Questo per meglio comprendere e studiare.
Grazie per l'eventuale aiuto

Rispondi Quoting

panthe

il 23 gennaio 2002 alle 06:43

15 messaggi dal 15 gennaio 2002

Allora, il database l'ho nominato Ragazze.mdb, c'è solo una tabella che si chiama Ragazze_tbl, i campi della tabella sono: Cognome, Nome, Eta, Fotosmall, Fotobig.
Ovviamente in Fotosmall ed in Fotobig metto il nome delle foto delle ragazze. Spero che ti possa essere d'aiuto.

Se vuoi vedere il risultato vai all'indirizzo

http://www.allfrominside.it/public/panthe/Pantea.html

Ti avverto però che devo dargli una bella sistemata ancora soprattutto a livello grafico e le foto sono temporanee perchè le sto aspettando dal Brasile

Se hai altre domande ...
Ciao

Rispondi Quoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7