VB6 Istruzione Select

[binbum]

Allora..ho una listbox riempita con cognomi..devo fare una select in cui la condizione deve essere in base a una selezione multipla nella listbox..cioè non voglio fare una condizione con un solo cognome selezionato ma con 2 o più cognomi selezionati!
Grazie

[Brainjar]

La ListBox settala con style = '1 - CheckBox', così ottieni in modo
elegante la multiselezione.
La query di selezione la costruisci in questo modo :

Dim sSQL As String
Dim sWhere As String
Dim a As Integer

sSQL = "Select * from Tabella where"
sWhere = ""
For a = 0 To List1.ListCount - 1

    If List1.Selected(a) = True Then
        If IsEmpty(sWhere) Then
            sWhere = " Cognome = '" & List1.List(a) & "'"
        Else
            sWhere = " AND Cognome = '" & List1.List(a) & "'"
        End If
    End If
Next a
sSQL = sSQL & sWhere
'
' In questo punto hai la stringa sSQL composta dinamicamente.
'

Ricorda solo che per gestire gli apostrofi presenti spesso nei
cognomi tipo D'Amico, Dell'Acqua ecc. ) le istruzioni

            .....  
            sWhere = " Cognome = '" & List1.List(a) & "'"
            ..... 
            sWhere = " AND Cognome = '" & List1.List(a) & "'"

generano un errore a runtime.
Un metodo efficace a prevenirlo è quello di utilizzare i doppi apici
al posto dei singoli. La strada più immediata è :

            .....  
            sWhere = " Cognome = " & Chr$(34) & List1.List(a) & Chr$(34)
            ..... 
            sWhere = " AND Cognome = " & Chr$(34) & List1.List(a) &  Chr$(34)

Ciao,

[Jupy64]

[QUOTE]Originariamente inviato da Brainjar

Dim sSQL As String
Dim sWhere As String
Dim a As Integer

sSQL = "Select * from Tabella where"
sWhere = ""
For a = 0 To List1.ListCount - 1

    If List1.Selected(a) = True Then
        If IsEmpty(sWhere) Then
            sWhere = " Cognome = '" & List1.List(a) & "'"
        Else
            sWhere = " AND Cognome = '" & List1.List(a) & "'"           
        End If
    End If
Next a
sSQL = sSQL & sWhere
'
' In questo punto hai la stringa sSQL composta dinamicamente.
'

Ciao, ci sono alcuni piccoli errori (evidenziati in rosso), sicuramente dovuti a distrazione.. la versione corretta (con una piccola modifica):

Dim sSQL As String
Dim sWhere As String
Dim a As Integer

sSQL = "Select * from Tabella where"
sWhere = ""
For a = 0 To List1.ListCount - 1

    If List1.Selected(a) = True Then
        If IsEmpty(sWhere) Then
            sWhere = " Cognome = '" & Replace(List1.List(a),"'","''") & "'"
        Else
            sWhere = sWhere & " OR Cognome = '" & Replace(List1.List(a),"'","''") & "'"
        End If
    End If
Next a
'meglio fare un controllo se sWhere  contiene qualcosa, altrimenti non devi eseguire la query...
sSQL = sSQL & sWhere

[Brainjar]

Grazie.
Ciao,

[binbum]

Grazie!!!!!!!!!!!!!!!!