|
|
Postada em 06/12/2005 17:58 hs
Ola pessoal... queria saber como que realizo uma busca em 1 MBD acesses.... tipo... eu digito Gabriel nun txt e ele vai buscar ond tem Gabriel no MDB no campo NOME da tabela Contatos... gente pelo amor de deus eu to a 1 ano atras disso e nao consigo me ajudem pelo amor de deus!
|
|
|
|
|
|
|
|
Postada em 06/12/2005 18:06 hs
gabriel é so fazer uma consulta asssim. rs.open "select * from contatos where contatos.nome = " & txtNome.text, conexao if not rs.eof then msgbox "achei o " & txtNome.text else msgbox "nao achei o " txtNome.text endif |
|
|
|
|
|
Postada em 06/12/2005 21:09 hs
Gabriel se você utiliza ADO o exemplo que o Alexandre lhe passou resolve seu caso, mas se você utiliza DAO teria que ser outro procedimento, tente dar uma pesquisada melhor no site do macoratti www.macoratti.net, eu creio que lá você irá sanar suas dúvidas.
T+
João Carlos Junior Administrador de Redes - Windows 2003 Srv, Linux Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X Iniciante em C# e ASP .NET
|
|
|
|
|
|
Postada em 09/12/2005 19:26 hs
Ae galra... alguem poderia me manda um exemplo de busca em mdb... eu nao consigo... nao sei pq nao entendo... me mandem um projeto VB de busca em MDB... mais manden completo por favor!
|
|
|
|
|
|
Postada em 09/12/2005 20:22 hs
Gabriel, usei assim ve se tá no seu jeito. voce vai digitando e os dados do funcionário vão aparecendo nos text´s. Ou informe melhor como voce está programando. Private Sub txt_nome_Change()
Me.MousePointer = 11
Nome = txt_nome
MySql = "Select * from tbl_cadastro where nome_func like '%" & Nome & "%'"
With conexao
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseServer
.Open MySql, conn
If !nome_compl <> "" Then txtFields(0) = !nome_compl Else txtFields(0) = ""
If !endereco <> "" Then txtFields(1) = !endereco Else txtFields(1) = ""
If !nr_resid <> "" Then txtFields(2) = !nr_resid Else txtFields(2) = ""
If !bairro <> "" Then txtFields(3) = !bairro Else txtFields(3) = ""
If !cidade <> "" Then txtFields(4) = !cidade Else txtFields(4) = ""
If !estado <> "" Then txtFields(5) = !estado Else txtFields(5) = ""
If !complemento <> "" Then txtFields(6) = !complemento Else txtFields(6) = ""
If !cep <> "" Then txtFields(7) = !cep Else txtFields(7) = ""
If !fone_resid <> "" Then txtFields(8) = !fone_resid Else txtFields(8) = ""
If !fone_celular <> "" Then txtFields(9) = !fone_celular Else txtFields(9) = ""
.Close
Me.MousePointer = 0
End With
Exit Sub
End Sub
|
|
|
|
