问一下单个记录导出成txt文件,如何把字段名信息加进去

yuzhusisi

我有一个工资表,想把每个人的数据导出成一个txt文件,以人名为文件名,现在导出的功能实现了,但是导出后只是字段值,想把字段名加进去后一起导出,怎么实现呀?

如现在导出的结果是:李小明,500
                                
我想变成:
                               姓名:李小虎 ,基本工资:500

原文件的代码
Private Sub 导出数据_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 工资表")
Set rst = CreateObject("adodb.recordset")
rst.ActiveConnection = CurrentProject.Connection
Do Until rs.EOF
    rst.Open ("select [姓名],[基本工资] from 工资表 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
MsgBox "数据导出完成!  "
End Sub

access新闻爱好者

上传个附件看看！！

kangking

将下句
strT = rst.GetString(, , ",", Chr(13) & Chr(10))
改为
strT = “姓名：" & rst(0) & "，基本工资：" & rst(1)
试试。

yuzhusisi

非常感谢,可以了

huangli0356

呵呵..还是让高手先解了...正想下午把代码加上..赞一个先...