Bases de datos
- 1. MELENDEZ C. GERARDO J. C.I – 27.378.182 ING INDUSTRIAL (45) PROGRAMACIÓN. Sección “S” Profesor Prof. Angel Lugo Bases de Datos ALUMNO CABIMAS, 03 de Febrero del 2021 REPÚBLICA BOLIVARIANA DE VENEZUELA MINISTERIO DEL P.P PARA LA EDUCACIÓN SUPERIOR I.U.P “SANTIAGO MARIÑO” EXTENSIÓN C.O.L - CABIMAS
- 2. DESARROLLO 1. Conectar Visual Basic 6.0 y access 2003. Si es a través de código es esto lo que se debe hacer; // Esto se tiene que poner en general son las variables que se van a usar pueden ser las que uno quiera. Option Explicit Private conexion As ADODB.Connection Private WithEvents record As ADODB.Recordset //esto va en el form Private Sub Form_Load() Set conexion = New ADODB.Connection Set record = New ADODB.Recordset record.LockType = adLockOptimistic record.CursorType = adOpenKeyset With conexion // esta condición es para evitar escribir la variable conexión varias veces .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "archivo.mdb; persist security info=False" .Open End With End Sub Este es solo para hacer la conexión a la base de datos en access 2. Visual Basic 6.0 con Microsoft SQL Server 2008 o una versión posterior Primero se debe instalar el sqlncli Luego habilitar el servicios en el Configuration Manager y finalmente a la cadena de conexión le agregue "DataTypeCompatibility=80 " así mismo la cadena de conexión fue:
- 3. Provider=SQLNCLI10;Server=servidor;Database=base_datos;User Id=usuario;Password=password;DataTypeCompatibility= 80; 3. Conectar Visual Basic con MySQL (cualquier versión) Lo primero que debemos de hacer, es descargar un controlador ODBC que nos proporcionan gratuitamente desde la web de MySQL e instalarlo. Una vez instalados estos drivers, solo debemos utilizar la cadena de conexión en nuestro VB las cuales son; 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 & «;UID=» & Usuario & «;password=» & Pwd & «;PORT=3306;» 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, podemos declararlas como públicas para todo el proyecto y reutilizarlas, o en la función que veamos que se utilizará. Además tenemos 4 variables que no hemos declarado y que deberíamos declarar para darle el valor que corresponda, estas son; NomBD: El nombre de la base de datos. (ej. Datos)
- 4. Servidor: El nombre o dirección IP de nuestro servidor de MySQL. (ej. Localhost) Usuario: El usuario para acceder a nuestra base de datos de MySQL. (ej. vertutoriales) Pwd: La clave de acceso a nuestro servidor de MySQL. (ej. ######) Ya para terminar, el código que debemos utilizar una vez conectados con la base de datos de MySQL ‘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 Con estas líneas de código ya obtenemos la conexión y la forma de realizar consultas a vuestra base de datos MySQL atacando con Visual Basic 6. Ya solo quedaría utilizar el Rs de la manera normal.