
Imports MySQL.Data.MySqlClient
"Database=database name;Data Source=host;User Id=mpgh;Password=mpgh"
Dim connstr As String = "Database=database name;Data Source=host;User Id=mpgh;Password=mpgh"
Dim connection As New MySqlConnection(connStr)
Sub TestConnection()
Try
connection.Open()
connection.Close()
MsgBox("Running connection")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btn_execute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_execute.Click
Dim query As String = txt_query.text
Dim da As New MySqlDataAdapter(query, connection)
Dim ds As New DataSet
If da.Fill(ds) Then
DataGridView1.DataSource = ds.Tables(0)
End If
connection.Close()
End Sub
SELECT * FROM your_table
