...che query non saprei...

**michele77** · 07-08-2012, 14:46

Ciao ragazziiiiiiiiiiiiiiiiiiiiiii

scusate se riapro il post ma non sono riuscito a risolvere la problematica.
Qualcuno mi potrebbe aiutare??? prometto birretta!!!

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..(codice,articolo,descrizione,prezzo min,med,max) ma di 1 solo record.

Ma....se volessi estrarre tutti i record/codici che iniziano per codice e modello...F300SA???

Esempio:

F300SA1510 - TIZIO
F300SA1710 - CAIO
F300SA2850 - SEMPRONIO
F300SA3050 - ETC....

Come potrei fare???
Come potrete vedere dal codice, ho commentato la query con le like% per non estrarre duplicati del tipo:

F300SA1510 - TIZIO
F300SA1510 - CAIO
F300SA1510 - SEMPRONIO
F300SA1510 - ETC

************posto la pagina:****************

codice:

codice:
<%
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%">
<font face="Verdana" size="2" color="#800000">Date</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Concorrente</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Code</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Description</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Code_oem</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Grm_sea</font></td>
<td bgcolor="#D3D3D3" align="center" width="30%"><font face="Verdana" size="2">Grm_con</font></td>
<td bgcolor="#008080" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_Sea</font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_Conc</font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_min</font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_medio</font></td>
<td bgcolor="#000800" align="center" width="30%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_max</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">


<%
Rs.MoveNext 

Loop 

End If

%> 

</div>
<p align="center"></p>
</form>
</div>

</body>

</html>
<%

In sostanza, vorrei avere il prezzo minimo,medio e massimo su tutti i record che soddisfano la richiesta e non soltanto su un solo record.
esempio:

codice:

F300SA1510 - TIZIO - Prezzomin 2, prezzo medio 3, prezzo max 4
F300SA1710 - CAIO -  Prezzomin 2, prezzo medio 3, prezzo max 4
F300SA1910  -SEMPRONIO - Prezzomin 2, prezzo medio 3, prezzo max 4
F300SA2850  -PINCOPALLINO - Prezzomin 2, prezzo medio 3, prezzo max 4
etc....

**michele77** · 07-08-2012, 14:50

In effetti tutto questo lo faccio in un'altra pagina chiamata "report.asp"

ma in questa pagina non ho il motore di ricerca (campo input)

Dovrei integrarlo...ma con la query mi sono incartato.

codice:

<%
Session.LCID = 1040

  Dim conn
  set conn=Server.CreateObject("adodb.connection")
  conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" &  server.MapPath("/db/db.mdb")
    
  Dim rs
  set rs=Server.CreateObject("adodb.recordset") 

  Dim id,code,description,code_oem,grammi_sea,grammi_con,price,prezzo_concorrenza,priced 
  id = trim(request.QueryString("id"))

  
prezzo_concorrenza = 1000
price = 1000


RecordsPerPagina = 10 

page = Request("page") 

if page="" then page=1 

'strSQL = "SELECT * FROM Dati2 order by ID DESC" 
strSQL2 = "SELECT Query_checklistino1.concorrente,Query_checklistino1.code,Query_checklistino1.description,Query_checklistino1.grammi_sea,Query_checklistino1.grammi_con, Query_checklistino1.prezzo_promo, Query_checklistino1.priced, Query_checklistino1.price AS NostroPrezzo, Query_checklistino1.MinDiprezzo_concorrenza, ((([MinDiprezzo_concorrenza] /1.30)/1.05)/1.10) AS PrezzoAcquistoNecessario, [price]-[MinDiprezzo_concorrenza] AS AttivaVerifica FROM Query_checklistino1 WHERE ((([price]-[MinDiprezzo_concorrenza])>0))"



'RS.open strSQL, Conn, 1 
RS.open strSQL2, Conn, 1 

RS.PageSize = RecordsPerPagina 

RS.AbsolutePage = page 

If RS.Eof=True or RS.Bof=True then 

Response.Write "

Nessun risultato trovato</P>" 

Else 
%>


[img]../competitor/testata_sup2.jpg[/img]</p>

</p>
<%
Response.Write ("") 

For i=1 to RecordsPerPagina 

if Not RS.EOF then 


%>


      <table width="80%" border="0" cellspacing="1" cellpadding="5" id="table95" style="border-top-width: 0px; border-bottom-width: 0px">
        <tr> 
          <td bgcolor="#D3D3D3" align="center" width="8%"><font face="Verdana" size="2">Competitor</font></td>
          <td bgcolor="#D3D3D3" align="center" width="8%"><font face="Verdana" size="2">Code</font></td>
          <td bgcolor="#D3D3D3" align="center" width="38%"><font face="Verdana" size="2">Description</font></td>
          <td bgcolor="#D3D3D3" align="center" width="7%"><font face="Verdana" size="2">Grm_sea</font></td>
          <td bgcolor="#D3D3D3" align="center" width="7%"><font face="Verdana" size="2">Grm_con</font></td>
          <td bgcolor="#008080" align="center" width="9%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_Sea</font></td>
          <td bgcolor="#800000" align="center" width="13%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_min_Conc</font></td>
          <td bgcolor="#008000" align="center" width="13%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_Promo</font></td>
          <td bgcolor="#808000" align="center" width="13%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_RSD</font></td>
          <td bgcolor="#000800" align="center" width="15%"><font face="Verdana" size="2" color="#FFFFFF">Prezzo_Acquisto_Sea</font></td>
			
			
        </tr>
        <tr>
          <td bgcolor="#FFCC33" width="8%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("concorrente"))%></font></td>
          <td bgcolor="#FFCC33" width="8%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("code"))%></font></td>
          <td bgcolor="#FFCC33" width="38%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("description"))%></font></td>
          <td bgcolor="#FFCC33" width="7%"><font face="Verdana" size="2"><%Response.write "" & Rs ("grammi_Sea") & "" & ""%></font></td>
          <td bgcolor="#FFCC33" width="7%"><font face="Verdana" size="2"><%Response.write "" & Rs ("grammi_con") & "" & ""%></font></td>
          <td bgcolor="#FFCC33" width="9%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("NostroPrezzo"))%></font></td>
          <td bgcolor="#FFCC33" width="13%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("MinDiprezzo_concorrenza"))%></font></td>
          <td bgcolor="#FFCC33" width="13%"><font face="Verdana" size="2"><%Response.write "" & Rs ("prezzo_promo") & "" & ""%></font></td>
          <td bgcolor="#FFCC33" width="9%"><font face="Verdana" size="2"><%Response.write "" & Rs ("priced") & "" & ""%></font></td>
          <td bgcolor="#FFCC33" width="15%"><font face="Verdana" size="2"><%=Server.HTMLEncode (FormatNumber(rs ("PrezzoAcquistoNecessario")))%></font></td>

 </tr> 
      </table>
<%
RS.MoveNext 

end if 

Next 

Response.Write ("</table></center>") 

End if 

Response.Write "

<font face= Verdana size=2>Pagine:</font></p> " 

For pag=1 to RS.PageCount 

Response.Write "<font face= Verdana size=2><A href='report_ac.asp?page=" & pag & "'>" 

Response.Write pag 

Response.Write "</A> " 

Next 

Response.Write "</P>" 

RS.Close 

Set RS=Nothing 

Conn.Close 

Set Conn=Nothing 

%>

Discussione: ...che query non saprei...

Strumenti discussione

Ricerca discussione

Visualizza

...che query non saprei...

Permessi di invio