Guia conectar mysql con vbnet

UNIVERSIDAD COOPERATIVA DE COLOMBIA TECNOLOGÍA EN SISTEMAS ELECTIVA III

Tema: Conectar Visual Basic. Net con MySql Objetivo: Los estudiantes de la Universidad Cooperativa de Colombia en tecnología de Sistemas y que están cursando ELECTIVA III están en la capacidad de conectar cualquier base de datos de MySql con Visual Basic.Net, utilizando las herramientas y programas necesarios. HerramientasNecesarias: Conector ODBC. Desarrollo de la Guía: 1. Descargar e instalar el conector ODBC. 2. En la ventana de comandas digitar “ODBCAD32” y pulsar enter 3. Agregar en DnsUsuario MySQLODBC…

4. a. En Data Source Name. Se coloca el nombre de la conexión. b. Description. Si se quiere se coloca una breve descripción de la conexión (obsional) c. TCP/IP Server. Se digita “localhost” (Porque se va atrabajar localmente, si fuese una conexión a un servidor se tendría que colocar la dirección IP) d. User. Root (este es el super usuario de MySql)

Juan Carlos Muñoz Vera Ingeniero de sistemas 2011

UNIVERSIDAD COOPERATIVA DE COLOMBIA TECNOLOGÍA EN SISTEMAS ELECTIVA III

e. Password. Se coloca la clave que se definió al super usuario al momento de instalar el MySql. f. Database. Seleccionela base de datos que ha sido creada. g. Click en Test y debe salir un mensaje confirmando que la conexión ha sido exitosa, si genera error toca revisar en que paso se fallo. h. Click en OK 5. Se crea un nuevo proyecto de Visual Basic, aplicación para Windows. 6. Se crea un formulario como el que esta en la siguiente gráfica.

7. Colocar las siguientes características en los siguientes elementosdel frame datos de conexión: a. Combo box Motor Bd: i. Nombre: txtMotor. ii. Item: Estándar, Microsoft Access, MySQL, Oracle, SQL Server iii. Storted: true (para que me lo ordene) iv. DropDownStyle: DropDownList b. El text ODBC: Juan Carlos Muñoz Vera Ingeniero de sistemas 2011

UNIVERSIDAD COOPERATIVA DE COLOMBIA TECNOLOGÍA EN SISTEMAS ELECTIVA III

i. Name: txtODBC c. El text Usuario: i.Name: txtUsuario d. El txt Contraseña: i. Name: txtContrasena e. Label : i. Name: info f. El botón conectar: i. Name: bConectar g. El botón Desconectar: i. Name: bDesconectar 8. En el frame Comando colocar las siguientes características en los elementos a. En el texto donde se va a digitar la cadena SQL: i. Name: txtSQL ii. Multiline: True iii. scrolBars: vertical b. En el botón ejecutar: i. Name:bEjecutar c. En el botón Cargar i. Name: bCargar d. En el botón Guardar: i. Name: bGuardar 9. En la última parte del formulario que no contiene ningún Frame digitar las siguientes características en los siguientes elementos: a. El texto donde va el reultado: i. Name: txtResultado ii. Multiline: True iii. scrolBars: vertical b. En el botón Guardar: i. Name: bGuardarResultado c. En el botón sel.Todo: i. Name: bSeleccionarTodo d. En el botón copiar: i. Name: bCopiar e. En el botón Limpiar: i. Name: bLimpiar 10. Digitar el siguiente código: Juan Carlos Muñoz Vera Ingeniero de sistemas 2011

UNIVERSIDAD COOPERATIVA DE COLOMBIA TECNOLOGÍA EN SISTEMAS ELECTIVA III
Imports Imports Imports Imports System.Data System.Data.Odbc System System.IO

11.

Public Class formMenuPrincipal PublicconexionBD As OdbcConnection Private Sub bConectar_Click(ByVal sender As _ System.Object, ByVal e As System.EventArgs) _ Handles bConectar.Click Try If (txtMotor.Text = "Estándar") Then conexionBD = New OdbcConnection("dsn=" & _ txtODBC.Text & ";uid=" & _ txtUsuario.Text & ";pwd=" & _ txtContrasena.Text & ";") End If If (txtMotor.Text = "Microsoft Access") Then conexionBD = New OdbcConnection("dsn="& _ txtODBC.Text & ";uid=" & _ txtUsuario.Text & ";pwd=" & _ txtContrasena.Text & ";") End If If (txtMotor.Text = "MySQL") Or (txtMotor.Text = "") Then 'txtODBC.Text = "conexion_VB" conexionBD = New OdbcConnection("dsn=" & _ txtODBC.Text & ";uid=" & _ TxtUsuario.Text & ";pwd=" & _ TxtContrasena.Text & ";") End If If (txtMotor.Text = "Oracle") Then conexionBD = New OdbcConnection("dsn=" & _...