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
Partager