¿Cómo crear, abrir y modificar una base de datos usando el método DAO en VB?

Biblioteca de tipos DAO de referencia

1. Seleccione el elemento de menú "Referencia" del menú "Proyecto"

2. Seleccione "Biblioteca de objetos Microsoft DAO 3.51; " artículo.

3. Finalmente, "OK"

Establecer variables de tipo de datos DAO

Las variables de tipo de datos DAO se dividen en dos tipos:

1. Variable de base de datos

Corresponde a la base de datos de Access y generalmente se define como una variable pública completa en el módulo:

Acceso públicoDBF como base de datos

'Definir base de datos Instancia de objeto AccessDBF

2. Variable RecordSet

Corresponde a una tabla en la base de datos de Access. Puede definirse como una variable global o una variable local, y también se puede pasar como una. parámetro de función:

Atenuar thePrintTable As RecordSet

'Definir una instancia de objeto de tabla thePrintTable

Abrir el tipo de datos DAO

1. ¿Cómo? para abrir Access

Por lo general, se puede configurar una función pública especial para abrir una base de datos de Access, y esta función se llama durante el proceso Private Sub Form_load () del formulario de inicio. El formato de definición de la función es el siguiente. :

Public Sub OpenDatabase ( )

Dim sConeect As String

SConnect = "; PWD = 8830428; UID = admin "

'Establece el nombre de usuario, contraseña, etc. al abrir Parámetros

Establece AccessDBF = Nada

'Confirma para cerrar la instancia del objeto

Establece AccessDBF = WorksPaces ( 0 ).OpenDatabase (App.Path&"/ToXls .MDB", False, sConnect)

'Abre la base de datos ToXls.MDB en la ruta actual

End Sub

2. Cómo abrir un RecordSet

RecordSet sigue el principio listo para usar, por lo que generalmente se abre en una función

Set thePrintTable = AcessDBF. OpenRecordSet ("Table_1", dbOpenSnapshot)

Operaciones de datos relacionadas

Los datos realmente necesitan operar en los registros, campos y elementos de datos de la tabla de Access.

El siguiente bucle doble envía datos a las celdas correspondientes en Excel:

For j = 0 To 2

For I = 0 To 3

ThePrintTable.MoveNext

Excel.Sheet.Range ( Trim ( chr ( 71 j*10 I ) ) "G").Value = thePrintTable.Fields (0)

Siguiente I

Siguiente j

Cerrar la base de datos

1. Cerrar la base de datos

Se suele realizar al final de toda la aplicación, es decir, suele aparece en el proceso Private Sub Form_unload (Cannel As Interger). Un ejemplo del formato del comando es el siguiente:

AccessDBF.Close

2. Cerrar RecordSet

Sigue el principio de cerrar después de su uso, por lo que normalmente aparece en funciones. Cuando se completen las operaciones de datos relevantes, ciérrelo y vuelva a abrirlo la próxima vez que lo use:

thePrintTable.Close