求修改access导出txt的语句 谢谢

jasonxyk

各位好，我对这些语句一点都不通

下面的语句也在论坛上找到的很好用

我利用下面的语句，将access的每条记录导出为一个txt文件，txt文件名称为“标题”字段

我的access的表头有 ID，标题，内容，其他，网址

目前导出来的txt文件内容是整行数据，我只要txt文档内容为“标题，内容”

请问需要如何修改，谢谢

Private Sub Command0_Click()
Dim rs As Object
Dim rst As Object
Dim strT As String
Dim strFileName As String
Dim lngHandle As Long
Set rs = CreateObject("adodb.recordset")
rs.ActiveConnection = CurrentProject.Connection
rs.Open ("select distinct 标题 from content")
Set rst = CreateObject("adodb.recordset")
rst.ActiveConnection = CurrentProject.Connection
Do Until rs.EOF
    rst.Open ("select * from content where 标题='" & rs(0) & "'")
    strT = rst.GetString(, , "    ", Chr(13) & Chr(10))
    rst.Close
    strFileName = CurrentProject.Path & "\" & rs(0) & ".txt"
    lngHandle = FreeFile()
    Open strFileName For Output As lngHandle
    Print #lngHandle, strT
    Close lngHandle
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set rst = Nothing
End Sub
Private Sub Form_Close()
    DoCmd.Quit
End Sub

zhangjimfu

楼主如果对导出的数据没有特殊要求可以用宏来操作

jasonxyk

斑竹，谢谢回复。

导出的功能已经可以满足我的需求。

我现在要的就是导出的数据，不要是全部，我只要 标题 和 内容，其他的都不要，现在是一条记录所有字段的内容都导出到了txt文档中。

不知我是否说清楚了。

jasonxyk

现在的语句是把一行记录中的所有字段内容都导出到了txt文档中，我不需要那么多内容，我只需要其中的两个字段。

roych

把
select * from content where 标题=
改成
select [标题],[另一个字段] from content where 标题=

jasonxyk

楼上的 非常感谢 我会了