Table - criando tabelas

Top  Previous  Next

-Use uma TTable (tbOrigem) ligada à tabela (Paradox, DBase) 

na qual será exportada para o arquivo Texto, e outra TTable 

(tbDestino) com o Path (DatabaseName)  & Nome do arquivo 

Texto que será criado, também  mude a propriedade "TableType" 

para <ttASCII>. Deixe as TTables fechadas.

 

-Insira um TBatchMove e mude as propriedades "Destination" 

para (tbDestino) e "Source" para (tbOrigem). Informe o modo 

da operação, mudando a propriedade "Mode" para <batCopy>, 

ou seja, será efetuado um cópia, não sendo necessário a 

existencia da tabela (tbDestino).

 

-Pronto, para efetuar a exportação, chame o Método 

"Execute" do BatchMove.

 

Obs.: Serão criados 2 arquivos, um arquivo texto (.txt) 

e outro arquivo (.SCH)  que contém as informações da 

estrutura do arquivo como nome dos campos, tamanho, tipo, 

coluna inicial no arquivo texto, ...