Visual Basic - Que es DAO y ADO ??

Estoy recien usando Visual Basic, instalé VB 6.0 y me encuentro con esas siglas DAO y ADO, además me sorprende que en estos foros hagan la diferencia entre Visual Basic y Visual Basic ADO ¿ Qué es ADO Y DAO ?? ¿ No se hablaba de DAO y ADO en las Versiones anteriores??
Gracias
Rosy

Hola, Bienvenida a los foros...
Bueno no soy ningún experto en Visual, yo también hago preguntas cuando estoy enredado...pero te puedo dar unos consejos prácticos para que tengas una idea cómo puedes ir comenzando a programar.

Resulta que Visual Basic tiene 3 objetos de programación de bases de datos, que tienen controles, los cuales son; en orden de aparición desde la versión de Visual Basic 3.0;
1.- DAO (Data Access Object) Bases de datos locales
2.- RDO (Remote Data Object) Bases de datos remotas (cliente/servidor)
3.- ADO (ActiveX Data Object) este último es el más usado por ser el más facil de programar, el más completo, es como la combinación de los dos anteriores y el más recomendado.

Esto no quiere decir que DAO no se conecta a nivel de cliente /servidor
si lo hace, pero cada objeto tiene sus limitaciones y facilidades o versatilidades.

Ahora bien, similar que DAO, el objeto ADO de Visual Basic 6.0 se puede programar con su control ADO respectivamente que se encuentra en la barra de herramientas o componentes, siempre y cuando la base de datos es (pequeña). De esta manera es sencillo su utilización al establecerle las propiedades.

Pero cuando la base de datos es grande (más de 1000 registros por ejemplo), lo ideal es programar en Visual Basic utilizando su objeto ADO a nivel de código sin utilizar el control. Cuando hablo a nivel de código me refiero a los famosos Recordsets, que no es más que un objeto que trabaja con consultas de registros y asi ocupa poco espacio en memoria ya que no abre la base de datos totalmente con todas las tablas sino únicamente las que nosotros le especifiquemos y únicamente los campos que le

y únicamente los campos que le especifiquemos.
Es muy fácil... te puedo dar un ejemplo de código para que puedas comprenderlo:

'Para que lo escribas en el módulo:
Public miconexion as ADODB.Connection
Public Mirecordset as ADODB.Recordset
Public Basededatos as String

'Para que lo escribas en el formulario:
Sub form load()
' Guardamos en la variable dónde está la base de datos
' Puede estar local
Basededatos="C:\Micarpeta\Mibasededatos.mdb"
' o si esta en un servidor.
Basededatos="X:\Micarpeta\Mibasededatos.mdb"

' Creamos una conexión
Set miconexion = New Connection

' Establece sus propiedades
With miconexion
' permiso de lectura / escritura
.Mode = adModeReadWrite
' Nivel de aislamiento: Se pueden ver los cambios en otras
' transacciones
.IsolationLevel = adXactCursorStability
End With

' Abre la conexión
miconexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasedeDatos

' Creamos el recordset
Set Mirecordset = New ADODB.Recordset

'Ya está listo todo para empezar a trabajar por ejemplo si quiero abrir la consulta con mi recordset buscando un registro por la cédula de identidad de una persona que ingreso los datos por pantalla:

' Abrimos una consulta con el recordset creado, seleccionando todos los campos de la tabla "Mitabla" , donde el campo cedula sea igual que el valor de la caja de texto cedula.

y únicamente los campos que le especifiquemos.
Es muy fácil... te puedo dar un ejemplo de código para que puedas comprenderlo:

'Para que lo escribas en el módulo:
Public miconexion as ADODB.Connection
Public Mirecordset as ADODB.Recordset
Public Basededatos as String

'Para que lo escribas en el formulario:
Sub form load()
' Guardamos en la variable dónde está la base de datos
' Puede estar local
Basededatos="C:\Micarpeta\Mibasededatos.mdb"
' o si esta en un servidor.
Basededatos="X:\Micarpeta\Mibasededatos.mdb"

