Pesquisa data grid

[Danielsh]

Pessoal, boa noite

estou fazendo uma pesquisa em uma txt_pesquisa e quero mostrar o resultado no datagrid mas não dá certo. Dá erro na linha do " Set.datasource=rs

Por favor alguém me ajuda.

Obrigado.

Segue o meu código.

Dim pesquisa As String

Dim rs As ADODB.Recordset

Set conex = New ADODB.Connection

conex.Open stringdeconexao

stringsql = " select * from Clientes where cli_telefone like "

pesquisa = txt_pesquisa.Text

stringsql = stringsql & "'%" & pesquisa & "%'"

Set rs = New ADODB.Recordset

rs.Open stringsql, conex, adOpenForwardOnly, adLockOptimistic

If rs.EOF Or rs.BOF Then

MsgBox ("Não foi encontrado nenhum registro, tente de novo"), vbInformation

Else

With DataGrid1

Set .DataSource = rs

.Refresh

End With

rs.Close

Set rs = Nothing

End If

[Danleonhart]

Olá !

Qual o erro que está apresentando ?

Analisando seu script vejo que você está usando o curinga nas extremidades da busca, e mais, em consulta a números de telefone...isso quer dizer que se o usuário digitar "7" por exemplo, não importa onde esteja o número 7, o número do telefone será apresentado.

EX:

8887-3589

9930-4575

9187-3569

É isso mesmo que você quer ???

Outro detalhe, utilize a tag "CODE" para colocar os script...fica melhor de entender o código... :rolleyes:

Editado Maio 25, 2012 por Danleonhart