conexion con MySql usando la libreria dinamica Joshyba en Visual Studio 2012 VB .NET

Hola amigos hoy les traigo un ejemplo de uso de mi libreria dinamica que desarrolle "Joshyba" usando Conexion_MySql y Manejador_Mysql con las cuales haremos la conexion y realizaremos consultas basicas!

Para esta ocacion empezaré el uso de Visual Studio 2012 y Visual Basic .Net.

Primero debemos de tener en cuenta lo basico que para realizar una conexion debemos de tener:

• Servidor
• usuario
• Contraseña
• Base de datos

con esto conectamos y podemos realizar las consultas, crearemos un formulario como este:

Aqui la ventana mejor:

 Ahora vamos con nuestro codigo:
declaramos dos variables principales:
Public conect As New Conexion_MySql 'instancia de la clase para realizar la conexion
    Private Consulta As New Manejador_MySql 'Instancia de la clase para realizar las consultas

en el boton de conectar debemos realizar la conexion y la primera consulta:

        If Len(txt_servidor.Text) = 0 Or Len(txt_usuario.Text) = 0 Or Len(txt_basedatos.Text) = 0 Then
            MsgBox("Falta información por proporcionar")
        Else
            'vamos a realizar la conexion con la informacion proporcionada
            conect.Cadena_Conexion = "data source=" & txt_servidor.Text & ";Initial Catalog=" & txt_basedatos.Text & ";User ID=" & txt_usuario.Text & ";Password=" & txt_contrasenia.Text & ";Connect Timeout=15"
            If conect.Iniciar_Conexion() = False Then
                MsgBox(conect.Mensaje_Conexion & Chr(13) & Chr(13) & "Revize la Conexión con el Servidor", , "Concede")
                'Application.Exit()
                Limpiar()
                Exit Sub
            Else
                'como la conexion se hizo correctamente proseguimos a mostrar las tablas
                MsgBox("Conexion Correcta - se leeran todas las tablas de  esta base de datos")
                Leer_tablas()
                Me.cmd_tablas.Visible = True
                Me.cmd_conectar.Enabled = False
                cmd_Desconectar.Enabled = True
            End If
        End If

Aqui mostramos como limpiar los controles

    Private Sub Limpiar()
        Me.txt_servidor.Clear()
        Me.txt_usuario.Clear()
        Me.txt_basedatos.Clear()
        Me.txt_contrasenia.Clear()
        Me.dgv_tablas.DataSource = Nothing
    End Sub

En el boton desconectar:

        conect.Cerrar_Conexion()
        MsgBox("Conexion Cerrada")
        Me.txt_sentencia.Visible = False
        Me.cmd_consultar.Visible = False
        Me.cmd_tablas.Visible = False
        Me.cmd_conectar.Enabled = True
        Limpiar()

La funcion que lee las tablas

    Private Sub Leer_tablas()
        Dim Xrs_Tablas As New DataTable
        If Consulta.Datatable_Leer_Consultas(Xrs_Tablas, Conexion_MySql.Conec.Conectado, "show tables") Then
            dgv_tablas.DataSource = Xrs_Tablas
            Me.txt_sentencia.Visible = True
            Me.cmd_consultar.Visible = True
        Else
            MsgBox(Consulta.mensaje_Error)
        End If
    End Sub

El boton consultar que ejecuta la sentencia query que se escriba en el cuadro de texto consulta

        Dim Xrs_Tablas As New DataTable
        If Consulta.Datatable_Leer_Consultas(Xrs_Tablas, Conexion_MySql.Conec.Conectado, Me.txt_sentencia.Text) Then
            dgv_tablas.DataSource = Xrs_Tablas
            Me.txt_sentencia.Visible = True
            Me.cmd_consultar.Visible = True
        Else
            MsgBox(Consulta.mensaje_Error)
        End If

El boton mostrar las tablas

Leer_tablas()

con esto podremos usar de forma facil las conexion y consultas, para la proxima les mostrare como trabajar con procedimientos:

Bueno amigos esto todo por hoy espero que les sirva esta información:

Aqui el codigo:

Visiten mis otros blogs:
Joshybagraphics.blogspot.com
Joshybagames.blogspot.com
chiapadecorzo.blogspot.com
www.melocompras.store