Fórum Por favor me ajude. Dúvidas em SQL #36920
27/05/2003
0
Olá, pessoal
Sei que só tem fera neste Fórum, por isso preciso da ajuda de vocês.
Tenho num Form os componentes Query, DataSource DBGride. A Query está ligada numa tabela chamada [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b].
Preciso que quando for digitado o nome do cliente, apareça no DBGride somente os nomes com aquelas iniciais.
Exemplo: Na tabela [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b] tenho os seguintes nomes ( Ilson José,
Irineu Santos, Ivone Carneiro Matos, Alessandra Amorin,
Marcos Monteiro, Elvira da Graça, entre outros)
- Quando for digitado a letra I, preciso que apareça no
DBGride todos os nomes da tabela [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b].
Estou usando comandos do SQL
Agradeço a todos pela atenção,
Um abraço
Que Deus ilumine a todos.
Sei que só tem fera neste Fórum, por isso preciso da ajuda de vocês.
Tenho num Form os componentes Query, DataSource DBGride. A Query está ligada numa tabela chamada [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b].
Preciso que quando for digitado o nome do cliente, apareça no DBGride somente os nomes com aquelas iniciais.
Exemplo: Na tabela [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b] tenho os seguintes nomes ( Ilson José,
Irineu Santos, Ivone Carneiro Matos, Alessandra Amorin,
Marcos Monteiro, Elvira da Graça, entre outros)
- Quando for digitado a letra I, preciso que apareça no
DBGride todos os nomes da tabela [b:cbe1f59b3b]Cliente[/b:cbe1f59b3b].
Estou usando comandos do SQL
Agradeço a todos pela atenção,
Um abraço
Que Deus ilumine a todos.
Ilson Sabino
Curtir tópico
+ 0
Responder
Posts
27/05/2003
Jycn
Olá.
Veja se isso te serve.
Coloque este código no evento OnChange de um Edit ou MaskEdit.
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(´Select * FROM CAM0003 ´);
Query1.Sql.Add(´Where ´);
Query1.Sql.Add(´(Nome >=:Nome1)´);
Query1.Sql.Add(´Order by Nome´);
Query1.Params[0].AsString:=maskedit1.Text;
Query1.Open;
Jycn
Veja se isso te serve.
Coloque este código no evento OnChange de um Edit ou MaskEdit.
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(´Select * FROM CAM0003 ´);
Query1.Sql.Add(´Where ´);
Query1.Sql.Add(´(Nome >=:Nome1)´);
Query1.Sql.Add(´Order by Nome´);
Query1.Params[0].AsString:=maskedit1.Text;
Query1.Open;
Jycn
Responder
Gostei + 0
27/05/2003
Marcio.theis
Você pode fazer o seguinte:
Na sua query faça algo como isto:
Select * From CLIENTE
Where NMCLIENTE like :Descricao
Order by NMCLIENTE
e cologue um EDIT normal no form e no OnChange do edit coloque
if edtExpressao.Text = ´ ´ then
edtExpressao.Text:=´´
else
begin
qryProc.Close;
qryProc.ParamByName (´Descricao´).Value:=´¬´+edtExpressao.Text+´¬´
qryProc.Open;
ou você pode aplicar o mesmo código em um botão, fazendo com que ele chame esta query
Na sua query faça algo como isto:
Select * From CLIENTE
Where NMCLIENTE like :Descricao
Order by NMCLIENTE
e cologue um EDIT normal no form e no OnChange do edit coloque
if edtExpressao.Text = ´ ´ then
edtExpressao.Text:=´´
else
begin
qryProc.Close;
qryProc.ParamByName (´Descricao´).Value:=´¬´+edtExpressao.Text+´¬´
qryProc.Open;
ou você pode aplicar o mesmo código em um botão, fazendo com que ele chame esta query
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)