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 :)