Punto de Venta con VB y MySQL (4)

Módulo de MYSQL

Después de 7 meses de no seguir con el tutorial de Punto de Venta (Actividades de Docencia, Cursos, Maestría, Actualización, Mejora Continua, etc.) les comparto esta entrega en donde se hará un módulo (o una clase) en nuestra aplicación, para enlazar a MySQL.

Módulos en Visual Basic

Podemos añadir nuevos componentes a nuestros proyectos mediante el uso de formularios y módulos. 

De esta forma podemos conseguir modularizar la aplicación y que sea más sencilla de mantener y actualizar.

Tienen extensión .vb y se pueden añadir tantos como queramos, tienen el gran potencial de que pueden ser reutilizados en otros proyectos.


Permiten simplificar tareas comunes en el código, como manipulación de cadenas, realización de cálculos matemáticos, obtención de información del sistema, realización de operaciones de archivo y directorio, conexión a una base de datos, etc.



Agregar módulo

 Seleccionar el ícono de agregar nuevo elemento y elegir de las opciones el de Agregar módulo.

Llamar al módulo TodoSQL 

¿Qué es ADO.NET?

ADO.NET es la tecnología principal para conectarse aun gestor de bases de datos, con un alto nivel de abstracción, lo que nos permite olvidarnos de los detalles de bajo nivel de las bases de datos.

ADO.NET proporciona diferentes clases del nombre de espacio System.Data dentro de las cuáles, destacaremos por encima de todas, la clase DataView, la clase DataSet y la clase DataTable.

 Lenguaje SQL

›El procedimiento que se intenta seguir cuando se construya un programa ADO.Net que tenga que manipular datos deberá seguir los siguientes pasos:

›1.- Crear una conexión o enlace a la base de datos.

›2.- Abrir la conexión a la base de datos.

›3.- Crear ADAPTER o COMMAND y cargarlo con la instrucción SQL.

›4.- Crear el DataSet y cargarlo a través del Adapter o del Command.

›5.- Cargar el DataGridView con el dataset y enlazarlo

›6.- Procesar el DataGridView (editar un renglón, agregar un renglón, modificar un renglón, etc.)

›7.- Cerrar la conexión

Un resumen de la teoría de líneas arriba, es:

Si se desea seleccionar o buscar datos, hay dos maneras:

• Ver los datos en el DataGridView
• 1. Establecer la conexión.
  2. Utilizar Mysq DataAdapter
  3. Utilizar un Dataset
   
• Recorrer los datos
  1.  Establecer la conexión
  2. Utilizar Mysql Command
  3. Utilizar DataReader
• Si se desea hacer inserción, eliminación o actualización de datos:

1. Establecer la conexión.
2. Utilizar Mysq Command.

Instalar el conector .NET de MySQL


Descargar el MySQL Connector Net 6.6.5

Una vez descargado el conector, instalarlo con doble clic, siguiente, siguiente (como la mayoría de los instaladores; se instala en Archivos de Programa)

Una vez instalado el conector, clic derecho sobre el nombre del programa y elegir Agregar Referencia

Del cuadro que sale, elegir la opción .NET y buscar MySQL.Data (Si no se encuentra, localizarlo en la opción Examinar y buscar la ruta C:\Program Files (x86)\MySQL\MySQL Connector Net 6.6.5\Assemblies\v4.0)

 Código al módulo TodoSQL

 

´ Para utilizar la librería de MySQL

 Imports MySql.Data.MySqlClient

Module TodoSQL
    Public conex As New MySqlConnection

    Public Sub conectar()
        Try

        ´ Para establecer una conexión con MySQL es necesario especificar el servidor (server, y puede ser localhost si es que la BD está en la PC o Lap, o la dirección ip Local, o la dirección de una red), el usuario (el user, casi siempre es root o admin), la contraseña (el password, que puede ser admin, o la contraseña definida, o sin contraseña) y el nombre de la BD

            conex.ConnectionString = "server=localhost;user=admin;password=admin;database=puntoventa"
            conex.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

   ´Esta función es para cuando se desea seleccionar, recorrer o buscar datos (comando Select)

    Public Function SQLSEL(ByVal Sql As String) As DataSet
        conectar()
        Dim adaptador As New MySqlDataAdapter(Sql, conex)
        Dim RsDatos As New DataSet
        adaptador.Fill(RsDatos, "datos")
        Return RsDatos
        conex.Close()
    End Function

   ´Esta función es para cuando se desea insertar, eliminar o modificar datos (comando Insert, Delete o Update)

    Public Sub SQLIDU(ByVal SQL)
        conectar()
        Try
            Dim comando As New MySqlCommand(SQL, conex)
            comando.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conex.Close()
    End Sub

   ´Esta función es para cuando se desea trabajar con un ComboBox
    Public Function SQLCOMBO(ByVal sql As String) As DataTable
        Try
            conectar()
            Dim adaptar As New MySqlDataAdapter(sql, conex)
            Dim Data As New DataTable

            adaptar.Fill(Data)
            Return Data

        Catch ex As Exception

        End Try
    End Function
End Module

Descargar el código del Módulo TodoSQL
Descargar el MySQL Connector Net 6.6.5
Descargar el pdf de esta lección 

Cualquier duda o comentario no dudes en escribirme.