Espaçamento ";"

[pteixeira 0]

Oi pessoal a questão é muito urgente.

 

Tenho uma tabela em MS ACCESS que precisava de exportar para TXT com os espaçamentos ";" para serem enviados por email.

 

Alguém sabe como fazer isso. Existe algum modulo em VB que faça isso.

 

Cumprimentos

[Veber 0]

o ADO tem a opcao SAVE e OPEN que podem ajudar voce nisso.

use recordset.SAVE ( com parametro para salvar em ADTG ou XML ) e no outro lado, use OPEN (caminho do arquivo) para recuperar o recordset

 

serve mano?

 

senao

 

faz uma rotina assim

 

arq = freefilearquivo = "c:\meuRst.txt"open arquivo for output as #arqdo while not myRst.Eof   gostring = ""   for each myField in myRst.Fields      if isnull(myRst.fields(myField.name).Value) then          goString = goString & "null;"      else          goString = goString & myRst.fields(myField.name).value & ";"      end if     print #arq, goString     myRst.MoveNextloop

 

serve tambem mano?

 

 

Flows

[pteixeira 0]

Cara a rotina parece ser boa ideia.Vou experimentar. Brigado.