Saber como pesquisar através de registros de uma tabela de banco de dados usando uma consulta no Microsoft Office Access você pode economizar tempo ao procurar por um texto específico em uma coluna. Visual Basic for Applications , também conhecido como VBA, é uma linguagem de programação usada para automatizar tarefas de rotina em outros aplicativos do MS Office e Microsoft Access . Access é um sistema de gerenciamento de banco de dados relacional usado para projetar pequenos bancos de dados . Uma consulta é usada para recuperar informações de uma tabela do banco de dados . Instruções
1
Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office .
2
Clique em "Ferramentas de Banco de Dados ", selecione " Visual Basic " para abrir a janela do Microsoft Visual Basic. Clique no botão " Inserir" campo e selecione
3
Digite o seguinte para criar uma nova sub-rotina "Módulo ". :
SearchRecords Private Sub ( )
Pressione " Enter".
4
Digite o seguinte para criar a variável "rst " , você vai usá-lo para abrir um novo conjunto de registros:
Dim rst Como Recordset
Digite o seguinte para criar a variável " dbs " , você vai usá-lo para identificar o banco de dados atual :
Dim dbs as Database
Digite o seguinte para criar a variável " stringToSearch " , você vai usá-lo para guardar os caracteres que você vai olhar para na pesquisa de registro :
Dim stringToSearch as String
Digite o seguinte para definir o banco de dados atual como o banco de dados para usar neste sub-rotina :
Set dbs = CurrentDb
5
Digite o seguinte para definir a seqüência que você irá usar para pesquisar os registros retornados pela consulta , usando o nome de " Daniel " como um exemplo:
stringToSearch = " Daniel "
6
Digite o seguinte para abrir um novo conjunto de registros e consultar a tabela " Clientes " :
Set rst = dbs.OpenRecordset ( "SELECT * FROM Clientes Clientes ").
Edite a seguinte linha de código para consultar outra tabela :
Set rst = dbs.OpenRecordset ( "SELECT * FROM
< . , nome da tabela > ")
Digite o seguinte para mover para o primeiro registro dos resultados da consulta :
rst.MoveFirst
7
Digite o seguinte para repetir através do conjunto de registros , incrementando a posição de registros e procure por " Daniel " na coluna "Nome" :
do While Not rst.EOF
Se rst.Fields ( "Nome" ) . Valor = stringToSearch Então
MsgBox " Encontrado " & stringToSearch & " em número recorde :" & rst.AbsolutePosition
rst.MoveLast
Else
rst.MoveNext
End If
loop
para procurar outros conjuntos de caracteres em uma coluna diferente , edite as seguintes linhas de código :
stringToSearch = " "
Se rst.Fields ( " coluna 8 Digite o seguinte para liberar variáveis de memória :
rst.Close
dbs.Close
Pressione " F5" para executar sua rotina
< . br>
