ajuda com case!!!

Delphi

25/09/2005

Ola amigos, preciso usar case no seguinte momento:

tenho 1 combobox com items (CODIGO,CPF,NOME) e quero usar a busca sql se for codigo, se for cpf ou nome, usando o case seria interessante? pois n quero escrever (if combo.text =´codigo´) ablabla com todos.. como seria o codigo usando case?

um abraço


Njuniorba

Njuniorba

Curtidas 0

Respostas

Mssilva

Mssilva

25/09/2005

Colega fica + ou - assim:

case ComboBox.itemindex of

0:campo_busca:= o comando Sql
1:campo_busca:= o comando Sql
2:campo_busca:= o comando Sql

end;
Qualquer dúvida post aqui.


GOSTEI 0
Njuniorba

Njuniorba

25/09/2005

[quote=´mssilva´]Colega fica + ou - assim:

case ComboBox.itemindex of

0:campo_busca:= o comando Sql
1:campo_busca:= o comando Sql
2:campo_busca:= o comando Sql

end;
Qualquer dúvida post aqui.


kero fazer essa busca:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Format(´select id_nome,nome from nomes where id_nome like ¬s´, [QuotedStr(edit1.Text + ´¬´)]));
Query1.Open;

se for codigo, faz acima, se for nome where nome like baablaba


GOSTEI 0
POSTAR