Carreno programacion

República Bolivariana de Venezuela
Ministerio del Poder Popular para la Educación Universitaria
Instituto Universitario Politécnico “SANTIAGO MARIÑO”
Cabimas- Edo- Lara
CARREÑO ADRIANA
27 828 500
ING. EN PETROLEO
CABIMAS, FEBRERO DEL 2021

CONECTAR VISUAL BASIC .0 A Microsoft 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 usar 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 varias
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:

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
Almacén. Luego simplemente tendremos un objeto con la información que
podremos acceder tan fáciles como:
Rs!Nombredelcampo
Les dejo el código completo para conectaros a una base de datos de Microsoft
Access con Visual Basic 6 (vb6):

Dim ConexBD as string
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 .0 A Microsoft SQL Server 2008
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 conexión
'ahora pasamos la cadena de conexion al objeto conexion con nuestros datos
conexion.ConnectionString = "Server=localhost; database=NORTHWIND;
trusted_connection=yes"
conexion.Open() 'con la funcion open abrimos la conexión
MsgBox("Abierto")
Catch ex As Exception
MsgBox("Error") End Try
End Sub
End Class
Ya se logró 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,
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
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.

End Try
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")
End Try
End Sub

Carreno programacion

Más contenido relacionado

La actualidad más candente (17)

Similar a Carreno programacion (20)

Último (20)

Carreno programacion