Buscar

Tranferencia entre tabelas

Código

//Confirmando se existe a tabela
  //Caso não exista devemos criar utilizando CreateTable
if not Banco.TabelaOrigem.Exists then
    Banco.TabelaOrigem.CreateTable;
 //Devemos abrir todas as tabelas envolvidas no processo
TabelaOrigem.open;
TabelaDestino.open;
 try
    //Informando o numero de registro Utilizamos RecordCount
    //RecordCout retorna um número Inteiro
    //Se possuimos um ou mais registro devemos iniciar a trasferencia
    if Banco.TabelaOrigem.RecordCount > 0 then
    begin
      //Aplicanto um While no Banco.TabelaOrigem. EOF se for fim de arquivo
      while not Banco.TabelaOrigem.EOF do
      begin
        //Verificando se exite o nome na TabelaDestino
        if not Banco.TabelaDestino.Locate('Rota', Banco.TabelaOrigem.FieldByName('Arquivo').asString, []) then
        begin
          //Caso não exista devemos inserir em TabelaDestino o registro que
          //vem do TabelaOrigem
            Banco.TabelaDestino.Insert;
        end else
        begin
          //Caso já exista vamos modificar

          Banco.TabelaDestino.Edit;
        End;

        Banco.TabelaDestino.FieldByName('Arquivo').asString := Banco.TabelaOrigem.FieldByname('Arquivo').asString ;

        //Temos que enviar, para isso vamos utilizar o Post
        Banco.TabelaDestino.Post;
        //Avançar um Registro com o Next
     
     Banco.TabelaOrigem.Next;
      End;
      //Fehando todas as tabelas
      TabelaOrigem.Close;
      TabelaDestino.Close;
    end;
  finally


  end;


   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 05/06/09
Por: Nilton Cleverson De Oliveira
Visualizada: 3053 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009