(Resolvido) Filtrar Coluna do BD via ADO.

[Danleonhart]

Pessoal...

Nunca fiz script de consulta com filtros em BD's (Access neste caso), então, como faço para fazer uma busca no BD onde o resultado apresente por exemplo: todos os usuários cadastrados do "RJ"...

No meu BD há 5 colunas:

ID = Código de registro ( PrimaryKey);

Nome = nome dos usuários;

Cidade = Cidade onde mora;

UF = O estado onde mora;

Telefone = Fone de contato.

Então, como faço para fazer uma busca na coluna "UF", onde o resultado seja todos os usuários moradores no RJ.

Primeira vez que vou fazer isso pessoal... espero ter explicado de uma maneira clara...

Editado Dezembro 12, 2010 por Danleonhart

[Matheus-vb6]

Boa noite amigo, no seu código... faça com um repetidor... no caso do while.. vou fazer como se ele fosse listar numa lista

Set rsdados=as new adodb.recordset
rsdados.open "select * from TABELA",CONEXAO
Do while rsdados.eof=false
if rsdados("uf") = "RJ" then LIST1.additem rsdados("Nome")
rsdados.movenext
loop

O q ta em maiusculo é o q você tera q adaptar com o seu código...

Editado Dezembro 11, 2010 por Matheus-vb6

[kuroi]

igual no outro tópico, matheus, você pode usar a clausula where q simplifica as coisa pra vc: http://www.w3schools.com/sql/sql_where.asp

no caso, só precisaria disso:

sql = "Select * From tabela Where UF = 'RJ'"

ai o recordset já vem filtrado só com registro do RJ.

[Danleonhart]

Olá a todos !

Obrigado mais uma vez Kuroi & Matheus, como sempre vocês estão a tirar muitas das minhas dúvidas :rolleyes:

Meu projeto ficou do jeito que eu esperava... coloquei assim no Botão de Filtro (só exemplo, depois irei melhorar e ampliar):

Private Sub Filtrar_Click()
List1.Clear
EST = InputBox("Informe o Estado que deseja filtrar.")
If EST <> Empty Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "select * from table1 where UF= '" & EST & "'", con
Do While Not rs.EOF
List1.AddItem rs("Nome")
rs.MoveNext
Loop
End If
End Sub

Onde: "rs" é o RecordSet, "con" o objeto de conexão, "table1" a tabela em Access e "UF" a coluna em que realizei a busca.

Vejam o vídeo :

Video

agradeço a todos, e fica a dica para outros iniciantes ! :D

Editado Dezembro 12, 2010 por Danleonhart

[Matheus-vb6]

Vi o video e achei interessante, porém notei q você não tem atualizar não é?? Uma sugestão é que no gravar dados, quando o usuario faz a consulta, ele preencha os campos e um valor boleano, identifica se o botão gravar vai alterar ou salvar um novo :)

Abraços cara

Que programa você usa para gravar videos assim?

@off

Ó eu no seu bd o/

Editado Dezembro 15, 2010 por Matheus-vb6