Por favor me ajude. Dúvidas em SQL

Firebird

27/05/2003

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.


Ilson Sabino

Ilson Sabino

Curtidas 0

Respostas

Jycn

Jycn

27/05/2003

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


GOSTEI 0
Marcio.theis

Marcio.theis

27/05/2003

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


GOSTEI 0
POSTAR