Ricerca Su DB

**Xylorth** · 15-06-2006, 23:13

Ciao ragazzi, speriamo che possiate illuminarmi =)

Allora io ho fatto questa pagina per un interrogazzione al mio Db statitica.

codice:

<%@ Language=VBScript %>
<%
Option Explicit
Response.ExpiresAbsolute=Now()
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>classifica</TITLE>
</HEAD>
<BODY background="http://xylorth.altervista.org/SitoWeb/Immagini/Sfondi/sfondo00322.GIF">
<p align="center">
<%
Dim conn
Dim rs
Dim sSql
Dim i
 

'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

 'Imposto la stringa SQL di selezione dati
sSql ="SELECT auto.Nome,auto.tipo,auto.Descrizione,auto.anno,auto.potenza,auto.Cilindrata,auto.Alimentazione FROM auto"

   
 'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<u><font size="5" face="Tahoma">DataBase Alfa Romeo </font></u>
<CENTER>
<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER">
<TR>
<TD>Nome Auto</TD>
<TD>Tipo</TD>
<TD>Descrizione</TD>
<TD>Anno di Produzione</TD>
<TD>Potenza</TD>
<TD>Cilindrata</TD>
<TD>Alimentazione</TD>
</TR>
<%
'Controllo se non c'e' nessun dato (EOF=End Of File)
If rs.EOF=True Then
%>
<TR>
<TD>Nessun record trovato</TD>
</TR>
<%
Else
Do Until rs.EOF
%>
<TR> 
<% For i=0 to rs.Fields.Count -1 %>
	<TD>  <% =rs.Fields(i).Value %> </TD>
<% Next %>
</TR>
<%
rs.MoveNext 
Loop
End If

'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close 
Set conn = Nothing
%>
 </TABLE>
</CENTER>
</BODY>
</HTML>

Ecco io vorrei poter fare un interrogazione dinamica.
Mi spiego meglio magari una piccola tabella dv scegliere se cercare tramite anno,nome,potenza etc etc.
Mi potreste postare il codice e spiegarmi cm inserirlo nel mio?!
Vi sarei grato se riuscite è x la tesina grazie!

**supergeniux** · 16-06-2006, 01:10

crei un form dove passi i valori che poi recuperi nella pagina della query sql, e strutturi la query cosi:

codice:

sql = "SELECT campo FROM tbl WHERE anno = '"&variabile_anno&"'"

poi pian pianino ti studi la clausola LIKE e crei query sempre più complesse.

**Xylorth** · 16-06-2006, 19:12

ciao ascolta io sn arrivato qua ma nn riesco a definire la variabile ho cercato anche su manuali ma nn riesco a capire xkè nn la legge!

codice:

<%@ Language=VBScript %>
<%
Option Explicit
Response.ExpiresAbsolute=Now()
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>classifica</TITLE>
</HEAD>
<BODY background="http://xylorth.altervista.org/SitoWeb/Immagini/Sfondi/sfondo00322.GIF">
<p align="center">
<%
Dim anno
Dim conn
Dim rs
Dim sSql
Dim i

anno=1990
 

'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

 'Imposto la stringa SQL di selezione dati
sSql= "SELECT auto.Nome FROM auto WHERE auto.anno = "&anno&";"

   
 'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<u><font size="5" face="Tahoma">DataBase Alfa Romeo </font></u>
<CENTER>
<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER">
<TR>
<TD>Nome Auto</TD>
<TD>Tipo</TD>
<TD>Descrizione</TD>
<TD>Anno di Produzione</TD>
<TD>Potenza</TD>
<TD>Cilindrata</TD>
<TD>Alimentazione</TD>
</TR>
<%
'Controllo se non c'e' nessun dato (EOF=End Of File)
If rs.EOF=True Then
%>
<TR>
<TD>Nessun record trovato</TD>
</TR>
<%
Else
Do Until rs.EOF
%>
<TR> 
<% For i=0 to rs.Fields.Count -1 %>
	<TD>  <% =rs.Fields(i).Value %> </TD>
<% Next %>
</TR>
<%
rs.MoveNext 
Loop
End If

'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close 
Set conn = Nothing
%>
 </TABLE>
</CENTER>
</BODY>
</HTML>

**Xylorth** · 16-06-2006, 19:21

scusate colpa mia!Funziona benissimo!

Discussione: Ricerca Su DB

Strumenti discussione

Ricerca discussione

Visualizza

Ricerca Su DB

Permessi di invio