Discussion :

[P_Mercier]

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

[rv26t]

Bonjour,
1 - pensez à utiliser un try catch pour les erreurs.
2 - les requêtes paramètrées. Voir Tuto ou Faq.
3 - ici la valeur n'existe pas dans votre base de données. Effectivement ComboBox1.Items.ToString donne la chaine de caractère "System.Windows.Form.comboBox+ObjectCollection", il faut mettre le texte sélectionné dans la combobox.