取出ACCESS表的字段名～～请高手指点！谢谢！

bjyutong

Private Sub Command0_Click()
Dim RR As Recordset
Set RR = CurrentDb.OpenRecordset("SELECT CID & ',' & 12 FROM B1")
Open "D:\报表系统\1.TXT" For Output As #2
Do While Not RR.EOF
Print #2, RR(0)
RR.MoveNext
Loop
Close #2
End Sub


这是一个把ACCESS表导成文本文件的代码，此代码只能导出ACCESS的数据，我需要导出的文本文件第一行为ACCESS表的字段名，请问需要怎么修改，还请高手指点！

todaynew

试试：
RR(0).name

bjyutong

不行，RR(0)改成RR(0).NAME之后，引出的数据就全是"Expr1000"这个了

aslxt

参考：
Private Sub Command0_Click()
  Dim str
  Dim sstr
  Dim RR As Recordset
  Set RR = CurrentDb.OpenRecordset("SELECT * FROM 表1")
  Open "g:\111.TXT" For Output As #2
  For i = 1 To RR.Fields.Count
    str = str & " " & RR.Fields(i - 1).Name
  Next i
  Print #2, Trim(str)
  Do While Not RR.EOF
    For i = 1 To RR.Fields.Count
      sstr = sstr & " " & RR.Fields(i - 1)
    Next i
    Print #2, Trim(sstr)
    sstr = ""
    RR.MoveNext
  Loop
  Close #2
End Sub

bjyutong

4# aslxt


Set RR = CurrentDb.OpenRecordset("SELECT * FROM 凭证转换器02查询")

我把这些代码考到我做的程序里,这句报错类型不匹配,但是我把'凭证转换器02查询'表考到一个单独的ACCESS表里,就不报错,我不知道是怎么回事,还望您能帮忙想想是怎么回事!谢谢!!

wfkbabro

Set RR = CurrentDb.OpenRecordset("SELECT CID & ',' & 12 FROM B1")
改变为
Set RR = CurrentDb.OpenRecordset("SELECT CID & ',' & 12 as CId_12 FROM B1")
要回复哦

wfkbabro

希望用as 后　RR(0).NAME　不是　Expr1000了

tmtony

在导入数据之前,先插入字段名称到文本文件中
for each fld in RR.fields
   Print #2, fld.name
next