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
|