Postada em 19/08/2011 15:09 hs
Olá amigos...
Na~oestou conseguindo gravar um arquivo txt com texto longo tipo memo, só sai 255 caracteres
Dim meutxt as string
meutxt = "texto memo do bd"
intArquivo = FreeFile(0)
Open CaminhoTexto & "frmDGtmp.txt" For Output As #intArquivo
Print #intArquivo, "meutxt"
While Not RSTemp.EOF
meutxt = RSTemp.Fields![Obs_BaseP]
Print #intArquivo, Trim$(meutxt)
RSTemp.MoveNext
Wend
Close #intArquivo
Obrigado por qualquer ajuda
|
