Imports MySql.Data.MySqlClient Public Class Form1 Private Sub Btn_Fill_Click(sender As System.Object, e As System.EventArgs) Handles Btn_Fill.Click Dim ConString As String = "Server=127.0.0.1;Database=Test;Uid=Mayzz;Pwd=123456;" Dim Connexion As New MySqlConnection(ConString) Try Dim SelectCmd As String = "SELECT * FROM Table" Dim DA As New MySqlDataAdapter(SelectCmd, Connexion) Dim DT As New DataTable DA.Fill(DT) With ListBox1 .ValueMember = "" .DisplayMember = "" .DataSource = DT .Refresh() End With Catch ex As Exception MessageBox.Show("Erreur de données : " & ex.Message, _ "Echec de connexion au données", _ MessageBoxButtons.OK, _ MessageBoxIcon.Exclamation) Finally If Connexion.State <> ConnectionState.Open Then Connexion.Close() End If End Try End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWith ListBox1 .ValueMember = "" .DisplayMember = "" .DataSource = DT.DefaultView .Refresh() End With