Cómo abrir una base de datos de Access

Visual Basic integra muy estrechamente la base de datos de Access y normalmente consta de las siguientes partes.

Biblioteca de tipos de 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:

Public AccessDBF como base de datos

'Definir base de datos Instancia de objeto AccessDBF

2. La variable RecordSet

corresponde a una tabla en la base de datos de Access, que se puede definir 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. 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. siguiente:

Public Sub OpenDatabase ( )

Dim sConeect As String

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

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

Establecer AccessDBF = Nada

'Confirmar para cerrar la instancia del objeto

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

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

End Sub

2. Método para abrir 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 relacionados

Los datos en realidad requieren operaciones en registros, campos y elementos de datos en 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*1I ) ) + "G").Valor = thePrintTable.Fields (0)

Siguiente I < / p>

Siguiente j

Cerrar la base de datos

1. Cerrar la base de datos

Suele realizarse al final de toda la aplicación, es decir. , generalmente 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