Registros aparecendo duplicado na grid
19/05/2017
0
Estou tentando fazer um programinha de migração de dados e quando abre uma determinada tabela os registros aparecem duplicados.
O que pode ser?
Já tentei apagar e não vai no banco está tudo certinho não tem registos duplicados só aparece no sistema
Eduardo Silva
Posts
19/05/2017
Roberto Wutke
Bons códigos!
19/05/2017
Paulo Costa
19/05/2017
Eduardo Silva
procedure TForm1.T03AdvParteContraria;
begin
lblTabelas.Caption := 'Abrido a Tabela de: '+DMNovoBanco.FDTable03.TableName;
lblTabelas.Repaint;
DMAutosad.FDTable03.Open;
DMNovoBanco.FDTable03.Open;
lblTabelas.Caption := 'Tabela de: '+DMNovoBanco.FDTable03.TableName+' Aberta.';
lblTabelas.Repaint;
lblCopiandoConteudo.Visible := True;
lblCopiandoConteudo.Repaint;
DMAutosad.FDTable03.First;
DMNovoBanco.FDTable03.First;
while not DMAutosad.FDTable03.Eof do
begin
DMNovoBanco.FDTable03.Append;
DMNovoBanco.FDTable03NOME_ADVOGADO.AsString := DBEdit42.Text;
DMNovoBanco.FDTable03ATIVO.AsString := DBEdit43.Text;
DMNovoBanco.FDTable03.Post;
DMAutosad.FDTable03.Next;
end;
DMAutosad.FDTable03.Close;
DMNovoBanco.FDTable03.Close;
end;
A tabela tem 722 registros
basicamente eu garvo o Nome do Advogado e se ele esta ativo no escritório.
Campos da tabela
Nome_ADV Varchar (35)
Ativo Varchar (1)
não pego os registros de uma Query ou coloco em CDS e própria tabela no dbGrid
22/05/2017
Roberto Wutke
22/05/2017
Raimundo Pereira
DMAutosad.open; DMAutosad.fetchall; DMAutosad.first; if not DMAutosad.FDTable03.Eof then repeat DMNovoBanco.FDTable03.insert; DMNovoBanco.FDTable03NOME_ADVOGADO.AsString := DBEdit42.Text; DMNovoBanco.FDTable03ATIVO.AsString := DBEdit43.Text; DMNovoBanco.FDTable03.Post; DMAutosad.FDTable03.Next; until DMAutosad.FDTable03.Eof; end; DMNovoBanco.close; DMNovoBanco.open;
23/05/2017
Eduardo Silva
DMAutosad.open; DMAutosad.fetchall; DMAutosad.first; if not DMAutosad.FDTable03.Eof then repeat DMNovoBanco.FDTable03.insert; DMNovoBanco.FDTable03NOME_ADVOGADO.AsString := DBEdit42.Text; DMNovoBanco.FDTable03ATIVO.AsString := DBEdit43.Text; DMNovoBanco.FDTable03.Post; DMAutosad.FDTable03.Next; until DMAutosad.FDTable03.Eof; end; DMNovoBanco.close; DMNovoBanco.open;
com esse comando apresta o erro
---------------------------
Debugger Exception Notification
---------------------------
Project MigracaoBanco.exe raised exception class EFDException with message '[FireDAC][Comp][Clnt]-303. Capability is not supported'.
---------------------------
Break Continue Help
---------------------------
23/05/2017
Eduardo Silva
Como eu falei não tem Sql...Foto
Clique aqui para fazer login e interagir na Comunidade :)
