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!!!!
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
Curtir tópico
+ 0
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
....
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.
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
Clique aqui para fazer login e interagir na Comunidade :)