Discussion :

[amirad]

Salut,

J'ai une ListBox1 qui contient certaines valeurs (résultat d'une 1ière requête Select).

J'essaie de faire une deuxième requête Select sur les termes de la ListBox1.

Cependant, ma requête ne prends en comptes que le 1er terme de ListBox1 et non pas tous les termes. Voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


Mycommand1.CommandText = "select idCategorie from MotCategorie where idMot = '" & ListBox1.Items(i) & "'"

MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand1.ExecuteReader()

Do While myReader.Read()

   ListBox2.Items.Add(myReader.GetString(0))

Loop

myReader.Close()

            MyConnexion.Close()

Comment la modifier ?

[Le_Phasme]

Ca devrait te convenir je pense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim MaString As String = "select idCategorie from MotCategorie "
        Dim i = 0
        For Each Elem In Me.ListBox1.Items
            If i = 0 Then
                MaString = MaString & " where idMot ='" & Elem.ToString & "'"
            Else
                MaString = MaString & " or idMot =" & Elem.ToString & "'"
            End If
            i = i + 1
        Next
        MsgBox(MaString)
    End Sub