[VB6] SELECT con WHERE multiplo

[Boolean]

Ciao LM

ti ho preparato una routine di esempio con una ListBox, per semplicità... tanto alla fine il procedimento è lo stesso...

per provarla, in un form metti una ListBox e un pulsante:

Private Sub Form_Load()
For K = 0 To 5
    List1.AddItem "Elemento" & K
Next
End Sub

Private Sub Command1_Click()

Dim Condizioni() As String
Dim S As String
Dim SQL As String
Dim K As Integer

SQL = "SELECT ...... FROM TblRegistro"

S = ""
For K = 0 To List1.ListCount - 1
    If List1.Selected(K) Then
        S = S & List1.List(K) & "|"
    End If
Next

If S = "" Then Exit Sub

S = Left(S, Len(S) - 1)

Condizioni = Split(S, "|")

If UBound(Condizioni) = 0 Then
    SQL = SQL & " WHERE Proponente='" & Condizioni(0) & "'"
Else
    SQL = SQL & " WHERE "
    For K = 0 To UBound(Condizioni)
        SQL = SQL & "Proponente='" & Condizioni(K) & "'" & IIf(K < UBound(Condizioni), " OR ", "")
    Next K
End If

MsgBox SQL

End Sub

Boolean