Conversão de DBF para db

Delphi

31/10/2003

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


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Bacalhau

Bacalhau

31/10/2003

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


GOSTEI 0
POSTAR