問一下單個記錄導(dǎo)出成txt文件,如何把字段名信息加進去

yuzhusisi

我有一個工資表,想把每個人的數(shù)據(jù)導(dǎo)出成一個txt文件,以人名為文件名,現(xiàn)在導(dǎo)出的功能實現(xiàn)了,但是導(dǎo)出后只是字段值,想把字段名加進去后一起導(dǎo)出,怎么實現(xiàn)呀?

如現(xiàn)在導(dǎo)出的結(jié)果是:李小明,500
                                
我想變成:
                               姓名:李小虎 ,基本工資:500

原文件的代碼
Private Sub 導(dǎo)出數(shù)據(jù)_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 & "\" & "數(shù)據(jù)" & "\" & 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 "數(shù)據(jù)導(dǎo)出完成!  "
End Sub

access新聞愛好者

上傳個附件看看！！

kangking

將下句
strT = rst.GetString(, , ",", Chr(13) & Chr(10))
改為
strT = “姓名：" & rst(0) & "，基本工資：" & rst(1)
試試。

yuzhusisi

非常感謝,可以了

huangli0356

呵呵..還是讓高手先解了...正想下午把代碼加上..贊一個先...