' Creamos una conexión
Set miconexion = New Connection

' Establece sus propiedades
With miconexion
' permiso de lectura / escritura
.Mode = adModeReadWrite
' Nivel de aislamiento: Se pueden ver los cambios en otras
' transacciones
.IsolationLevel = adXactCursorStability
End With

' Abre la conexión
miconexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasedeDatos

' Creamos el recordset
Set Mirecordset = New ADODB.Recordset

'Ya está listo todo para empezar a trabajar por ejemplo si quiero abrir la consulta con mi recordset buscando un registro por la cédula de identidad de una persona que ingreso los datos por pantalla:

' Abrimos una consulta con el recordset creado, seleccionando todos los campos de la tabla "Mitabla" , donde el campo cedula s

y únicamente los campos que le especifiquemos.
Es muy fácil... te puedo dar un ejemplo de código para que puedas comprenderlo:

'Para que lo escribas en el módulo:
Public miconexion as ADODB.Connection
Public Mirecordset as ADODB.Recordset
Public Basededatos as String

'Para que lo escribas en el formulario:
Sub form load()
' Guardamos en la variable dónde está la base de datos
' Puede estar local
Basededatos="C:\Micarpeta\Mibasededatos.mdb"
' o si esta en un servidor.
Basededatos="X:\Micarpeta\Mibasededatos.mdb"

' Creamos una conexión
Set miconexion = New Connection

' Establece sus propiedades
With miconexion
' permiso de lectura / escritura
.Mode = adModeReadWrite
' Nivel de aislamiento: Se pueden ver los cambios en otras
' transacciones
.IsolationLevel = adXactCursorStability
End With

' Abre la conexión
miconexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasedeDatos

' Creamos el recordset
Set Mirecordset = New ADODB.Recordset

'Ya está listo todo para empezar a trabajar por ejemplo si quiero abrir la consulta con mi recordset buscando un registro por la cédula de identidad de una persona que ingreso los datos por pantalla:

' Abrimos una consulta con el recordset creado, seleccionando todos los campos de la tabla "Mitabla" , donde el campo cedula s

y únicamente los campos que le especifiquemos.
Es muy fácil... te puedo dar un ejemplo de código para que puedas comprenderlo:

'Para que lo escribas en el módulo:
Public miconexion as ADODB.Connection
Public Mirecordset as ADODB.Recordset
Public Basededatos as String

'Para que lo escribas en el formulario:
Sub form load()
' Guardamos en la variable dónde está la base de datos
' Puede estar local
Basededatos="C:\Micarpeta\Mibasededatos.mdb"
' o si esta en un servidor.
Basededatos="X:\Micarpeta\Mibasededatos.mdb"

' Creamos una conexión
Set miconexion = New Connection

' Establece sus propiedades
With miconexion
' permiso de lectura / escritura
.Mode = adModeReadWrite
' Nivel de aislamiento: Se pueden ver los cambios en otras
' transacciones
.IsolationLevel = adXactCursorStability
End With

' Abre la conexión
miconexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasedeDatos

' Creamos el recordset
Set Mirecordset = New ADODB.Recordset

'Ya está listo todo para empezar a trabajar por ejemplo si quiero abrir la consulta con mi recordset buscando un registro por la cédula de identidad de una persona que ingreso los datos por pantalla:

' Abrimos una consulta con el recordset creado, seleccionando todos los campos de la tabla "Mitabla" , donde el campo cedula s

' Abrimos una consulta con el recordset creado, seleccionando todos los campos de la tabla "Mitabla" , donde el campo cedula sea igual que el valor de la caja de texto cedula.text.

Mirecordset.Open "Select * from MiTabla Where MiTabla.cedula=" & cedula.text, miconexion, adOpenDynamic, adLockOptimistic

' Entonces en el recordset lo que se almacena es ese registro en caso que lo haya encontrado, sino guarda nulo.

Espero haberte orientado...
Suerte Preciosa...