Newsgroup: it.comp.www.asp
Titolo: Query un po complessa...

Ho portato un piccolo applicativo in Access in asp
funziona tutto bene però ho un problema sulle pagine di ricerca, ecco il
perche:
 StrSQL = "SELECT Nominativi.ID, Nominativi.Ragione_Sociale,
Nominativi.Provincia, " & _
             "Contatto11.Last_Name, Nominativi.Telefono,
Nominativi.Data_call, " & _
             "Nominativi.Fatturato, Nominativi.Attivita,
qry_prov_reg.Regione " & _
             "FROM (Nominativi LEFT JOIN qry_prov_reg ON
Nominativi.Provincia " & _
             "= qry_prov_reg.Sigla_Breve) LEFT JOIN Contatto11 ON
Nominativi.ID " & _
             "= Contatto11.ID_Nominativo WHERE (((Nominativi.Attivita)
Like " & _
             "('*' & [Forms]![Ricerche]![Attivita] & '*') And
(Nominativi.Attivita) " & _
             "Not Like ('*' & [Forms]![Ricerche]![escludi1] & '*') And " &
_
             "(Nominativi.Attivita) Not Like ('*' &
[Forms]![Ricerche]![escludi2] & '*') " & _
             "And (Nominativi.Attivita) Not Like ('*' &
[Forms]![Ricerche]![escludi3] & '*')) " & _
             "AND ((qry_prov_reg.Regione) Like ('*' &
[Forms]![Ricerche]![Regione1] & '*') " & _
             "Or (qry_prov_reg.Regione) Like ('*' &
[Forms]![Ricerche]![Regione2] & '*') " & _
             "Or (qry_prov_reg.Regione) Like ('*' &
[Forms]![Ricerche]![Regione3] & '*')))"
C'è un campo primario chiamato attivita e ci sono 3 campi in cui deve
essere ascluso il valore scritto e 3 campi da cui fare un altro filtro.
In sintesi...
digito Alimentari
nel campo escludi1 scrivo macch
nel campo escludi2 scrivo impia
nel campo escludi3 scrivo prod
cosi mi esclude tutti i valori appena digitati
nel campo regione1 scrivo lombardia
nel campo regione2 scrivo piemonte
nel campo regione3 scrivo liguria
e cosi mi da la query mi da il risultato gia filtrato sopra ma con un
altro filtro.
ora..
come faccio tutto cio in asp??
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Galassya ha scritto:



trovato da sola la soluzione..
ecco come...
If QSQuery <> "" Then
				QSQuery = Replace(QSQuery2, "'", "''")
				ArrQuery = Split(QSQuery2, " ")
				SQL = " SELECT * FROM Nominativi WHERE "
				For i = 0 to UBound(ArrQuery, 1)
					SQL = SQL & "(Attivita LIKE '%" & ArrQuery(i) & "%') AND "
				Next
				sql = sql & "(attivita not like '%" &request("k1") &"%') and "
				sql = sql & "(attivita not like '%" &request("k2") &"%') and "
				sql = sql & "(attivita not like '%" &request("k3") &"%') and "
				sql = sql & "(attivita like '%" &request("r1") &"%') and "
				sql = sql & "(attivita like '%" &request("r2") &"%') and "
				sql = sql & "(attivita like '%" &request("r3") &"%') and "
				SQL = SQL & "Attivita order by Ragione_Sociale"
				RS.Open SQL, Conn, 1
				'response.write sql 
				'response.end
			End If
:-))


Galassya ha scritto:



CANTATO VITTORIA TROPPO PRESTO....
If QSQuery2 <> "" Then
	QSQuery2 = Replace(QSQuery2, "'", "''")
	ArrQuery = Split(QSQuery2, " ")
	SQL = " SELECT * FROM Nominativi WHERE "
	For i = 0 to UBound(ArrQuery, 1)
	SQL = SQL & "(Attivita LIKE '%" & ArrQuery(i) & "%') AND "
	Next
	sql = sql & "(attivita not like '%" &request("k1") &"%') and "
	sql = sql & "(attivita not like '%" &request("k2") &"%') and "
	sql = sql & "(attivita not like '%" &request("k3") &"%') and "
	sql = sql & "(attivita like '%" &request("r1") &"%') and "
	sql = sql & "(attivita like '%" &request("r2") &"%') and "
	sql = sql & "(attivita like '%" &request("r3") &"%') and "
	SQL = SQL & "Attivita order by ???"
 
	RS.Open SQL, Conn, 1
	'response.write sql 
	'response.end
	End If
se i campi k1 k2 k3 r1 r2 r3 li lascio in  bianco ....
non mi trova nessun record :-(
altro problema con order by...
ho un campo chiamato radio con 3 case
<input name="radio" type="radio" value="1">
<input name="radio" type="radio" value="2">
<input name="radio" type="radio" value="3">
<% Radio = request("Radio")
Select Case Radio
    Case 1
        SQL = SQL & " ORDER BY Nominativi.Ragione_Sociale;"
    Case 2
        SQL = SQL & " ORDER BY Nominativi.Fatturato DESC ,
qry_prov_reg.Regione, Nominativi.Provincia, Nominativi.Ragione_Sociale;"
     Case 3
        SQL = SQL & " ORDER BY qry_prov_reg.Regione, Nominativi.Provincia,
Nominativi.Ragione_Sociale;"
 
End Select
%>
come faccio a passare questi valori nella stringa: SQL = SQL & "Attivita
order by ???"
Grazie in anticipo...
