Dim myConnString = "Database=test; Data Source=localhost; User Id='root'; Password=''"
Dim conn As New MySqlConnection
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
SQL = "SELECT * FROM leden"
conn.ConnectionString = myConnString
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
dgvStatus.DataSource = myData
dgvStatus.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
Catch myerror As MySqlException
MsgBox("Het is helaas niet gelukt om een goed resultaat te krijgen dit was de error: " & myerror.Message)
End Try
Catch myerror As MySqlException
MessageBox.Show("De Verbinding is niet gelukt dit is de reden: " & myerror.Message)
Finally
If conn.State <> ConnectionState.Closed Then conn.Close()
End Try