Conexion a Base de Datos

1. REPUBLICA BOLIVARIANA DE VENEZUELA I.U.P ¨SANTIAGO MARIÑO¨ EXTENSION MARACAIBO Materia: Estudiante: Programación Samir Cabrera Ingeniería Electrónica

2. 1. Conexión de Microsoft Access a visual basic 6.0 - Primero creamos la base de datos. - Ahora nos vamos a VB para hacer la conexión.

3. - Cliqueamos botón derecho en la barra izquierda y darle clic en componentes. - Cuando estemos en el cuadro de componentes nos vamos a donde dice Microsoft ADO data control 6.0 (QLEDB), remarcamos el cuadrito, y le damos aceptar.

4. - Ahora en la barra izquierda va aparecer un icono que se llama ADODC. Le damos click y lo agregamos en el programa. Cuando ya lo hayamos agregado, le damos click derecho y cliqueamos donde dice Propiedades de ADODC. - Cuando estemos en siguiente cuadro en donde dice Usar Cadena de Conexión, le damos click en generar.

5. - Cuando estemos aquí le damos click en los 3 puntos - Y agregamos la la base de datos de Acces, que ya habíamos hecho en anterioridad. - Y le damos abrir

6. - Luego nos devolvemos al cuadro que vemos para darle click en origen de registros. - Cuando estemos en este cuadro nos vamos a tipo de comando y elegimos el comando 2- aCmdTable Y luego automáticamente en Tabla o Nombre de Prodecimiento Almacenado, nos va aparecer la tabla de nuestra base de datos que vamos a utilizar. Si no, no sale es porque hicimos algo mal. -

7. 2. Conexión de Microsoft SQL Server a VB 6.0 Para este ejemplo, tendremos un formulario en el que colocaremos un botón llamado cmdAbrir y un ComboBox llamado cboCampos. También necesitaremos una referencia a: Microsoft ActiveX Data Objects 2.0 Library o cualquier versión superior que tengas. En la parte general de declaraciones tendremos definidas dos variables, una de un objeto Connection y otra de un objeto Recordset. En el evento del botón cmdAbrir haremos todo el proceso de conectar a la base de datos, cargar el recordset con la tabla que queramos acceder y mostraremos los campos de dicha tabla en el combo. - El siguiente Código es el que tenemos que agregar para hacer la conexión a nuestra base de datos.

8. Option Explicit Private cnn As ADODB.Connection Private rst As ADODB.Recordset Private Sub cmdAbrir_Click() Dim tField As ADODB.Field ' ' Por si ya estaba abierta... Set cnn = Nothing Set rst = Nothing ' ' Crear los objetos Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset ' ' abrir la base usando las credenciales de Windows cnn.Open "Provider=SQLOLEDB; " & _ "Initial Catalog=pubs; " & _ "Data Source=(local)\NETSDK; " & _ "integrated security=SSPI; persist security info=True;" ' ' abrir el recordset indicando la tabla a la que queremos acceder rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic ' ' Asignar los nombres de los campos al combo With cboCampos .Clear For Each tField In rst.Fields .AddItem tField.Name Next .ListIndex = 0 End With ' ' Cerrar el recordset y la conexión rst.Close cnn.Clos ' End Sub

9. 3. Conexión de MySQL a VB 6.0 En principio no es muy complejo, lo primero que debemos de hacer, es descargar un controlador ODBC que nos proporcionan gratuitamente desde la web de MySQL e instalarlo, la descarga disponible es la versión 5.1.6. Una vez instalados estos drivers, solo debemos utilizar la cadena de conexión en nuestro VB. - El cuál es el siguiente código: Dim CON As ADODB.Connection Dim Comd As ADODB.Command Dim Rs As ADODB.Recordset Public Function Conectar_bd() Set CON = New ADODB.Connection Set comd = New ADODB.Command Set Rs = New ADODB.Recordset CON.CommandTimeout = 40 CON.CursorLocation = 1 CON.Open «DRIVER={MySQL ODBC 3.51 Driver};DATABASE=» & NomBd & «;SERVER=» & Servidor & «;password=» & Pwd & «;PORT=3306;» «;UID=» & Usuario & Set Comd.ActiveConnection = CON End Function En la función anterior, declaramos CON, que será la conexión de la base de datos, el Comd es la que ejecutará el comando, y Rs, el RecordSet, para la utilización de los registros, dependiendo del proyecto, puedes declararlas como públicas para todo el proyecto y reutilizarlas, o en la función que veas que se utilizará, yo suelo utilizarlas Public para usar por todo el proyecto, ya que son variables a reutilizar con la conexión y no han de variar. Además tenemos 4 variables que no hemos declarado y que debemos decalarar y darle el valor que corresponda, estas son: NomBD: El nombre de la base de datos. (ej. Datos) Servidor: El nombre o dirección Ip de nuestro servidor de MySQL. (ej. Localhost)  

10. Usuario: El usuario para acceder a nuestra base de datos de MySQL. (ej. samir) Pwd: La clave de acceso a nuestro servidor de MySQL. (ej.   ######) El puerto por defecto es el 3306, pero también puedes modificarlo si usas versiones anteriores, o simplemente tienes otro puerto abierto para el uso de la base de datos. Ya para terminar, este el código que debes utilizar una vez conectados con la base de datos de MySQL, para que solo tengas que modificarlo a nuestras necesidades: ‘Llamo a la función de conexión a la base de datos Conectar_bd ‘Le digo la consulta a ejecutar al comando comd.CommandText = «SELECT * FROM Usuarios» Rs.CursorLocation = adUseClient Rs.Open comd, , 1, 1 Ya con estas líneas de código ya deberías de tener la conexión y la forma de realizar consultas a tu base de datos MySQL atacando con Visual Basic 6. Ya solo quedaría utilizar el Rs de la manera normal.