Fazer uma Consulta em Access com VB

[Miguel_jmf 0]

Pessoal,

Caso fosse possível gostava que me ajudassem;

Estou a fazer um BD em Access, pretendia fazer uma pesquisa, em que digito o nome da pessoa que pretendo pesquisar, numa caixa de texto. Após o clic no botão PESQUISAR, procura numa determinada tabela num determinado campo se existe ou não esse nome na tabela, se existe aparece esse registo num determinado formulário.

Exemplo:

Pesquisa = Miguel

 

Resultado = (se existiram deverão aparecer todos os Miguel)

Miguel Matos

Miguel Mendes

Miguel Ferreira

 

Parece básico, mas com estou a começar a utilizar o Visual Basic, não estou a conseguir, caso me possam mostrar qual o código para esta tarefa, agradecia-vos Muito.

 

Cumprimentos a todos

Mt obrigado

Miguel Ferreira

[Anderson Roberto 0]

Dá uma vasculhada nesse site.

[Marcio Soares 0]

Miguel, segue um exemplo abaixo:

 

Neste exemplo uso a condição like, se você digitar a palavra MIGUEL na caixa de texto, ira retornar todos os registros do banco que contenha MIGUEL.

 

CODE

Set Area = DBEngine.CreateWorkspace("NewWorkspace", "Admin", "")

Set Banco = Area.OpenDatabase(App.Path + "\banco.mdb", False, False)

 

Dim StrSql As String

Dim Rs As Recordset

 

StrSql = "SELECT * FROM Principal WHERE [usuario] LIKE '" & txtNome.Text & "*'"

Set Rs = Banco.OpenRecordset(StrSql)

Set Data.Recordset = Rs

 

O recordset você exibe num dbgrid.

[Miguel_jmf 0]

Antes de mais mt obrigado pela atenção, caso fosse possível gostaria que me esclarecesse umas questões;

Antes de mais, a base dados que fiz em Access:

 Nome da base dados em Access chama-se = BD_PAIA;

 Tabela onde estão os dados que pretendo pesquisar = tabgeral

 Campo da tabela onde pesquisar o nome = tecnico

 Nome do formulário que contem o botão pesquisar = formpesquisar

• Nome do botão pesquisar = cmdpesquisa

• Nome da caixa texto onde insiro o que pretendo pesquisar = txt1

 

 Nome do formulário em que pretendo exibir com os resultados da pesquisa = formresultado

 

 

'Set Area = DBEngine.CreateWorkspace("NewWorkspace", "Admin", "")

'Set BD_PAIA = Area.OpenDatabase(App.Path + "\BD_PAIA.mdb", False, False)

 

Dim StrSql As String

Dim Res As Recordset

 

StrSql = "SELECT * tabgeral WHERE [tecnico] LIKE '" & txt1.Text & "*'"

Set Res = BD_PAIA.OpenRecordset(StrSql)

Set Data.Recordset = Res

 

Uma vez que já tenho a Base Dados aberta, penso que a 1ª parte(a que coloquei em comentário) do código não é necessário? Ou estou errado?

De seguida ajustei a outra parte do código com os nomes correctos e coloquei esse mesmo código nas propriedades do botão da pesquisa (cmdpesquisa) em “Ao receber o foco”.

No entanto não dá?!

O que lhe pergunto é o que está errado?!

E mais uma vez lhe agradeço toda a sua atenção,

Cumprimentos,

M. Ferreira

[Marcio Soares 0]

Ola Miguel,

 

Coloque o codigo para abrir o banco de dados no evento LOAD do formulario, isto é, asism que o formulario é carregado o baco sera aberto.

 

Agora o codigo para realizar a pesquisa você deve inserir no evento ON_CLICK do botão e não no evento em que o botão ira receber o foco.

 

Abração