abrir conexion en Mysql

 

'Abrir una conexión d'el tipo Mysql suponiendo que esta función se encuentra

'dentro de una clase.

'Variables declaradas del Tipo Mysql

Private Comando As New MySqlCommand
Public coneccion As New MySqlConnection
Public Datareader As MySqlDataReader

'Variable del tipo string para obtener la cadena de conexión

Private Conexion As String 

'Vatiable del tipo String para obtener los errores que sucedan y ' posteriormente llamarla desde algun otro lugar

Private _Errores As String

'Funcion para abrir la coneccion, Devuelve False si no se logra abrir la 'conexión.
'Cualquier error diganme para que pueda corregirlo gracias.

Public Function Open_Conexion() As Boolean
  Try
    Conexion = String.Format("server='{0}';Database='{1}';Uid='{2}';Pwd='{3}';port={4}", _
"localHost", "DataBasePrueba", "Root", "1234", "3306")
    If coneccion.State = ConnectionState.Closed Then
       coneccion = New MySqlConnection(Conexion)
       coneccion.Open()
       Return True
    Else
       _Errores = "La conexión continua abierta." & " Verifique su información"
       Return False
    End If

Catch ex As MySqlException
      _Errores = "Error : " & ex.Message & ", " & ex.Number
      Return False
  Catch ex As Exception
        _Errores = "Error : " & ex.Message
       Return False
  End Try
End Function