将访问查询导出到文本文件换行符

Question

我正在为将要导出到文本文件的访问数据库创建一个sql查询。要求包括分隔每条线的换行。这是默认发生的，还是我需要添加的内容？ 如果我需要添加它，我该怎么做？

TIA

Answer 1

TransferText包含LineFeed，我相当确定大多数从Access获取文本的方法都包括换行，除非你做了什么来阻止它。检查起来并不难。

Dim fs As New FileSystemObject

s = "c:\docs\test.txt"
DoCmd.TransferText acExportDelim, , "query6", s
Set f = fs.OpenTextFile(s)
a = f.ReadAll

''Split at linefeed: Chr(10)
aa = Split(a, Chr(10))

''Test 1
Debug.Print UBound(aa)

''Test 2
For Each itm In aa
    Debug.Print itm
Next