Usuário com melhor resposta
textbox com auto complete no banco de dados access

Pergunta
-
gostaria que no textbox1 quando eu digitasse qualquer letra ele fosse sugerindo os nomes que tenho no banco de dados "Access"
--> tbm gostaria de saber o seguinte :
por exemplo o textbox sugeriu o nome "Ana" gostaria q ele pegasse todos os dados da linha da ANA no banco de dados , entao por exemplo o campo onde teria cpf receberia o cpf da ana etc..
vlw galera
AleSaggiorato
Respostas
-
Fiz um exemplo no meu blog de como usar o autocomplete, dá uma olhada:
http://www.maestrodotnet.com.br/?p=641
Bruno Ferreira de Souza
MSP - Microsoft Student Partner
MCTS .NET Framework - Windows Applications
MCPD .NET Framework - Windows Applications
MCC - Microsoft Community Contributor
www.maestrodotnet.com.br
@BrunoMaestro- Sugerido como Resposta Levi DomingosModerator sexta-feira, 1 de junho de 2012 14:39
- Marcado como Resposta Harley AraujoModerator sexta-feira, 1 de junho de 2012 16:19
-
- Sugerido como Resposta Levi DomingosModerator sexta-feira, 1 de junho de 2012 14:39
- Marcado como Resposta Harley AraujoModerator sexta-feira, 1 de junho de 2012 16:19
Todas as Respostas
-
Voce pode fazer o seguinte, na propriedade change do text em que voce ta digitando o nome voce cria um sql com um Like para buscar os nomes cadastrados(voce pode carregas num listbox), quando a pessoa clica nesse listbox entao voce busca os dados correspondente dela e preenche os campos. Ajudei? qualquer duvida me fale. abraço.
-
-
'matriz para carregar os dados Private Type Dados Nome As String Codigo As Integer End Type Private Mt() As Dados Private a As Integer Private Sub List1_Click() For a = 0 To UBound(Mt) If List1.Text = Mt(a).Nome Then sql = "select * from usuario where codigo=" & Mt(a).Codigo 'execute a sql 'carregue os campos tel.Text = tabela!tel bairro.Text = tabela!bairro Exit For End If Next End Sub Private Sub Text1_Change() 'aqui em cima voce vai abrir o banco de dados com sua SQL 'ex: sql = "SElect * from usuario where nome LIKE%" text1.text & "%'" 'tabela é sua recordset List1.Clear 'estou limpando a lista para carregar os nomes correspondentes Do Until tabela.EOF ReDim Preserve Mt(a) List1.AddItem (tabela!Nome) Mt(a).Nome = tabela!Nome Mt(a).Codigo = tabela!Codigo rs.movenext Loop End Sub
-
-
-
-
- Sugerido como Resposta Levi DomingosModerator sexta-feira, 1 de junho de 2012 14:39
- Marcado como Resposta Harley AraujoModerator sexta-feira, 1 de junho de 2012 16:19
-
Fiz um exemplo no meu blog de como usar o autocomplete, dá uma olhada:
http://www.maestrodotnet.com.br/?p=641
Bruno Ferreira de Souza
MSP - Microsoft Student Partner
MCTS .NET Framework - Windows Applications
MCPD .NET Framework - Windows Applications
MCC - Microsoft Community Contributor
www.maestrodotnet.com.br
@BrunoMaestro- Sugerido como Resposta Levi DomingosModerator sexta-feira, 1 de junho de 2012 14:39
- Marcado como Resposta Harley AraujoModerator sexta-feira, 1 de junho de 2012 16:19
-