Alterar consulta SQL em Execução

07/07/2004

0

E aí Galera...

Tenho uma consulta de produtos onde a propriedade SQL da Query está assim:
SELECT Codigo, Identificacao, Precovenda, Grupo, QtdeEstoque, Qtdeminima, Marca, Unidade, Precocusto, Margem, Grupo.Nomegrupo
FROM Produto, Grupo
WHERE Produto.grupo = Grupo.Codigo and
Produto.identificacao LIKE :Identificacao and
Grupo.NomeGrupo LIKE :NomeGrupo

Ao exibir o form adicionei ´Order by Identificacao´ para classificar pelo nome do produto inicialmente.
Ficou assim:
procedure TFrm_Tabpreco.FormShow(Sender: TObject);
begin
Edit1.Text:= ´´;
Edit2.Text:= ´´;
with Qry_Produtos do
begin
Close;
ParamByName(´Identificacao´).AsString := ´¬´ + Edit1.Text + ´¬´;
ParamByName(´NomeGrupo´).AsString := ´¬´ + Edit2.Text + ´¬´;
SQL.Add(´Order by Identificacao´);
Open;
end;
Edit1.SetFocus;
end;


Nesta consulta tenho duas caixas de texto para pesquisa de produtos pelo nome e pelo grupo.

O problema é o seguinte: Coloquei um RadioGroup com quatro opções de classificação ´Codigo, nome, grupo e marca´, gostaria de fazer como faço para trocar o ´Order by´ ao clicar nos itens do RadioGroup.

Preciso muito de uma ajuda!!!!


Tcharlos

Tcharlos

Responder

Posts

07/07/2004

Ce

colega,

neste caso sugiro vc fazer 4 selects de tal maneira que vc verifique primeiro o conteudo do radiogrup, caso ele for true ...

If RGa = true then
begin
....
select a,b,c,d from TABELA where a = ´+QuoteStr(Edit1.text)+´ order by a
end;

if RGb = true then
begin
....


Responder

08/07/2004

Sandra

tcharlos,

A resposta do Beppe não resolveu o seu problema?
http://delphiforum.icft.com.br/forum/viewtopic.php?p=146280#146280


Tópico em duplicidade! Utilize o link anterior para buscar uma solução para sua dúvida.
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.


Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar