Fórum Consulta em uma Tabela. #166742
27/06/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
27/06/2003
Bilouro
Grande cade o resto? Tem begin se end... To entendendo não...
Responder
Gostei + 0
27/06/2003
Netosdr
Eu não entendi este tanto de Next..
Explique melhor..
--
[]´s
NETOSDR
Sebastião B. Neto
Explique melhor..
--
[]´s
NETOSDR
Sebastião B. Neto
Responder
Gostei + 0
27/06/2003
Bilouro
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)