Dao Data Access Object

DAO (Data Access Object) es el modelo de acceso a datos más conocido y utilizado con aplicaciones Visual Basic. Permite manipular directamente bases de datos nativasdel motor Jet de Access (ficheros .MDB), así como los denominados ISAM (Fox, dBase, Excel, Btrieve, Paradox y Texto).

Además, si se dispone del driver ODBCapropiado, a través del Jet se puede acceder a cualquier fuente de datos ODBC (SQL Server, Oracle, Informix, etc.), utilizando el mismo conjunto de objetos.

DAO esinstalado con las versiones profesional y empresarial de Visual Basic 5.0. También Visual C++ 4.x y 5.x y la familia de productos
Microsoft Office instalan DAO.

Haydistintas versiones de DAO, según la versión de Visual Basic instalada.
Visual Basic versión de DAO
------------ --------------

VB 4.0 - 16 bits DAO 2.5
VB 4.0 -32 bits DAO 3.0
VB 5.0 (sólo 32 bits) DAO 3.5

Cada versión de Visual Basic, aparte de incluir las librerías de DAO correspondientes, incluye librerías decompatibilidad con versiones anteriores.

Ejemplo de código en Visual Basic:


Private Sub DAO_Click()
' Se necesita referencia en el proyecto a Microsoft DAO 3.5
'Object Library ò Microsoft DAO 2.5/3.5 Compatibility Library
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Dim sql As String
sql = "select * fromauthors"
Set ws = DBEngine.Workspaces(0)
Dim cnStr As String
cnStr = "driver={SQL Server};server=miServidor;" & _
"database=pubs;uid=sa;pwd="
Set db =ws.OpenDatabase("", False, False, cnStr)
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.MoveNext
MsgBox rs.Fields("au_lname")
rs.Close
db.Close
ws.Close

End Sub