Bases de datos desde visual basic 6.0
- 1. REPUBLICA BOLIVARIANA DE VENEZUELA MINISTERIO DEL PODER POPULAR PARA LA EDUCACIÓN SUPERIOR “I.U.P. SANTIAGO MARIÑO” CABIMAS - ESTADO ZULIA BASE DE DATOS DESDE VISUAL BASIC 6.0 REALIZADO POR: MARLYN RODRIGUEZ. C.I: 26.914.195.
- 2. Crear conexión de base de datos desde visual BASIC 6 a Access 2003: Si es a través de código es esto lo que tienes que haces: //esto se tiene que poner en general son las variables que se van a suar pueden ser las que tú quieras 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 condicion es para evitar escribir la variable conexion varis veces .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "archivo.mdb; persist security info=False" .Open End With End Sub Lo siguiente es crear la cadena de conexión, el primer ejemplo es para acceder a la base de datos protegida con contraseña: ConexBD = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mibasededatosacces.mdb; Jet OLEDB:Database Password=MiPass” En este caso no tiene contraseña:
- 3. ConexBD = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mibasededatosacces.mdb; Jet OLEDB:Database” Luego sería pasarle a vb6 el resto para conectar, para ello declaramos dos objetos el primero tipo conexión de base de datos y el otro de registros RecordSet Dim BD As ADODB.Connection Dim Rs As ADODB.Recordset A continuación los instanciamos y conectamos con la cadena de conexión creada previamente para hacer el enlace con nuestro fichero de base de datos en Access. ‘Crear los objetos Set BD = New ADODB.Connection Set Rs = New ADODB.Recordset ‘conecto con la base de datos BD.Open ConexBD Llegamos a este punto, es trabajar directamente con la base de datos usando el objeto recordset para movernos por los registros, podríamos realizar una consulta de esta manera: Rs.Open “SELECT * FROM Almacen ORDER BY idAlmacen”, BD, adOpenDynamic, adLockOptimistic De esta manera nos traeríamos todos los registros contenidos en la tabla de Almacen. Luego simplemente tendremos un objeto con la información que podremos acceder tan fácil como: Rs!Nombredelcampo Les dejo el código completo para conectaros a una base de datos de Microsoft Access con Visual Basic 6 (vb6):
- 4. Dim ConexBD as string ConexBD = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mibasededatosacces.mdb; Jet OLEDB:Database” Dim BD As ADODB.Connection Dim Rs As ADODB.Recordset ‘Crear los objetos Set BD = New ADODB.Connection Set Rs = New ADODB.Recordset ‘conecto con la base de datos BD.Open ConexBD Rs.Open “SELECT * FROM Almacen ORDER BY idAlmacen”, BD, adOpenDynamic, adLockOptimistic msgbox Rs!Nombredelcampo Conectar visual BASIC a Microsoft SQL server 2008: Les muestro detalladamente lo que estoy haciendo: --> Este es el codigo que tengo en una clase llamada Conexion.vb: Public Class Conexion 'creamos el objeto de conexion Public conexion As SqlClient.SqlConnection 'metodo para conectanos a la base de datos Public Sub conectar() Try conexion = New SqlClient.SqlConnection() 'inicializamos el objeto conexion 'ahora pasamos la cadena de conexion al objeto conexion con nuestros datos conexion.ConnectionString = "Server=localhost; database=NORTHWIND;
- 5. trusted_connection=yes" conexion.Open() 'con la funcion open abrimos la conexion MsgBox("Abierto") Catch ex As Exception MsgBox("Error") End Try End Sub End Class Ya logre establecer la conexión. Este código es el que más fácil encontré y puedo entender, me parece sencillo (Si hay una forma MÁS sencilla me gustaría su opinión) Pero hasta ahora estoy conforme con este código. Y al cargar el formulario sucede lo siguiente: Public Class Form1 Dim conexion1 As New Conexion Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conexion1.conectar() End Sub End Class Conectar visual BASIC a MySQL: Para conectar Visual Basic .NET y MySQL, lo primero que debemos hacer es bajarnos la librería necesaria para establecer la conexión y trabajar con las funciones que nos brinda MySQL. Por eso deben descargar MySQL Connector .NET, que lo pueden buscar en el sitio Web oficial junto con toda su documentación disponible. Después de descargarlo, abres tu Microsoft Visual Studio 2008 (La versión que yo uso) y en tu proyecto le das clic de derecho y luego en agregar referencia, allí mismo te sale una ventana para que busques y selecciones el archivo a agregar,
- 6. que en este caso es la librería MySql.Data.dll que se encuentra en la carpeta de instalación (C:Archivos de ProgramaMySQLMySQL Connector Net 1.0.2bin.NET 1.1 Primer paso: Importar las librerías para trabajar con MySQL: Imports MySql.Data.MySqlClient Y declaramos una variable global para la conexión: Friend conexion As MySqlConnection Luego en el evento Clic del botón que agregamos, declaramos tres variables que harán referencia a los datos de conexión. Try servidor = ServerTxt.Text usuario = UsuarioTxt.Text pswd = pswdTxt.Text
- 7. Luego creamos un objeto de la variable conexión para trabajar con él. Y luego por medio de un String agregamos todos los datos de conexión proporcionados por las variables. conexion = New MySqlConnection() conexion.ConnectionString = "server=" & ServerTxt.Text & ";" & "user id=" & UsuarioTxt.Text & ";" & "password=" & pswdTxt.Text & ";" conexion.Open() MessageBox.Show("Conectado al servidor") Por último terminamos la gestión de errores, por si la conexión no se realiza sale un mensaje de error. Así evitamos comportamientos inesperados. Catch ex As MySqlException MessageBox.Show("No se ha podido conectar al servidor") End Try Por último terminamos la gestión de errores, por si la conexión no se realiza sale un mensaje de error. Así evitamos comportamientos inesperados. Catch ex As MySqlException MessageBox.Show("No se ha podido conectar al servidor") End Try
- 8. El código completo dentro del evento Click debería quedar como este: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try conexion = New MySqlConnection() conexion.ConnectionString = "server=" & ServerTxt.Text & ";" & "user id=" & UsuarioTxt.Text & ";" & "password="& pswdTxt.Text & ";" conexion.Open() MessageBox.Show("Conectado al servidor") Catch ex As MySqlException MessageBox.Show("No se ha podido conectar al servidor") End Try End Sub