Microsoft Visual Basic
ADO o DAO bibliotecas en Microsoft Access
Programación conocimiento
Mostrar más instrucciones
Uso Busque en ADO
página 1
Abra la conexión a la base de datos Access . ( Sustituya las variables de << >> , según proceda ) :
Dim << >> Como conexión objeto ADODB.Connection
Juego << objeto de conexión > ; > = New ADODB.Connection
<< conexión objeto >> Fútbol
Provider = " Microsoft.Jet.OLEDB.4.0 "
Abrir. . << camino hacia db >> Fútbol
End con fotos de 2
Crear el conjunto de registros :
Dim << >> Como objeto de registros ADODB . Recordset
Set << >> objeto recordset = New ADODB.Recordset
3
Seleccione el índice de pedidos en el conjunto de registros :
<< objeto de registros . >> << Indice = variable Index >>
4
Abra la tabla . Utilice los siguientes valores fundamentales:
<< objeto recordset >> Open Source : . = Variable de tabla << >> , _
ActiveConnection : = << objeto de conexión >> , _
CursorType : = adOpenKeyset , _
LockType : = adLockOptimistic , _
Opciones
: = adCmdTableDirect
5
Busque el registro utilizando el método Seek :
<< >> objeto recordset Busque KeyValues : . = << >> criterios de búsqueda , SeekOption : = adSeekFirstEQ
6
Realice las acciones o procesamiento deseadas, tales como la impresión de la ficha de la pantalla
7
Cierre el objeto de registros : .
<< >> objeto de registros . Cerrar
8
cerrar la conexión : .
<< conexión objeto >> Cerrar
Uso de Buscar en ADO
9
abrir la conexión.
10
Abra la tabla . Utilice los siguientes valores fundamentales:
CursorType : = adOpenKeyset
LockType : = adLockOptimistic
11
encontrar el registro utilizando el método Find . Utilice la sintaxis siguiente , sustituyendo los elementos de la << >> con los valores apropiados : .
<< Objeto recordset >> Buscar Criterios: = << criterios de búsqueda> > , SearchDirection : = adSearchForward
12
descubre que no se encontró un registro, es decir , comprobar que al final del archivo ( EOF ) condición no se cumple
13
. Recorrer todos los registros coincidentes y el proceso si lo deseas .
14
Cierre el objeto de registros.
15
cerrar la conexión .