Fórum Exportar dados que não contenham na tabela de destino #229742

//Inicia Cópia. DMConsultas.Exportacao.First; While Not DMConsultas.Exportacao.Eof Do Begin With DMConsultas.ConsDados Do Begin Close; SQL.Clear; SQL.Add(´SELECT * FROM TB_Dados´); SQL.Add(´WHERE Matricula=:P1´); ParamByName(´P1´).Value:=DMConsultas.ExportacaoMatricula.Text; Open; End; If (DMConsultas.ConsDados.RecordCount = 0) Then Begin DMDados.TBDados.Append; For I:=0 To DMConsultas.Exportacao.FieldCount - 1 Do DMDados.TBDados.FieldByName(DMConsultas.Exportacao.Fields[I].FieldName).Value:=DMConsultas.Exportacao.Fields[I].Value; DMDados.TBDados.Post; DMConsultas.Exportacao.Next End Else If (DMConsultas.ConsDados.RecordCount > 0) Then Begin DMConsultas.Exportacao.Next; End; End; //Finaliza cópia. DMConsultas.Exportacao.First; DMDados.TBDados.Active:=False; DMDados.TBDados.Active:=True; Label4.Caption:=FormatFloat(´#,000´, DMConsultas.Exportacao.RecordCount) + ´ Registros´; Label5.Caption:=FormatFloat(´,000´, DMDados.TBDados.RecordCount) + ´ Registros´;