Base de datos

Acceder a bases de datos usando ADO
Sin usar el data control

Seguramente ya habrás visto cómo usar el ADO data control para acceder a bases de datos, ahora vamos a ver cómo hacerlo sin necesidad de usar el data control. es decir, con código puro y duro.
Para ello, vamos a usar una referencia a la librería ActiveX Data Object 2.0, ya que con esa versión podemos usar eventos en los recordsets,con idea de que sea más fácil moverse por los registros y demás cosillas que nos permiten los eventos.
También vamos a ver cómo podemos "ligar" los controles a ese recordset.
 
El código de ejemplo.
Para usar el código de este ejemplo, crea un nuevo proyecto.
En Proyecto/Referencias, selecciona: Microsoft ActiveX Data Objects 2.0 Library
Añade los controles necesarios para que tenga unaspecto como el siguiente:

Los nombres de los controles son:
Los botones para desplazarse por los registros de la base de datos: cmdMove, un array de cuatro controles, de cero a tres.
El botón de Actualizar se llama: cmdUpdate
El de Añadir: cmdAdd
El de Eliminar: cmdDel
Las cajas de texto igual que el texto mostrado, los Text1 son un array de cero a dos.
Espero que no tengas problemas paracrear el form de prueba, pero de todas formas, en el zip con el código está el formulario, si es que no quieres "entretenerte" en crearlo.
Ahora añade el siguiente código al formulario.
Nota:
Como comprobarás, hay una constante de compilación condicional para poder usar los Text1 ligados al Recordset o no hacerlo.
Simplemente cambia el valor de dicha constante a -1, para usar los controlesligados o asígnale un valor 0, para que no se usen los controles ligados, en ese caso, tendrás que pulsar en el botón "Actualizar" para que los cambios realizados se actualicen en la base de datos.
Cuando los controles están ligados, al cambiar de registro, el contenido de las cajas de texto se actualizan en los campos correspondientes.
Nota2:
Básicamente para usar ADO en tus proyectos tendrás queusar un objeto del tipo Connection, que será el que se usará para abrir la base de datos y un objeto del tipo Recordset pra abrir la tabla que quieres manipular. Al abrir este último se le indica lo que quieres que te muestre, es decir, puedes indicarle los registros a los que quieres acceder y el campo por el que esté clasificado, etc. También a la hora de abrir el recordset le indicarás de quetipo lo quieres, etc.
-------------------------------------------------

-------------------------------------------------
'------------------------------------------------------------------------------
-------------------------------------------------
' Prueba de acceso a base de datos usando código ADO (30/Ago/99)-------------------------------------------------
'
-------------------------------------------------
' ©Guillermo 'guille' Som, 1999
-------------------------------------------------
'------------------------------------------------------------------------------
-------------------------------------------------
Option Explicit-------------------------------------------------

-------------------------------------------------
' Para probar usando controles ligados al recordset
-------------------------------------------------
' Si se ligan los Text1 al recordset, asignar -1 a esta constante
-------------------------------------------------
' Si no se ligan losText1, asignar 0 (o simplemente comentar la línea)
-------------------------------------------------
#Const TextLigados = -1
-------------------------------------------------

-------------------------------------------------

-------------------------------------------------
Private sBase As String ' Nombre de la...