Consulta em uma Tabela.

Delphi

27/06/2003

Boa Tarde para todos, tenho uma pequena dúvida que esta me matando, tenho uma tabela e acho que a mesma esta com alguns campos repetidos, estou tentando fazer uma consulta mas acho que o mesmo não esta funcionando pois acho que esta entrando em LOOP e gostaria de uma força.

Estou colocando a seguinte linha de comando.

cod := dbedit1.Text;
while not table1.Eof do
table1.Next;
memo1.Lines.Add(cod);
if table1.Locate(´cdmrc´,cod,[]) then
begin
table1.Next;
if cod = dbedit1.Text then
label1.Visible := true;
label1.Caption := ´DUPLICADA ENCONTRADA´;

Gostaria de saber aonde estou errando para consertar logo e poder voltar a trabalhar normalmente.


Rscrj

Rscrj

Curtidas 0

Respostas

Bilouro

Bilouro

27/06/2003

Grande cade o resto? Tem begin se end... To entendendo não...


GOSTEI 0
Netosdr

Netosdr

27/06/2003

Eu não entendi este tanto de Next..
Explique melhor..
--
[]´s
NETOSDR
Sebastião B. Neto


GOSTEI 0
Bilouro

Bilouro

27/06/2003

SEGUINTE: ESSA QUERY RETORNARÁ TODOS OS CODIGOS DUPLICADOS (+ 1)

SELECT T.COD, T.QTD
  FROM (
        SELECT COD, COUNT(COD) QTD
          FROM TABELA_X
      GROUP BY COD
       ) T
  WHERE T.QTD > 1



GOSTEI 0
POSTAR