Você pode localizar um registro em um conjunto de registros no Microsoft Visual Basic usando o Localizar e buscar maneiras para tanto (Microsoft ActiveX Data Objects ) e ADO ( Data Access Objects ) DAO , mas esses métodos são implementados de forma diferente em ambas as bibliotecas de objetos . Procure um desempenho melhor do que encontrar em ambos os métodos , porque Procure requer um índice , a fim de realizar uma pesquisa , acelerando muito os tempos de desempenho na maioria dos casos . Isto , contudo, impõe a limitação de que o método de procura só pode ser utilizado em objectos de registos que são baseados em uma tabela indexada . Tanto o Localizar e buscar métodos requerem que os critérios de pesquisa ser especificados em ordem para executar a pesquisa . Coisas que você precisa
computador
Microsoft
ADO ou DAO bibliotecas do Visual Basic
Microsoft Access
conhecimento de programação
Show Mais instruções
Usando Procure no ADO < br >
1

Abra a conexão com o banco de dados Access. ( Substitua as variáveis ​​em << >> conforme o caso) :

Dim << conexão objeto >> As ADODB.Connection

Set << connection object > ,. . > = New ADODB.Connection

Com << >> conexão objeto

Provider = " Microsoft.Jet.OLEDB.4.0 "

Aberto << caminho para db >>

End With
2

Criar o conjunto de registros :

Dim << >> Como objeto de registros ADODB . Recordset

Set << registros objeto >> = New ADODB.Recordset
3

Selecione o índice de pedidos no conjunto de registros :

<< registros objeto . >> << variável Index = Índice >>
4

Abra a tabela . Use os seguintes valores fundamentais:

<< registros objeto >> Open Source : . = << Variável de tabela >> , _

ActiveConnection : = << connection object >> , _

CursorType : = adOpenKeyset , _

LockType : = adLockOptimistic , _

Opções : = adCmdTableDirect
5

Localizar o registro usando o método de procura : .

<< registros objeto >> Procure keyValues ​​: = << >> critérios de pesquisa , SeekOption : = adSeekFirstEQ
6

Execute as ações desejadas ou de processamento , tais como a impressão do registro para a tela
7

Feche o objeto conjunto de registros : .

<< objeto conjunto de registros . >> Fechar
8

Feche a conexão: .

<< objeto de conexão >> Fechar
Usando Encontre em ADO
< br > 9

Abra a conexão.
10

Abra a tabela . Use os seguintes valores fundamentais:

CursorType : = adOpenKeyset

LockType : = adLockOptimistic
11

Encontre o registro usando o método Find . Use a seguinte sintaxe , substituindo os itens na << >> com os valores apropriados : .

<< Registros objeto >> Encontre Critérios: = << critérios de pesquisa > > , SearchDirection : = adSearchForward
12

Verifique se um registro foi encontrado, ou seja , verificar se o fim do arquivo (EOF) condição não se verifica
13

. loop através de todos os registros correspondentes e processo se o desejar.
14

Feche o objeto de registros.
15

Feche a conexão.
< br >