Fórum Transportar dados de uma tabela de um banco para outro p/cód #346498

procedure TForm1.Button1Click(Sender: TObject); begin [color=red:b14a048d31]destino.disablecontrols; destino.First; while (not destino.Eof) do begin //caso tenha algum campo na tabela destino que não bate com a tabela origem //então é deletado para não ficar diferente uma da outra //if Destino.Locate(´dtlancamento; dscomplum; cdreduzida´, VarArrayof([origemmespgto.Value, origemhistorico.Value, origemconta.Value]), []) then if origem.Locate(´mespgto; historico; conta´, VarArrayof([destinodtlancamento.Value, destinodscomplum.Value, destinocdreduzida.Value]), []) then begin destino.Next; end else begin destino.delete; end; destino.Next; end; destino.EnableControls;[/color:b14a048d31] [color=darkblue:b14a048d31] //--agora começa a fazer uma varredura atualizando a tabela destino cfe //--os dados da tabela origem origem.disablecontrols; origem.First; while (not origem.Eof) do begin {Gravando da tabela origem para tabela destino} if Destino.Locate(´dtlancamento; dscomplum; cdreduzida´, VarArrayof([origemmespgto.Value, origemhistorico.Value, origemconta.Value]), []) then begin destino.Next; //se tiver gravado na tabela destino passa pra frente end else begin destino.append; //se não grava na tabela destino {passa para tabela destino dos dados da tabela origem} destinodtLancamento.value:=origemmespgto.value; destinocdSindicato.Value:=46; destinovlpagamento.value:=origempagamento.value; destinovlrecebimento.value:=origemrecebimento.value; destinonranomes.value:=strtoint(convert(origemreferentemesano.value));//converte mm/aaaa para aaaamm destinocdreduzida.value:=strtoint(origemconta.value); destinonrlancamento.value:=Prox; destinocdHistorico.value:=origemcdhistorico.value; destinodsComplUm.Value:=origemhistorico.value; destino.post; //gravando na tabela destino end; origem.Next; end; origem.EnableControls; end;[/color:b14a048d31]

begin
  with qorigem do
  begin
    close;
    sql.clear;
    sql.add(´select * from fluxocaixa O where not exists(select * from lancamento D where D.dtlancamento = O.mespgto ´
           +´and D.cdreduzida = O.conta and D.dsComplUm = O.Historico)´);
    open;
  end;

var
  sql, texto: string;
begin
  sql := ´select * from LANCAMENTO ´;

  //--CHAMANDO A QUERY DO ADO (DEPOIS QUE CHAMO FAÇO A COMPARAÇÃO DAS TABELAS)
  QDESTINO.Close;
  QDESTINO.SQL.Clear;
  QDESTINO.SQL.Add(sql);
  QDESTINO.Open;

  with qorigem do
  begin
    close;
    sql.clear;
    sql.add(´select * from FLUXOCAIXA O where not exists((sql) D where D.dtlancamento = O.mespgto ´
           +´and D.cdreduzida = O.conta and D.dsComplUm = O.Historico)´);
    open;
  end;