Procedimiento para conectarce a una base de datos de access



Descargar 49.33 Kb.
Fecha de conversión29.01.2017
Tamaño49.33 Kb.
ADO es sinónimo de ActiveX Data Objects. Esta tecnología se utiliza para conectarse a bases de datos y manipular los registros almacenados en las bases de datos.

PROCEDIMIENTO PARA CONECTARCE A UNA BASE DE DATOS DE ACCESS

Inicie Visual Basic

Elija la opción "EXE estándar" y haga clic en Aceptar

Agregue una referencia a "Microsoft ActiveX Data Objects 2.x Library". Ir al menú Proyecto y seleccione las referencias del submenú.

name: reference.jpg views: 16428 size: 40.9 kb

Agregue los siguientes controles en el formulario:

4 botones de comando (cmdAdd, cmdDel, cmdSig y cmdAnt)

3 cajas de texto (Text1, Text2 y Text3)

Se debe tener este aspecto:

Utilice los códigos que figuran a continuación.



Los dos objetos ADO que vamos a utilizar para este ejemplo son el objeto Connection y el objeto Recordset. El objeto de conexión se utiliza para conectarse y comunicarse con bases de datos como MS Access, SQL Server y Oracle para nombrar unos pocos, El objeto de registros se utiliza para recuperar y manipular los registros en nuestra base de datos, con el objeto de registros que podríamos agregar, actualizar y eliminar registros.

1 Las variables

  1. Option Explicit



  2. Private cn As ADODB.Connection  'Éste es el objeto de conexión



  3. Private rs As ADODB.Recordset   'Éste es el objeto de registro

Este es el punto de entrada de nuestro programa. Es donde están nuestras instancias de objetos de ADO, el establecimiento de sus parámetros y su apertura. La propiedad de los objetos de conexión de los más importantes o parámetro es el ConnectionString, aquí es donde se especifica la forma en que se va a conectar y en qué base de datos. La cadena de conexión la utilizados para conectarnos a diferentes bases de datos. El objeto de registros tiene diferentes parámetros que tenemos que agregar.

2 La Conexión

  1. Private Sub Form_Load()



  2.     'iniciamos la conexión a la base de datos



  3.     Set cn = New ADODB.Connection



  4.     'especificamos la cadena de conexión



  5.     cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _



  6. "Data Source=" & App.Path & "\DB1.mdb"



  7.     'abrimos la conexión



  8.     cn.Open



  9.    



  10.     'inicializamos el objeto de registro



  11.     Set rs = New ADODB.Recordset



  12.     'abrimos el objeto de registro



  13.     With rs



  14. .Open "tabla1", cn, adOpenKeyset, adLockPessimistic, adCmdTable



  15.            

  16.    'ciclo para recorrer los registros de la tabla hasta el final    



  17.         If Not (.EOF And .BOF) Then



  18.             rs.MoveFirst    'nos movemos al primer registro si ya no hay más registros



  19.             MostrarDatos      'función para actualiza los datos en los controles



  20.         End If



  21.        

  22.     End With



  23. End Sub

Procedimiento privado MostrarDatos

  1. 'Ésto llena los controles (cuadro de texto y cuadro combinado) con el registro actual del conjunto de registros

  2. Private Sub MostrarDatos()



  3.     If Not (rs.BOF = True Or rs.EOF = True) Then    'Verifica si estamos en el primer o último registro.

  4.         Text1.Text = rs.Fields("campo1")            'text1 = el contenido del campo llamado campo1



  5.         Text2.Text = rs.Fields("campo2")           



  6.         Text3.Text = rs.Fields("campo3")           



  7. Else



  8.         'limpiamos los controles si no hay más registros



  9.         Text1.Text = ""



  10.         Text2.Text = ""



  11.         Text3.Text = ""



  12.     End If



  13. End Sub

3 Desplazamiento

Cuando hacemos la conexión a la base de datos solo se muestra el primer registro de la tabla, para poder desplazarnos entre los diferentes registros tenemos que agregar botones que nos permitan visualizar la información del objeto de registro.

Botón cmdSig


  1. Private Sub cmdSig_Click()



  2.     'comprobar si existen registros



  3.     If Not (rs.BOF = True And rs.EOF = True) Then



  4.         rs.MoveNext 'movemos el objeto de registro



  5.         'si no hay más registros muestra lo siguiente



  6.         If Not rs.EOF Then



  7.             MostrarDatos  'función para actualiza los datos en los controles



  8.         Else



  9.             rs.MoveLast 'nos movemos al ultimo registro



  10.             MsgBox "Se encuentra en el último registro", vbExclamation, "Atención"



  11.         End If



  12.     Else



  13.         MsgBox "No hay registros disponibles", vbExclamation, "Atención"



  14.     End If



  15. End Sub

Boton cmdAt

  1. Private Sub cmdNext_Click()



  2.     'comprobar si existen registros



  3.     If Not (rs.BOF = True And rs.EOF = True) Then



  4.         rs.MoveNext 'movemos el objeto de registro



  5.         'si no hay más registros muestra lo siguiente



  6.         If Not rs.EOF Then



  7.             MostrarDatos  'Función para actualiza los datos en los controles



  8.         Else



  9.            rs.MoveFirst'nos movemos al ultimo registro



  10.             MsgBox "Se encuentra en el último registro", vbExclamation, "Atención"



  11.         End If



  12.     Else



  13.         MsgBox "No hay registros disponibles", vbExclamation, "Atención"



  14.     End If



  15. End Sub

Borrar

If MsgBox("Estas seguro de eliminar éste registro ", vbYesNo + vbQuestion + vbDefaultButton2, "Eliminar") = vbYes Then

rs.Delete

rs.MovePrevious



MostrarDatos

End If


La base de datos está protegida por derechos de autor ©bazica.org 2016
enviar mensaje

    Página principal