Fórum Importar dados de uma tabela DBF para o uma tabela Interbase #283395

Olá Misael,

Utilizei desta forma e deu tudo certo:

Primeiro voçê cria uma alias do Tipo Paradox para o arquivo DBF...e em seguida um alias do tipo Interbase que é para onde será migrado os dados.


Legendas:

TabelaDBF = Query do DBF;
Sql = ´Select * from [Nome da Tabela] ´

TabelaGDB = Query do Interbase;
Sql = ´Select * from [Nome da Tabela] ´




-------- Simulação do código ----------------------

{ Abre a Tabela e posiciona no Primeiro Registro}
TabelaDBF.Active := False;
TabelaDBF.Active := True;
TabelaDBF.First;


{Enquanto Não é Final de Registro da tabela DBF...}
while not TabelaDBF.Eof do
begin

{Habilita a TavelaGDB para inserção.}

if not TabelaGDB.Active then
TabelaGDB.Active := True;

{Abre um registro em branco.}
TabelaGDB.Append;

{Adiciona os valores aos campos.}
TabelaGDBNome.AsString := TabelaDBFNome.AsString;
TabelaGDBFone.AsString := TabelaDBFFone.AsString;

{ Grava na BASE .}
TabelaGDB.Post;

{Dentro do Laço Chama Próximo Registro da Tabela Dbf}
TabelaDBF.Next;

end;


Espero que ajude, qualquer dúvida poste uma mensagem outra vez.

Misael,

Esquecí de um detalhe muito importante:
Ao concluir a migração verifique se todos os registros foram migrados,
voçê poderá acrescentar um contador no código acima ou executar um SQL nas duas bases a que importou e a que exportou os dados.

SELECT count(*) [Nome da tabela]

Use o IBDataPump [url]http://www.clevercomponents.com/[/url]