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
.