ActiveDelphi

[amandalopss]

Estou fazendo um sistema de automação comercial, porem na parte de pesquisa de produtos e funcionários, no meu DBgrid aparece varias vezes o mesmo resultado (para ser exata 6 vezes).
Estou utilizando uma Query, DataSetProvider, ClientDataSet e DataSource.
Por favor ajudem...

[Batera]

Seja bem-vinda ao fórum.
Se possível, poste a instrução SQL que você está utilizando na Query.

[cyberdisk]

coloque o código da SQL da query
_________________
O conhecimento abre muitas portas

[amandalopss]

Codigo que esta no SQL do Query (sqlq_pesq_prod)
select * from PRODUTOS




Código do botão pesquisar

if (rg_pesquisa.ItemIndex=-1) then
begin
datamodule7.sqlq_pesq_prod.Close;
datamodule7.sqlcds_pesq_prod.close;
datamodule7.sqlq_pesq_prod.SQL.Clear;
datamodule7.sqlq_pesq_prod.sql.Add('select NOME_PROD,COD_PROD,UDMED_PROD,DATAVENC_PROD,CATEGORIA_PROD,MARCA_PROD,PRECOUN_PROD,QTD_PROD from FORNECEDOR_EMPRE,PRODUTOS');
datamodule7.sqlq_pesq_prod.SQL.add('where NOME_PROD=:dado');
datamodule7.sqlq_pesq_prod.ParamByName('dado').AsString:=edt_pesquisa.Text;
datamodule7.sqlq_pesq_prod.Open;
datamodule7.sqlcds_pesq_prod.Open;
end
else
if (rg_pesquisa.ItemIndex=0) then
begin
datamodule7.sqlq_pesq_prod.Close;
datamodule7.sqlcds_pesq_prod.close;
datamodule7.sqlq_pesq_prod.SQL.Clear;
datamodule7.sqlq_pesq_prod.sql.Add('select NOME_PROD,COD_PROD,UDMED_PROD,DATAVENC_PROD,CATEGORIA_PROD,MARCA_PROD,PRECOUN_PROD,QTD_PROD from FORNECEDOR_EMPRE,PRODUTOS');
datamodule7.sqlq_pesq_prod.SQL.add('where COD_PROD=:dado');
datamodule7.sqlq_pesq_prod.ParamByName('dado').AsInteger:=StrToInt(edt_pesquisa.Text);
datamodule7.sqlq_pesq_prod.Open;
datamodule7.sqlcds_pesq_prod.Open;
end;


Onde Rg_pesquisa é um RadioGrup

[Batera]

[amandalopss]

o fornecedor foi um erro meu mesmo, mas mesmo com essas alterações, continuou dando o mesmo problema...

[Batera]

Como sua SQL ficou agora?

[amandalopss]

select * from produtos
peço desculpas pois sou novata ainda em questão de programação em Delphi 7

[Batera]

Mesmo com a SQL

[amandalopss]

mesmo assim, ainda esta dando esse mesmo problema
estou usando Firebird 1.5

[Batera]

Entendi... bom, então provavelmente você está utilizando o IBExpert, certo?
Se você rodar essa SQL dentro do IBExpert, os registros também aparecem duplicados?

[amandalopss]

Criei um novo SQL Editor (F12) e colocou Select * from produtos lá, então executei (F9), o resultado foi normal, mostrou todos os produtos sem repetir nenhum... O Problema persiste.

[imex]

Bom dia,

amandalopss, só para confirmar, você também alterou o código do botão pesquisar para retirar a tabela FORNECEDOR_EMPRE da query?

[amandalopss]

Sim também alterei o código do botão de pesquisa... mesmo assim continuou dando esse mesmo problema

[imex]

Você pode postar a nova versão do código do botão de pesquisa?