[VB6] Query con parametri possibilmente nulli

[fux_vr]

--------------------------------------------------------------------------------

ciao io utilizzo dataEnvironment per creare query ma adeso ho bisogno di creare una query cosi'
ho 4 campi
data
autore
argomento
file

dove utente puo' fare la ricerca mi serve una query che cerchi questi 3 campi ma se un campo e vuoto non lo cerchi.
esempio

SELECT autore, argomento, data, file
FROM Archivio
WHERE (autore = ?) AND (argomento = ?) AND (data = ?)
ORDER BY autore
ma facendo cosi' i campi devono essere tutti e 3 inseriti altrimenti la query non funziona.io volevo che se un campo e vuoto non lo cerchi
come posso fare ?'

[MdE2005]

Visto che i campi sono solamente tre potresti optare per una soluzione poco sistematica ma efficiente: usa le if.

[fux_vr]

iff per ogni valore che se c'e' fa la query altrimenti tutti

[MdE2005]

Prova e scrivi se va bene..

ciao

[fux_vr]

Dim strSQL As String
Dim Param(2) As String
Dim strWHERE As String

strSQL = "SELECT autore, argomento, data, file FROM Archivio"
Param(0) = IIf(Autore <> "", "Autore = '" & Autore & "'", "")
Param(1) = IIf(Argomento <> "", "Argomento = '" & Argomento & "'", "")
Param(2) = IIf(Data <> "", "Data = " & Data, "")

strWHERE = ""
For K = 0 To UBound(Param)
If Param(K) <> "" Then
strWHERE = strWHERE & Param(K) & IIf(K < UBound(Param), " AND ", " ORDER BY Autore")
End If
Next

strSQL = strSQL & IIf(strWHERE <> "", " WHERE ", "") & strWHERE


intendi una cosa cosi' o si puo semplificare???

[MdE2005]

Dovrebbe andare bene..cmq perchè vuoi semplificare? Non è poi così difficile e laborioso..

ciao