Conectar BD Mysql Con VB 2008

Conectando a una BD Access con Visual Basic 2008
08-abr-2010 Juan Arturo Olmedo Ramrez
Conectando_Access - jaor
Este artculo muestra como conectar a una base de datos de Access, desde Visual Basic 2008 Edicin Express, utilizando tecnologa ADO .NET OleDb.
Existen diversas alternativas para conectar a una Base de Datos de datos, ya sea de Access, Sql Server, Oracle o MySql. La que al final de cuentas interesa ms a los programadores, es aquella que se realiza directamente con cdigo de programacin. A continuacin se muestra una forma para conectar a una Base de Datos Access; en la cual se solicita un nombre de usuario y una contrasea (password). Creando el proyecto y la interfaz Se ejecuta Visual Basic 2008 y creamos un proyecto nuevo con las opciones >Archivo >Proyecto >Aplicacin de Windows Form. Se escribe el nombre "TestDB" o el que desee y se presiona "Aceptar". Visual Basic construye la estructura base de la aplicacin y muestra una forma inicial vaca.
Anuncios Google
Commodities - Saxo Bank Opere en Cacao, Trigo, Cobre... Cuenta min $10,000 (Demo Gratis) latin.SaxoBank.com Access Cradle Extensive Platform Series(scaffold) High Rise Building to Budget Market www.CoxGomyl.com A esta forma se le agregan 2 objetos label, uno para el usuario y otro para el password; 2 objetos textbox; de igual forma uno para el usuario y otro para el password; y finalmente un button para que se ejecute la conexin al momento de presionarlo. Al textbox del usuario se le indica el nombre de "txtUser" y al del password "txtPass". El titulo o caption de la forma se le captura "Conexin a Access". Importando las librera de OleDb Se activa la "Vista de Cdigo" de la forma y en la parte de las declaraciones de la Clase se escribe el cdigo que permite utilizar los recursos de Oledb. Imports System.Data.OleDb
+ Info
Listar documentos de la cola de impresin en Visual Basic 2008 Vivienda sostenible en el centro de Pars. La Maison A y Studio B Cmo proteger una red Wi-Fi
Declarando las variables necesarias

Ahora el siguiente cdigo se escribe en el evento "click" del botn de conexin. Lo primero es la declaracin de las variables que se utilizarn para la conexin y consulta en la Base de Datos. 'Declaramos variable para conexin Dim oConn As New OleDbConnection 'Declaramos variable de Comandos Sql Dim oComm As New OleDbCommand 'Declaramos variable para lectura de datos Dim oData As OleDbDataReader
El cdigo de conexin
Para realizar la conexin primeramente se debe asignar a la variable correspondiente, la "ConnectionString", que indica el driver de la base de datos y la ruta y nombre de la base de datos a la cual se va a conectar. El nombre de la base de datos es "Test.mdb" y se utilizar el driver de "Microsoft Jet" para realizarlo. 'Cadena de Conexin con Microsoft Jet y la ruta a la Base de DatosUna vez asignada la cadena de conexin, se ejecuta la funcin "Open" la cual realiza la conexin y se despliega un mensaje para indicarlo. oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrador\Mis documentos\Test.mdb" 'Funcin de apertura de la conexin y mensaje de realizacin. oConn.Open() MsgBox "Conexin Realizada" La consulta a la base de datos El siguiente paso es preparar el query (sentencia sql) para realizar la consulta. La Base de Datos contiene una tabla llamada "tblUsers" con las columnas "strUserName" y "strUserPass". El query se asigna a la variable de comandos de Sql. 'Preparamos query de Consulta
oComm.CommandText = " Select * from tblUsers Where strUserName='" + txtUser.Text + "' And strUserPass='" + txtPassword.Text + "'" Ahora se debe asignar la variable con la que se realiz la conexin. 'Asignamos la Conexin al comando oComm.Connection = oConn Para este momento la variable de comando esta lista y se ejecuta asignndola a la variable de lectura de datos. 'Ejecutamos el query y obtenemos los Datos oData = oComm.ExecuteReader()
Validando Usuario y Contrasea

Una vez que se ha ejecutado el query debemos de verificar si hubo resultados y de esta forma validar si el usuario y password capturados son correctos. 'Validamos si hubo resultados If (oData.HasRows) Then MsgBox("Acceso Concedido") Else MsgBox("Error User-Pass") End If Ahora se puede probar la aplicacin presionando F5. Si se utiliza el usuario "jaor" y el password "software"; la aplicacin debe mostrar el mensaje "Acceso Concedido". Capturando el error Es de buen hbito de programacin que el cdigo capture cualquier error que pudiera ocurrir al momento de ejecutar la aplicacin. Para realizarlo se escribe la siguiente lnea de cdigo en el procedimiento, antes de cualquiera otra y posterior a la declaracin de variables. 'Capturamos el error On Error GoTo ErrConexion Lo anterior har que cualquier error que se genere en el procedimiento que se est ejecutando, dirija el flujo del programa a la etiqueta "ErrConexion".Al final del procedimiento se escribe el siguiente cdigo correspondiente a la etiqueta.
ErrConexion: MsgBox("Error" + Err.Description) Esto desplegar el mensaje de error indicando que fue lo que fall.
Anotaciones finales
Si decide descargar el cdigo ejemplo del programa, tome en cuenta que tiene que modificar la ruta de la base de datos, de acuerdo a la carpeta en donde descargue el ejemplo. Copyright del artculo: Juan Arturo Olmedo Ramrez. Contacta con el autor de este artculo para obtener su permiso y autorizacin expresa para poder usar o publicar su contenido de forma total o parcial.

Conectar BD Mysql Con VB 2008

Cargado por

Copyright:

Formatos disponibles

Conectar BD Mysql Con VB 2008

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Conectar BD Mysql Con VB 2008

Cargado por

Copyright:

Formatos disponibles

Conectando a una BD Access con Visual Basic 2008

08-abr-2010 Juan Arturo Olmedo Ramrez

Declarando las variables necesarias

Validando Usuario y Contrasea

También podría gustarte