Programando ideas

Agregar registros a una base de datos MySQL con Visual Basic .NET

Lunes, Mayo 31st, 2010

Visual Basic .NET nos permite conectar a bases de datos MySQL utilizando la librería MySQL Connector, en la que basta con bajarla, instalarla y agregarla como referencia para poder utilizarla, claro importando la librería desde el código. A continuación usaremos el siguiente método que colocaremos dentro de una clase para poder llamarla y pasarle parámetros:

Public Sub ejecutar(ByVal sql1 As String, ByVal msbien As String, ByVal msmal As String)
        Dim comandos As New MySqlCommand
        Try
            comandos.Connection = conexion
            comandos.CommandText = sql1
            comandos.ExecuteNonQuery()
            MessageBox.Show(msbien)
        Catch ex As MySqlException
            MessageBox.Show(msmal)
        End Try
    End Sub

Con este método podremos ejecutar sentencias SQL fácilmente, incluso la podemos utilizar para borrar registros de una base de datos MySQL. Como esta dentro de una clase crearé un objeto exclusivo para usar el método y luego acceder al mismo y claro, hay que pasarle los respectivos parámetros para que funcione. Veamos el código para agregar registros a la base de datos:

objetos.ejecutar("INSERT INTO wp_posts (post_content,post_title) VALUES ('" + TextBox1.Text + "','" + TextBox2.Text + "')", "Se ha publicado el artículo exitosamente", "No se ha podido publicar el artículo")

Recordemos que antes de las clases debemos importar la librería de MySQL, y para crear un objeto de una clase debemos llamarlo igual como la misma clase.

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim objetos As New funciones

Eliminar registros de una base de datos MySQL

Domingo, Mayo 30th, 2010

La orientación a objetos en Visual Basic .NET nos permite simplificar el trabajo y ahorrar muchas líneas de código, a continuación crearemos un método que nos permita ejecutar sentencias SQL, y que además de todo podamos usar para por ejemplo, eliminar registros de una base de datos.

Public Sub ejecutar(ByVal sql1 As String, ByVal msbien As String, ByVal msmal As String)
        Dim comandos As New MySqlCommand
        Try
            comandos.Connection = conexion
            comandos.CommandText = sql1
            comandos.ExecuteNonQuery()
            MessageBox.Show(msbien)
        Catch ex As MySqlException
            MessageBox.Show(msmal)
        End Try
    End Sub

El anterior código toma como referencia la variable conexión que posteriormente ya hemos creado y claro, contiene las sentencias para conectarse al servidor:

 comandos.Connection = conexion

Con el código comandos.CommandText = sql1 haremos referencia a una cadena que contendrá las sentencias SQL, luego lo ejecutaremos con el siguiente código y claro,mostraremos un mensaje de que se han ejecutado bien las sentencias:

comandos.ExecuteNonQuery()
MessageBox.Show(msbien)

Por último podemos usar este método de la siguiente manera, pasando los tres respectivos parámetros que son, la sentencia SQL (cadena), el mensaje que indica que todo se ha hecho bien y el que indica que no se han podido ejecutar las sentencias:

Dim parametro As String
        parametro = InputBox("Digite el ID de artículo a eliminar")
        objetos.ejecutar("DELETE from wp_posts where id =" + parametro, "Se ha eliminado el registro correctamente", "No se ha podido eliminar el registro")

Como verán adicionalmente he puesto un indicador llamado “objetos”, en realidad es un objeto que que encierra la clase que contiene al método “ejecutar” que es el que nos permite ejecutar las sentencias SQL. Esto servirá de ayuda y base para que puedan construir fácilmente sus aplicaciones.

Conectar una base de datos Access con Visual Basic .NET

Miércoles, Mayo 5th, 2010

Este será un tutorial básico sobre como conectar una base de datos de Microsoft Access utilizando Visual Basic .NET, en este tutorial cubriremos el uso del OleDB y como mostrar registros de una base de datos en un DataGridView. Trataré de ser lo más práctico posible, los términos se los dejo a consultar más detalladamente.

Lo primero que haremos será declarar las variables necesarias para trabajar con el objeto OleDB:

Dim conexion As OleDb.OleDbConnection 'Crear una instancia de conexión
Dim tabla As DataTable  'Representa una tabla de datos'
Dim adaptador As OleDb.OleDbDataAdapter 'Hace los datos legibles para crear instancias de un origen de datos
Dim constructor As OleDb.OleDbCommandBuilder 'Sirve para construir comandos y consultas SQL'
Dim reader As OleDb.OleDbDataReader

Luego en la sección de declaraciones agregas el New() a tu código, allí añades los datos de conexión:

Public Sub New()
        InitializeComponent()
        Dim cadena_conexion As String
        cadena_conexion = String.Format("Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + My.Application.Info.DirectoryPath + "\usuarios.mdb")
        Try
            conexion = New OleDb.OleDbConnection(cadena_conexion)
            conexion.Open()
        Catch ex As OleDb.OleDbException
            MessageBox.Show("No se ha podido conectar al servidor " + ex.Message)
        End Try
    End Sub

En donde esta línea:

cadena_conexion = String.Format("Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + My.Application.Info.DirectoryPath + "\usuarios.mdb")

Representa el proveedor de datos y la ruta donde se encuentra nuestra base de datos, que en este caso se encuentra en la misma carpeta que el fichero de nuestro ejecutable.

Luego al formulario le agregamos un botón par guardar los datos introducidos en el DataGridView:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cambios As DataTable = tabla.GetChanges 'Le asignamos los cambios de la tabla a una variable
        If cambios Is Nothing Then 'Si esta vacío
            MessageBox.Show("No hay cambios")
        Else
            adaptador.Update(cambios) 'Actualiza la operación
            tabla.AcceptChanges() 'Acepta los cambios en la tabla
        End If
    End Sub

Ahora agregas al formulario un DataGridView y con la siguiente función mostraremos los registros de una tabla específica de la base de datos:

Public Sub mostrar_grilla()
        tabla = New DataTable  'Crea una nueva instancia de tabla
        adaptador = New OleDb.OleDbDataAdapter("SELECT * FROM personal", conexion) 'Crea una consulta
        constructor = New OleDb.OleDbCommandBuilder(adaptador) 'Se interpreta la consulta
        adaptador.Fill(tabla) 'Se guarda los registros obtenido en la variable tabla
        DataGridView1.DataSource = tabla 'Se dibujan los datos en el DataGridView
    End Sub

Por ultimo, podemos llamar la función para mostrar los datos o registros obtenidos de la base de datos en el DataGridView cuando se cargue el formulario.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mostrar_grilla() 'Llama el método
    End Sub

Dejo el código fuente de como conectar una base de datos Access con Visual Basic .NET, que pueden descargar aquí.