Como Accdeder A Base De Datos

Cómo acceder a bases de datos ADO, sin el datacontrol.
Empecemos desde el principio... para que te vayas acostumbrando... aunque ya deberías saber crear tus propios formularios y añadir los controles que te indique... aunque prácticamente no te lo haya explicado en el curso, es algo que te enseñan en prácticamente cualquier libro e incluso en los "tutoriales" que incluye el Visual Basic.
(Toc,toc, toc, Guille... ¿esto no es lo mismo que lo que dijiste en la entrega anterior? Sí, pero como para esta también es válido y ya lo tengo escrito, ¿para que inventarme otra cosa? Pues sí... la cosa es buscar alguna excusa para ¡no trabajar! Buenooo, quitaré algo para que no sea exactamente "copiado", que es lo que suelen hacer la mayoría de la gente cuando escriben libros y otras cosas sobre lasnuevas versiones...)
El formulario de prueba:
Crea un nuevo proyecto, se creará un proyecto con un formulario.
Añade los siguientes controles para que el formulario quede con el aspecto que te muestro a continuación, (que es el mismo del último ejemplo de la entrega anterior):

Aspecto del formulario en tiempo de diseño
Los controles usados son:
En la parte superior:
cmdMover, un array de0 a 3
Label1, un array de 0 a 2, Text1, un array de 0 a 2
cmdAdd, cmdActualizar, cmdBorrar
El segundo grupo:
Label2, Text2, cmdBuscar
Un Listview1 para mostrar los resultados de la búsqueda
Una etiqueta (LblData) para mostrar algunos mensajes y el botón de salir es: cmdSalir
Las referencias necesarias:
En el menú Proyecto/Referencias... selecciona Microsoft ActiveX Data Objects 2.6Library -aunque también puedes seleccionar cualquiera de las otras que te muestra, (si es que te muestra alguna más); a mi me aparecen las versiones 2.0, 2.1, 2.5 y 2.6, la única que no deberías seleccionar es la 2.0 que ya está obsoleta-
Una vez añadida la referencia a los objetos ADO, puedes usar los objetos expuestos por esta librería.
En este ejemplo usaremos dos de esos objetos, que serán losque en la mayoría de los casos usemos:
El objeto Connection y el objeto Recordset.
El primero es el que permite acceder a la base de datos y el segundo será el que acceda a los datos propiamente dicho, cuando veas el código seguramente lo entenderás y si no lo entiendes... es que deberías leerte TODAS las entregas, ¡empezando por la primera! (tendrá que excusarse el Guille de alguna forma si noentiendes lo que explica)
Los objetos ADO más comunes:
Normalmente, el objeto Connection suele declararse de forma que sea visible en todo el formulario, salvo en el caso de que añadieses algún módulo BAS y necesitaras usarlo desde ese módulo BAS, en cuyo caso, deberías declararlo Público o Global, pero como por ahora no es necesario... dejemos las cosas estar...
El objeto Recordset de ADOproduce eventos, por tanto, si necesitamos acceder a esos eventos, declararemos la variable con WithEvents, de esa forma podemos interceptar los eventos que produzca de la misma manera que lo hacemos con el resto de controles (de esto veremos más en las entregas de las clases)
En el procedimiento Buscar, veremos cómo usar otro recordset, pero de la forma tradicional: sin eventos.
Escribe este códigoen las declaraciones generales del formulario:
-------------------------------------------------
Option Explicit
-------------------------------------------------

-------------------------------------------------
' En ADO, se usa el objeto Connection para abrir las bases de datos
-------------------------------------------------Private cnn As ADODB.Connection
-------------------------------------------------
' Necesitamos los eventos si queremos controlar algunas cosillas
-------------------------------------------------
Private WithEvents rst As ADODB.Recordset
Al cargar el formulario, creamos los objetos y asignamos la información correspondiente para abrir la base de datos y...