Informe conecta base_datos_diego_rangel

BASE DE DATOS
DIEGO RANGEL
CI 19.588.270
INSTITUTO UNIVERSITARIO
POLITÉCNICO
“SANTIAGO MARIÑO”
EXTENSION VALENCIA

Informe de conexiones a Bases de Datos
Este informe, está enfocado en las operaciones y modos de conectar el lenguaje VB 6.0 a varias clases
de gestores de datos, como son: SQL Server 2008 R2, MS Access y My Sql. En donde cada una reúne
requisitos para hacer de manera exitosa tanto la conexión, como la visualización de los datos y su
respectiva manipulación.
El Programa reúne a los tres tipos de Conexión
Código Fuente para conectar y Mostrar Datos con SQL Server 2008 R2
Private Sub CmdConecta_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=Clientes; " & _
"Data Source=DESKTOP-VNLDAJL; " & _
"integrated security=SSPI; persist security info=True;"
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM Clientes", cnn, adOpenDynamic, adLockOptimistic
' Asignar los nombres de los campos al combo
With CmbClientes
.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.Close
End Sub

Código Fuente para conectar y Mostrar Datos con SQL Server 2008 R2

Conectar a MS Access con ADODB
Agregar referencia en el Menú Proyecto a: Microsoft ActiveX DataObjects 6.1 Library
Se establece la Conexión en la propiedades de Control
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program Files (x86)Microsoft Visual
StudioVB98ConectaNeptuno2.mdb;Persist Security Info=False
Se Colocan los siguientes Valores:
RecodSource; Categorías (Nombre de la Tabla)
Commnadtype: 2 – adcmdTable
CursorLocation; 3 – adUseClient
LockType: 3 – OpenStatic

Informe conecta base_datos_diego_rangel

Se Agregan tantas etiquetas como cuadros de texto que se requieran, con la
siguiente configuración:
DataSource: Adodc1 y DataField: Nombre del Campo de la Tabla
Nota: En la Aplicación, se colocó la propiedad Visible a False del Adodc1 y se insertaron
Botonees de navegación por los registros con el siguiente código:
Private Sub CmdPrimero_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub CmdPrevio_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
End Sub

Private Sub CmdSigue_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub CmdUltimo_Click()
Adodc1.Recordset.MoveLast
End Sub
Código Fuente para conectar MySql y VB 6.0
Private Sub CmdMySql_Click()
Set cnn = DataConecta.Connections
Set rst = DataConecta.Recordsets
DataConecta.O
rst.CursorLocation = adUseClient
cnn.Open "Driver=[MySQL ODBC 8.0.21 Driver];Server=localhost;Database=Clientes;
User=root;Password=;Option=3;"
A = Conexion.State
If A = 1 Then
MsgBox ("Base de Datos Conectada")
End If
End Sub

Nota:
Es necesario instalar el Driver ODBC de MySql (Actualmente está en la versión 8.0.21),
para poder realizar la conexión a MySql y configurar un origen de datos ODBC, con el
asistente del Sistema Operativo (Windows 10en este caso)

Pantallas de los Servidores y Access
SQL Server 2008 R2

PhpMyAdmin para MySql
Conclusión
Este trabajo sirve para refinar, actualizar y reafirmar los conocimientos necesarios para
trabajar de manera exitosa con Base de Datos desde el lenguaje VB 6.0, que es de vital
importancia en el desarrollo profesional de aplicaciones que gestionen datos.

Informe conecta base_datos_diego_rangel

Más contenido relacionado

La actualidad más candente (20)

Similar a Informe conecta base_datos_diego_rangel (20)

Último (10)

Informe conecta base_datos_diego_rangel