Fórum Problema com consulta Query !!!! #329386
14/09/2006
0
Boa Tarde a todos.
Meu problema e o seguinte.
Tenho um modulo de dados com um data set, uma tabela e uma query.
Tenho um botão consulta que e o seguinte codigo:
Modulo Dados.Query1.close;
Modulo Dados.Query1.SQL.Clear;
Modulo Dados.Query1.SQL.Add(´Select from TabClientes where nome like ´´+´´¬´´Edit1.text´´+´´¬´´);{é +/- isso!}
Modulo Dados.Query1.OPen;
Quando eu clicar no botão localizar ele tinha que me retornar o complemento do campo.
Se eu digitar Dev, ele tinha que me retornar o nome inteiro(Devmedia.com.br).
Tem que buscar todos os nomes que tenha ´dev´na palavra.
Mas quando eu dou localizar ele só me retorna o primeiro registro.
Os registros são exibidos em um DBEdit.
Minha tabela e Paradox.
Será que deu para entender????
Meu problema e o seguinte.
Tenho um modulo de dados com um data set, uma tabela e uma query.
Tenho um botão consulta que e o seguinte codigo:
Modulo Dados.Query1.close;
Modulo Dados.Query1.SQL.Clear;
Modulo Dados.Query1.SQL.Add(´Select from TabClientes where nome like ´´+´´¬´´Edit1.text´´+´´¬´´);{é +/- isso!}
Modulo Dados.Query1.OPen;
Quando eu clicar no botão localizar ele tinha que me retornar o complemento do campo.
Se eu digitar Dev, ele tinha que me retornar o nome inteiro(Devmedia.com.br).
Tem que buscar todos os nomes que tenha ´dev´na palavra.
Mas quando eu dou localizar ele só me retorna o primeiro registro.
Os registros são exibidos em um DBEdit.
Minha tabela e Paradox.
Será que deu para entender????
Marcelo_j.
Curtir tópico
+ 0
Responder
Posts
14/09/2006
Joaoshi
Colega, se entendi direito vc deveria mostrar o resultado da consulta em um [b:d066babef2]DBGRID[/b:d066babef2] não no [b:d066babef2]DBEDIT[/b:d066babef2] como vc informou.
Ligar a query no datasource -> dbgrid.
Espero ter ajudado.
Ligar a query no datasource -> dbgrid.
Espero ter ajudado.
Responder
Gostei + 0
14/09/2006
Marco Salles
no paradox use parametro que é mais fácil
se eu não errei nada cai igual a uma luva
Modulo Dados.Query1.close;
Modulo Dados.Query1.SQL.Clear;
Modulo Dados.Query1.SQL.Add(´Select nome , Outros Campos from TabClientes´);
Modulo Dados.Query1.SQL.Add(´where (Upper(nome) like :pNome´);
Modulo Dados.Query1.ParamByName(´pNome´).AsString:=AnsiUpperCase(Edit1.Text)+´¬´;
Modulo Dados.Query1.(´Order By Nome,Outros Campos´);
Modulo Dados.Query1.OPen;
se eu não errei nada cai igual a uma luva
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)