Conectando a Una BD Access Con Visual Basic 2008

Conectando a una BD Access con Visual Basic 2008 Leer más en Suite101: Conectando a una BD Access con Visual Basic 2008 | Suite101.net http://juan-arturo-olmedo-ramirez.suite101.net/conectando-a-una-bd-access-con-visual basic-2008-a1  basic-20 08-a14081 4081#ixzz1u #ixzz1uOdHK OdHKa3Z a3Z

Este artículo muestra como conectar a una base de datos de Access, desde Visual Basic 2008 Edición Express, utilizando tecnología 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 más a los  programadore  programadores, s, es aquella aquella que que se realiza realiza directamente directamente con con código código de program programación. ación. A continuación se muestra una forma para conectar a una Base de Datos Access; en la cual se solicita un nombre de usuario y una contraseña (password). Creando el proyecto y la interfaz

Se ejecuta Visual Basic 2008 y creamos un proyecto nuevo con las opciones > Archivo > Archivo > Proyecto > Aplicación de Windows Windows Form. Form. Se escribe el nombre "TestDB "TestDB"" o el que desee y se presiona " Aceptar ". ". Visual Basic construye la estructura base de la aplicación y muestra una forma inicial vacía.

Leer más en Suite101: Conectando a una BD Access con Visual Basic 2008 | Suite101.net http://juan-arturo-olmedo-ramirez.suite101.net/conectando-a-una-bd-access-con-visual basic-2008-a1  basic-20 08-a14081 4081#ixzz1u #ixzz1uOdNY OdNYvYS vYS A esta forma se le agregan 2 objetos label , uno para el usuario y otro para el  password ; 2 objetos textbox; textbox; de igual forma uno para el usuario y otro para el  password ; y finalmente un button para que se ejecute la conexión al momento de presionarlo. Al textbox del

usuario se le indica el nombre de "txtUser  "txtUser " y al del password  del password ""txtPass". txtPass". El titulo o caption de la forma se le captura "Conexión "Conexión a Access". Access". Importando las librería de OleDb

Se activa la "Vista "Vista de Código" Código" de la forma y en la parte de las declaraciones de la Clase se escribe el código que permite utilizar los recursos de Oledb.  Imports System.Da System.Data.OleDb ta.OleDb

Leer más en Suite101: Conectando a una BD Access con Visual Basic 2008 | Suite101.net http://juan-arturo-olmedo-ramirez.suite101.net/conectando-a-una-bd-access-con-visual basic-2008-a1  basic-20 08-a14081 4081#ixzz1u #ixzz1uOdXx OdXx4Zu 4Zu

Declarando las variables necesarias Ahora el siguiente código se escribe en el evento "click  " click " del botón de conexión. Lo  primero es la declaración declaración de de las variables variables que que se utilizarán utilizarán para para la conexión conexión y consulta consulta en la Base de Datos. 'Declaramos variable para conexión Dim oConn As New OleDbConnection 'Declaramos variable de Comandos Sql  Dim oComm As New OleDbCommand 'Declaramos 'Declaramos variable para lectura de datos Dim oData As OleDbDataReader 

El código de conexión Para realizar la conexión primeramente se debe asignar a la variable correspondiente, la "ConnectionString ", ", que indica el driver de 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" Test.mdb" y se utilizará el driver de driver de " Microsoft  Microsoft Jet " para realizarlo. 'Cadena de Conexión con Microsoft Jet y la ruta a la Base de DatosUna Datos Una vez asignada la cadena de conexión, se ejecuta la función "Open " Open"" la cual realiza la conexión 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" 'Función de apertura de la conexión y mensaje de realización.

oConn.Open()  MsgBox  MsgBox "Conexión "Conexión Realizada"  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 " tblUsers"" con las columnas " strUserName  strUserName"" y " strUserPass  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 conexión. 'Asignamos la Conexión al comando oComm.Connection = oConn Para este momento la variable de comando esta lista y se ejecuta asignándola a la variable de lectura de datos. 'Ejecutamos el query y obtenemos los Datos oData = oComm.ExecuteReader()

Validando Usuario y Contraseña 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 aplicación presionando F5. Si se utiliza el usuario "jaor" y el  password  password "software"; "software"; la la aplicación aplicación debe mostrar mostrar el mensaje mensaje " Acceso Concedido". Concedido". Capturando el error 

Es de buen hábito de programación que el código capture cualquier error que pudiera ocurrir al momento de ejecutar la aplicación. Para realizarlo se escribe la siguiente línea de código en el procedimiento, antes de cualquiera otra y posterior a la declaración 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  ErrConexion".Al ".Al final del  procedimiento  procedimiento se escribe escribe el siguiente siguiente código código correspondient correspondientee a la etiqueta. etiqueta.  ErrConexion:  ErrConexion: MsgBox("Error" + Err.Description) Esto desplegará el mensaje de error indicando que fue lo que falló.

Anotaciones finales Si decide descargar el código 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.

Leer más en Suite101: Conectando a una BD Access con Visual Basic 2008 | Suite101.net http://juan-arturo-olmedo-ramirez.suite101.net/conectando-a-una-bd-access-con-visual basic-2008-a1  basic-20 08-a14081 4081#ixzz1u #ixzz1uOde1aT Ode1aTii

http://juan-arturo-olmedo-ramirez.suite101.net/conectando-a-una-bd-access-con-visual basic-2008-a1  basic-20 08-a14081 4081