如何获取ACCESS表的字段标题？

Question

一般字段名用字母，字段标题用中文，用语显示的标题，如何获取每个字段的中文标题？

Answer 1

你是要如下这个吗？  
  
    Dim Conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Long
    
    '连接数据库略
    
    Set rs = New ADODB.Recordset
    rs.Open "select * from tb", Conn, adOpenKeyset, adLockOptimistic
    
    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Name
    Next i

Answer 2

不是.
您给出的是获取字段名(好象少了连接字符号串)Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\TY_mis\MIS-08\DATA0\SET.mdb;Persist Security Info=False"
cn.Open cnstr
SQL = "select * from loginner"
rs.Open SQL, cn, 3, 1
n = rs.Fields.Count
For i = 1 To n
Debug.Print rs.Fields(i - 1).Name
Next i但我要的是建立ACCESS表结构时,字段的标题而不是名字(设计时可以看到,用OFFICE的ACCESS打开时,显示字段标题,如XM是字段名,而"姓名"是标题).

Answer 3

那就用字段重定义好了,如
sql="select id as 编号,xm as 姓名 from loginner"
其它的没变
    
    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Name
    Next i
这样就可以了得到标题了

Answer 4

ACCESS表的字段标题并不是表的一部分，它仅仅是ACCESS窗体的一种CAPTION。