datagrid retorna registro vazio

[Lydia 0]

meu problema eh o seguinte..estou tentando criar um form para uma agenda eletrônica onde, todos os campos da tabela "contatos" são exibidos em uma datagrid.

Tem tbm um botão de pesquisa e uma datacombo onde eh possível filtrar os registros por cidade.

o comando SQL que eu tô usando eh o seguinte:

 

SELECT * FROM TBLCONTATO  where nome like?

e a programação no evento click do botão pesquisar:

Private Sub btn_pesquisar_Click()
 If DataCombo1.Text <> "" Then	' filtrar por nome


   If DataSige.rssql_agenda.State = 1 Then
	DataSige.rssql_agenda.Close
   End If

   DataSige.sql_agenda DataCombo1.BoundText
	 MsgBox sql_agenda
	 DataGrid1.DataMember = "sql_agenda"
	 Set DataGrid1.DataSource = DataSige
	End If

End Sub

 

O Problema eh:

Quando executo o programa, seleciono a cidade

e clico em pesquisar, a data grid estah me retornando um registro fazio...aparecem os campos da tabela todos em branco..

se alguém puder me dar uma dica aew..

aguardo

[Edwilson Curti 0]

tenta assim:

 

SELECT * FROM TBLCONTATO where nome = DataCombo1.Text

 

Acredito que vai funcionar....

[Lydia 0]

vlw..mas nem deu certo..

ainda retorna vazio

[Marcos A Sanches 0]

Pelo o que eu entendi você quer fazer uma pesquisa aproximada? conforme o usuario vai digitando o palavra o sql vai localizando os registros que batem com a pesquisa? ou você quer um sql direto que capture 1 unico registro?

 

Pesquisa Aproximada

select * from Tblcontato where nome LIKE '" & datacombo1.text & "%'"

Pesquisa Direta

Select * from tblcontato where nome  = '" & datacombo1.texte & "'"

Achu que isso deve resolver o seu problema

 

Abraços Natalinos http://forum.imasters.com.br/public/style_emoticons/default/natal_happy.gif

[Lydia 0]

na vdd eh tpw..filtar os dados da tabela numa data grid a partir das datacombos "nome" , "cidades" e "grupo"...

vou tentando aki..

 

*Detalhe: eu tô inserirndo os camandos SQL através do DataEnviroment..

 

 

 

[edit]....

..hun..agora deu certo..troquei o "boundtext" da datacombo por "text"..agora foi ^^

vlw pela ajuda pssoal..

abraços

[Lydia 0]

tah..

... e se ao invéz de usar DataGrid eu quizer jogar o resultado nas TextBox..como eu faço??

[Marcos A Sanches 0]

ola você quer selecionar os dados que você quer na grid e joga-los no text box? ou você quer jogar direto do Sql para as text box?

[Lydia 0]

direto do sql para as text..

[Marcos A Sanches 0]

Se eu não estiver enganado e assim

 

Dim rs_Cli As New ADODB.Recordset

 

set rs_Cli = banco.conexao.execute(Aqui você joga o seu sql)

 

textbox1.text = rscli!nome-do-campo

 

 

 

 

espero ter ajudado

 

Abraços natalinos http://forum.imasters.com.br/public/style_emoticons/default/natal_happy.gif

[Lydia 0]

ah tah..

agora sim..rs

vlw hein!!

abraços