Public _dbconn As MySqlConnection Private Const _ConnStr As String = "server=xxxxxxxx; user id=xxx; password=xxx; database=xxxx; " Private Sub OpenConnection() If _dbconn Is Nothing OrElse Not _dbconn.State = ConnectionState.Open Then _dbconn = New MySql.Data.MySqlClient.MySqlConnection(_ConnStr) _dbconn.Open() End If End Sub Private Sub cmdGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetData.Click Dim dr As MySqlDataReader Dim sql As String Try OpenConnection() sql = "SELECT * FROM familia" Using _dbcmd = New MySqlCommand(sql, _dbconn) dr = _dbcmd.ExecuteReader Do While dr.Read 'do something here Loop End Using Catch ex As Exception MessageBox.Show(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)