Importar dados de uma tabela DBF para o uma tabela Interbase
Boa Noite
Tenho uma tabela DBF com 1600 registros e estou precisando importar esses registros para um tabela Interbase.
Exemplo: nessa tabela DBF eu tenho o campo Nome e Telefone e na minha tabela Interbase também tenho o campo Nome e Telefone
estou precisando de um exemplo de como codificar essa importação de registro no minimo detalhes entre essas tabelas, se possivel passar o código com esse exemplo (INSERT)
Tenho uma tabela DBF com 1600 registros e estou precisando importar esses registros para um tabela Interbase.
Exemplo: nessa tabela DBF eu tenho o campo Nome e Telefone e na minha tabela Interbase também tenho o campo Nome e Telefone
estou precisando de um exemplo de como codificar essa importação de registro no minimo detalhes entre essas tabelas, se possivel passar o código com esse exemplo (INSERT)
Misael
Curtidas 0
Respostas
Mmbarros
30/05/2005
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.
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.
GOSTEI 0
Mmbarros
30/05/2005
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]
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]
GOSTEI 0
Gandalf.nho
30/05/2005
Use o IBDataPump [url]http://www.clevercomponents.com/[/url]
GOSTEI 0