Fórum Conversão de DBF para db #191870
31/10/2003
0
Caros Colegas ;
Fiz um sistema com banco de dados, e a extensão das tabelas usadas no meu programa é .dbf , só que quero converte-lás em .db, alguem sabe alguma rotina para essa conversão ? Ah.. E que os dados da tabelas .dbf se mantenham após a conversão para db .
Obrigado
Fiz um sistema com banco de dados, e a extensão das tabelas usadas no meu programa é .dbf , só que quero converte-lás em .db, alguem sabe alguma rotina para essa conversão ? Ah.. E que os dados da tabelas .dbf se mantenham após a conversão para db .
Obrigado
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
31/10/2003
Bacalhau
var tableDBF, TableParadox : TTable;
tableDBF := TTable.create(TableDBF);
tableParadox := TTable.create(TableParadox);
tableDBF.tabletype := ttDBase;
tableParadox.tabletype := ttParadox;
tableDBF.tablename := <local onde está o dbf>
tableParadox.tablename := <local onde está o db>
TableDBF.open;
TableParadox.open;
TableDBF.first;
while not tableDBF.eof do
begin
tableParadoxAppend;
tableParadox.edit;
tableParadox.fieldbyname(<nome do campo de destino>).asstring :=
tableDBF.fieldbyname(<nome do campo de origem>).asstring;
// aqui o resto dos campos
tableParadox.Post;
tableDBF.next;
end;
TableDBF.close;
TableParadox.close;
TableDBF.free;
TableParadox.free;
Isto fica muito mais facil se usares o Form Wizard do Delphi. E ATENÇÃO: FAZER BACKUPS ANTES DA OPERAÇÃO!!
abraço
bacalhau
tableDBF := TTable.create(TableDBF);
tableParadox := TTable.create(TableParadox);
tableDBF.tabletype := ttDBase;
tableParadox.tabletype := ttParadox;
tableDBF.tablename := <local onde está o dbf>
tableParadox.tablename := <local onde está o db>
TableDBF.open;
TableParadox.open;
TableDBF.first;
while not tableDBF.eof do
begin
tableParadoxAppend;
tableParadox.edit;
tableParadox.fieldbyname(<nome do campo de destino>).asstring :=
tableDBF.fieldbyname(<nome do campo de origem>).asstring;
// aqui o resto dos campos
tableParadox.Post;
tableDBF.next;
end;
TableDBF.close;
TableParadox.close;
TableDBF.free;
TableParadox.free;
Isto fica muito mais facil se usares o Form Wizard do Delphi. E ATENÇÃO: FAZER BACKUPS ANTES DA OPERAÇÃO!!
abraço
bacalhau
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)