Exportar DB para um *.txt

Ai Vai!

Vc deve Primeiro abrir o Banco de Dados. Tem vários lugares que explica isso e portanto vou pular essa parte.

Depois do Banco de Dados aberto vc deve definir um Loop com a tabela em questão, Abrir um Arquivo *.Txt e Gravar

Colocando Pingo Nos iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiis

type TipoAcesso

Campo1 as string * Letras_A_Ser Usado

Campo2 as string * Letras_A_Ser Usado

Campo... as string * Letras_A_Ser Usado

End Type

dim Gravando as TipoAcesso

Open "nomedoarquivo.txt" For Input As arq# Len = TipoAcesso

dim i as integer

for i = Record.RecordCount

Gravando.Campo1 =Record.Fields(1)

Gravando.Campo2 =Record.Fields(2)

Gravando.Campo... =Record.Fields(...)

Put i, arq#, Gravando

next i

Espero que Isso Ajude.

Ps não testei pois estou trabalhando e não tenho tempo agora mas se tiver problema comunique-me.

Valeu