Problema con estrazione dati

[michele77]

Ciao a tutti,

Qualcuno può aiutarmi?

Da questo motore interno di ricerca, io inserisco nel campo input un codice e mi tira fuori tutti i codici che iniziano per categoria...con l'operatore like %...fin qui tutto bene.

<%

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,Rs

strSQL = "Select * from Dati2 where code like '%" & Cerca & "%' or ID like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"

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

%>
      
         <%=Server.HTMLEncode(rs("concorrente"))%>
         <%=Server.HTMLEncode(rs("code"))%>
         <%Response.write "" & Rs ("description") & "" & ""%>
         <%Response.write "" & Rs ("code_oem") & "" & ""%>
         <%Response.write "" & Rs ("grammi_sea") & "" & ""%>
         <%Response.write "" & Rs ("grammi_con") & "" & ""%>
         <%Response.write "" & Rs ("price") & "" & ""%>

<%
Rs.MoveNext  

Loop  

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>

Perchè poi inserendo questa query dopo le response, che mi calcola una percentuale su ogni record, mi estrae solo 1 record e non tutti i record per categoria???

   
<%

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,Rs


strSQL = "Select * from Dati2 where code like '%" & Cerca & "%' or ID like '%" & Cerca & "%' or description like '%" & Cerca & "%' order by code asc"


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

%>

      
         <%=Server.HTMLEncode(rs("concorrente"))%>
         <%=Server.HTMLEncode(rs("code"))%>
         <%Response.write "" & Rs ("description") & "" & ""%>
         <%Response.write "" & Rs ("code_oem") & "" & ""%>
         <%Response.write "" & Rs ("grammi_sea") & "" & ""%>
         <%Response.write "" & Rs ("grammi_con") & "" & ""%>
         <%Response.write "" & Rs ("price") & "" & ""%>
         <%set rs=conn.execute ("Select MIN(prezzo_concorrenza) as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%response.write ""&rs("minimo")%>
         <%set rs=conn.execute ("Select MIN(((prezzo_concorrenza) *0.7)*0.95)*0.9 as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%Response.write ""&rs("minimo")%>

<%
Rs.MoveNext  

Loop  

End If

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing
%>

[optime]

ma perché mischi sempre le cose? cosa c'entrano quelle due select dentro le response.write? sistema la prima select, visto che peschi sempre da Dati2... ragiona michelino, ragiona

[michele77]

Ciao Optime,

Eh eh ...infatti è quello che sto cercando di fare.

In effetti quella query l'ho trovato in rete già bella e pronta...ma non fa proprio al caso mio.

Come dovrei impostarla allora? invertire le cose? tipo:

strSQL = "Select * from Dati2 where (prezzo_concorrenza) as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%> ???? e poi la Select MIN??? dove l'ha metto?

("Select MIN(prezzo_concorrenza) as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%>


("Select MIN(((prezzo_concorrenza) *0.7)*0.95)*0.9 as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%>

[optime]

michelino, dicci cosa vuoi fare

[michele77]

Quello che faccio ora.

Il problema è che mi estrae solo 1 record.

Faccio un esempio:

campo input: scrivo il codice T100SA24 (televisore samsung 24")
e mi tira fuori il record ok

ma se scrivo : T100SA....non mi estrae tutti i codici per categoria:

Es: T100SA19 - T100SA22 - T100SA24 - T100SA32 - T100SA40 - T100SA46 ETC...

Con La prima pagina postata...mi funziona tutto.


Con la seconda pagina asp ho fatto una modifica...perchè mi serve avere come valore per ogni record una percentuale (che ho inserito nella query)
prezzo minimo *0.70 * 0.95 * 0.90

[cavicchiandrea]

<%set rs=conn.execute ("Select MIN(prezzo_concorrenza) as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%response.write ""&rs("minimo")%>
         <%set rs=conn.execute ("Select MIN(((prezzo_concorrenza) *0.7)*0.95)*0.9 as minimo from Dati2 WHERE code LIKE '%" & Cerca & "%' ")%><%Response.write ""&rs("minimo")%>

I rs in grassetto li cambierei per scrupolo sia mai che vadano in conflitto con l'atro Rs già aperto, poi cos'è prezzo_concorrenza una variabile o un campo della tabella?

[optime]

perché non metti tutto nella query principale? e comunque, continuo a non capire. fa' un esempio (del tipo: ho questi dati nel db, vorrei questi dati in output)

[michele77]

Però con questo tipo di query non estraggo solo il campo "prezzo_concorrenza"????

[optime]

dai, facci un esempio...

[Roby_72]

Chiama i recordset in modo diverso...

Roby