如何获取记录集中字段数？

Question

sql语句是：select * from test
请问如何取得其中记录集的字段数？

Answer 1

我自己找到办法，方法如下：
Dim fieldnum As Variant
fieldnum = rssj.GetRows
Debug.Print UBound(fieldnum, 1)

Answer 2

Private pubConn As New ADODB.Connection
Private rsTable As New ADODB.RecordsetstrSQL = select * from test
rsTable.Open strSQL, pubConnmsgbox"字段數是﹕" rstable.Fields.Count

Answer 3

'添加引用Microsoft Activex Data Object 2.X
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\Microsoft Office\Office\2052\FPNWIND.MDB;Persist Security Info=False"
    cn.CursorLocation = adUseClient
    cn.Open
      
    rs.Open "SELECT * FROM 产品", cn, 1, 3
    
    MsgBox rs.RecordCount
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 4

GetRows是将recordset记录集提取到一个二维数组中，在此不宜使用。
应使用Rs.Fields.Count

Answer 5

一句SQL语句就可以解决你的问题:
select  top 0 *  from YourTable.  
这样得到的记录集全都是字段名,附给记录集RS你可以像操作记录一样方便的使用字段.