Alguém poderia me ajudar com alguma procedure simples de pesquisa. Eu tenho um text, aonde eu declaro o nome do cliente, um botton que ativa a busca, mostrando na DataGrid o registro com o nome solicitado. Tem como???

 

Grato...!

Bom, vc pode fazer assim

Dim rs as adodb.recordset

 

....

rs.filter = "Nome like '" & textbox.text & "%'"

 

Sendo q seu datagrid estã conectado a este recordset... vc pega o conteúdo do q o usuário digitou no textbox e joga para o filtro... e sua grid fica com o filtro da consulta....

 

seria isso q vc quer??

'coloque no evento click e abra seu recordset com esse select

rs.open cnx,"select * from cliente where nome like '" & txtNome.text & "%'"

Pois é, parece que hoje muita gente é contra os controles acoplados, mas veja que tipo de pesquisa eu uso, em um Text, cada tecla que o usuario digita vai rolando a pesquisa e localizando o registro, se quiser adapte ao seu sistema, este é com DAO e DbGrid.

Coloque um Text com o Nome txtPESQUISA

Coloque um controle Data com o nome que quiser.

No evento Form_Load

Nomeie uma variavel

 

Dim sSQL As String

Private Sub Form_Load

 CONTROLEDATA.DataBaseName = SEUBD

 PROCURA 

End Sub

No evento KeyUp do text

 

Private Sub Text_KeyUp(TK As Integer, Shift As Integer)

 PROCURA

End Sub

 

Função PROCURA

 

Private Function PROCURA

 If Len(Trim(text)) > 0 Then

   sSQL = "SELECT * FROM TABELA WHERE NOME>='" & text & "'"

 Else

   sSQL = "SELECT * FROM TABELA ORDER BY NOME"

 End If

 CONTROLEDATA.RecordSource = sSQL

 CONTROLEDATA.Refresh

 DbGrid.Refresh

End Function

 

Teste voce verá que a medida que for digitando o DbGrid vai rolando e procurando o nome que deseja.

 

vlu// 

 

sSQL = "SELECT * FROM TABELA WHERE NOME>='" & textPESQUISA & "'"

 

Ou o nome que for, na função ficou com o nome errado.

 

vlu//

tudo bem, mas, nao entendi o que vc quis dizer, funcionou o exemplo?