Conexión VB y Mysql
-
Upload
janesyta-cruz -
Category
Documents
-
view
268 -
download
0
description
Transcript of Conexión VB y Mysql
Conexión VB .net y Mysql
Ingeniería en Sistemas Computacionales
Nuevo proyecto
Aplicación de Windows Form
Cambiamos el nombre del proyecto
Así queda
Cambiamos el nombre del formulario por FrmProveedores
Guardar Todo…. Aparecerá el nombre del proyecto y damos guardar
Agregamos la referencia
Veremos la siguiente ventana
Buscamos el archivo MySql.Data.dll
Si instalamos el conector de mysql entre a esta ubicación
Seleccionamos MySql.Data.dll
Comprobamos la referencia
Entramos a mysql y creamos lo siguiente
Comprobamos la conexión agregando el siguiente código
Imports MySql.Data.MySqlClient
Public Class FrmProveedores
Dim conexion As MySqlConnection
Dim cm As MySqlCommand
Private Sub FrmProveedores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
conexion = New MySqlConnection("Data Source=127.0.0.1; Port=3306; Database=sistemita;User ID=root; Password=admin")
conexion.Open()
MessageBox.Show("Conectado a la Base de datos Sistemita", "Mensaje de prueba", MessageBoxButtons.OK)
Catch mierror As MySqlException
MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)
conexion.Dispose()
End Try
End Sub
End Class
Ejecutamos
Diseñamos la siguiente GUI
1
2
3
4
5
6
7
8
9
10
1
2
3
4
5
6
7
8
9
10
Nombre de los controles
TxtCodigo
TxtNombre
TxtDireccion
TxtTelefono
TxtRFC
BtnAgregar
BtnActualizar
BtnEliminar
BtnBuscar
BtnVerTodos
Botón Agregar
Botón actualizar
Botón Buscar
Boton Eliminar
Agregar un nuevo formulario
Cambiamos el nombre del formulario
Agregamos un datagridview
Clic en la esquina superior derecha y clic en agregar origen de datos del proyecto…
Seleccionamos Base de datos
Clic en conjunto de datos
Clic en nueva conexión…
Seleccionamos Mysql Database
Sino aparece instale el controlador ODBC
Aparece la siguiente ventana y rellenamos los datos
Usamos la base de datos sistemita y probar conexión
Luego aparecerá esta ventana y seleccionamos SI incluir….
Así: y luego clic en Siguiente >
Guardamos con un nombre la cadena de conexión. Y clic en Siguiente>
Seleccionamos la tabla proveedores y todos los campos hacemos clic en Finalizar
Agregamos el siguiente código al botón Ver todos
Donde FrmVerTodos es el nombre del formulario
Ejecutamos proveedores y damos clic en botón Ver Todos
Ver todos 2 ….. Codificado. Nuevo form
Agregamos un datagridview
Doble clic en el formulario
Creamos una table en mysql
mysql> use sistemitaDatabase changed
mysql> create table productos(id_prod int primary key, descripcion_prod varchar(40), stock_prod int, preciocompra_prod float, precioventa_prod float, existencia_prod int, idprov_prod int, foreign key(idprov_prod) references proveedores(idprov) on delete no action on update cascade) engine=innodb;Query OK, 0 rows affected (1.01 sec)
Un nuevo Windows Form FrmProductos
Diseñamos la siguiente GUI1
2
3
4
5
6
7
8
9
TxtCodigo
TxtDescripcion
TxtStock
TxtPrecioCompra
TxtPrecioVenta
BtnAgregar
BtnActualizar
BtnEliminar
BtnBuscar
BtnVerTodos
1
2
3
4
5
67
8
9
10
11
12
13
10
11
12
13
TxtExistencia
TxtClaveProveedor
TxtNombreProv
Conexión a VB.net con Mysql
Usando un Módulo para creación de Métodos
Agregamos un modulo
Nómbrelo como: MdlConexion
Quedando así:
Escribimos la función Conectar
Agregue la librería
Defina los objetos con acceso público
En el formulario FrmProductos doble clic en el formulario (excepto los objetos)
Programando el botón Agregar
Uso del Try Catchpara interpretar los erroresenviados desde MYSQL
Botón eliminar
Botón Actualizar
Ejemplo de buscar desde el modulo + consulta multitabla
En el botón Buscar de FrmProductos escriba:
Desde el modulo programas limpiar las cajas de texto (SOLO TEXTBOX)
Uso de la función limpiar en los formularios
Seleccionar el cuadro de texto TxtCodigo
Seleccionamos el evento KeyPress
Se agregará en automático el siguiente codigo
Capturamos el siguiente codigo
If Char.IsDigit(e.KeyChar) Then e.Handled = False ElseIf Char.IsControl(e.KeyChar) Then e.Handled = False Else e.Handled = True End If
Quedando finalmente así:
Enter
Escribir:
Segunda opción
Usando buscar al realizar el enter
Agregar un nuevo Windows Form nómbrelo FrmLogin
Nuevo form tipo MDI