ricerca con 3 campi non obbligatori

[semolino]

Io recupero queste tre variabili per una ricerca:
strTipo = Request("tipo")
strDim = Request("dimensione")
strCol = Request("colore")

Non è necessario scegliere i tre valori,ma l'utente è libero di decidere se scegliere 1, 2 o 3 opzioni. Oppure sceglierne 2...

Come posso fare la query di ricerca in modo tale da soddisfare tutte le possibilità?
L'unico modo che mi viene in mente è di fare tante if quante sono le possibilita. Ad esempio:

If strTipo <> "" And strDim = "Dimens" And strCol = "Colore" Then
		   strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti WHERE Categoria = '"&strTipo&"' "
		ElseIf strTipo = "" And strDim <> "" And strCol = "" Then
		   strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti WHERE Dimensione = '"&strDim&"' "
		Else
		   strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti WHERE Colore LIKE '"&strCol&"' "
		End If

Ma credo che ci sia un modo ancora più veloce.
Come potrei fare?

[Sypher]

wherecondition =""
If strTipo <> "" then
   wherecondition = " Categoria = '"&strTipo&"'"
end if
If strDim <> "" then
   if wherecondition  <> "" then
      wherecondition = wherecondition & " AND "
   end if
   wherecondition = wherecondition & " Dimensione = '"& strDim &"'"
end if
If strCol <> "" then 
  if wherecondition  <> "" then
      wherecondition = wherecondition & " AND "
  end if
   wherecondition = wherecondition & " Colore LIKE '"&strCol&"'"
end if

strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti WHERE " & wherecondition

mmm l'ho scritto al volo...una cosa del genere?

[semolino]

Oh, grande... ci stavo arrivando anche io, ma questa è ancora più semplice... grazie

[semolino]

Mi sono accorto che se per caso i 3 campi risultano vuoti mi da errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nella proposizione WHERE

Come posso fare?
I valori li passo da tre select

[Sypher]

Originariamente inviato da semolino
Mi sono accorto che se per caso i 3 campi risultano vuoti mi da errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nella proposizione WHERE

Come posso fare?
I valori li passo da tre select

fai così dopo le if metti:

strTapSQL = "SELECT * FROM "&strTapTablePrefix&"Prodotti"
If wherecondition <> ""
strTapSQL = strTapSQL &  " WHERE " & wherecondition
End If

[semolino]

Grazie, in questo modo però se passo i valori vuoti mi estrae tutti i record... invece dovrebbe non trovare niente. :master:

[optime]

se non hai selezionato niente vuol dire che vuoi tutto....

[semolino]

In teoria se l'utente non seleziona niente dai campi select vorrei far uscire un messaggio. Faccio un controllo a priori sulla valorizzazione dei campi. Grazie