Bonjour,

J'aimerais savoir ce qui cloche dans le procéder suivant.. le logiciel se ferme et je ne peux lire les données. En fait, j'aimerais me connecter à la base de donnée, y lire un champ et si le champ correspond à celui de mon combobox (avant cliquer sur le bouton), énumérer dans une boucle les données.

MERCI à l'avance !

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
18
19
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim con As SqlConnection = Nothing
        Dim command As SqlCommand = Nothing
        Dim cs As String = "Data Source=SQL\serveur;Initial Catalog=CATALOGUE;User Id=USER;Password=PASS"
        Dim dr As SqlDataReader = Nothing
        Dim combo As String = ""
        combo = ComboBox1.Items.ToString
 
        con = New SqlConnection(cs)
        con.Open()
        command = New SqlCommand("SELECT NomTransporteur FROM SuiviReception WHERE ID='" & combo & "';", con)
        dr = command.ExecuteReader()
 
        While dr.Read
 
            Me.LBL_COUT.Text = "Nom Transporteur " & dr.GetValue(0) & "?"
        End While
    End Sub