Ciao ghg, visto che sei stato così gentile nel rispondermi, potresti darmi una mano con un tipo di query?
Mi spiego.
Allora ho creato un motore di ricerca interno che mi estrae i dati dalle tabelle del db access.
Il problema è il seguente:
Come è strutturata ora la query, quando inserisco nel campo input un codice/articolo Esempio: F300SA1510 (Drum Samsung ML-1510)mi estrae il codice richiesto con tutte le condizioni che sono in query..e fin quì tutto bene.
MA....se volessi estrarre tutti i codici che iniziano per F300SA...per concorrente etc..
F300SA1510 - TIZIO
F300SA1710 - CAIO
F300SA2850 - SEMPRONIO
F300SA3050 - ETC
ETC...
Come potrei fare??? come potrai vedere dal codice, ho commentato la query con le like% per non estrarre duplicati.
************posto la pagina:****************
<%
Dim Cerca
Cerca = Replace(Request.Form("search"), "'", "")
if Cerca = "" then
Response.write ""
Response.end
end if
Dim DbPath, Conn
DbPath="/db/db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
Dim strSQL,strSQL2, Rs
strSQL = "Select * from Dati2 where code='" & Cerca & "' order by code asc"
'strSQL = "Select * from Dati2 where code like '%" & Cerca & "%' or ID like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("/db/db.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, 3, 3
if Rs.EOF then
Response.write "Nessun risultato trovato!"
else
Do while NOT Rs.EOF
%>
<table width="100%" border="0" cellspacing="1" cellpadding="5" id="table95" style="border-top-width: 0px; border-bottom-width: 0px">
<tr>
<td bgcolor="#D3D3D3" align="center" width="12%"><b>
<font face="Verdana" size="2" color="#800000">Date</font></b></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Concorrente</b></font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Code</b></font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Description</b></font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Code_oem</b></font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Grm_sea</b></font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2"><b>Grm_con</b></font></td>
<td bgcolor="#008080" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF"><b>Prezzo_Sea</b></font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF"><b>Prezzo_Conc</b></font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF"><b>Prezzo_min</b></font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF"><b>Prezzo_medio</b></font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF"><b>Prezzo_max</b></font></td>
</tr>
<tr>
<td bgcolor="#FFCC33" width="12%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("data_reg"))%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("concorrente"))%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("code"))%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("description") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("code_oem") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("grammi_sea") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("grammi_con") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("price") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%Response.write "" & Rs ("prezzo_concorrenza") & "" & ""%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%set rs=cn.execute ("Select MIN(prezzo_concorrenza) as minimo from Dati2 WHERE code='" & Cerca & "' ")%><p align="center"><font color="#FF0000" face="Verdana" size="2"><%response.write ""&rs("minimo")%></font>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%set rs=cn.execute ("Select AVG(prezzo_concorrenza) as media from Dati2 WHERE code='" & Cerca & "' ")%><p align="center"><font color="#008000" face="Verdana" size="2"><%response.write ""&rs ("media")%></font>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%set rs=cn.execute ("Select MAX(prezzo_concorrenza) as massimo from Dati2 WHERE code='" & Cerca & "' ")%><p align="center"><font color="#000080" face="Verdana" size="2"><%response.write ""&rs ("massimo")%></font></p>
</tr>
</table>
</form>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
<tr>
<td>
</tr>
</table>
<div align="center"><br>
<%
Rs.MoveNext
Loop
End If
%>
</div>
<p align="center"></p>
</form>
</div>
</body>
</html>
<%
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
%>
Praticamente vorrei avere il prezzo minimo,medio e massimo su tutti i record che soddisfano la richiesta.
Modificato da ettorpa il 07 agosto 2012 12.49 -
