各位在线高手，小弟有急事请教，关于获得表列数

zxp

请问如何对表进行从上到下，从左到右进行读取数据，关键就是如何获得表的列数。

tmtony

可以使用DAO或ADO打开表的记录集
循环 for each fld in rs.fields
就可知道所有列

zxp

站长tmtony：
   你好，万分感谢你的答复，但可否麻烦你举个小例子说明一下，本人还是不会用。

Grant

用ADO取出所有表的表名及字段名Public Function ListUserTable()
    Dim rstSchema As ADODB.Recordset
    Dim cnn2 As ADODB.Connection
    Set cnn2 = CurrentProject.Connection
    Set rstSchema = cnn2.OpenSchema(adSchemaTables)
    Dim I As Long
    Do Until rstSchema.EOF
        If rstSchema("TABLE_TYPE") = "TABLE" Then
            '对应 TABLE_TYPE 可以取值 "TABLE" "SYSTEM TABLE" "ACCESS TABLE"
            '在这里我们列出所有用户表的信息，系统表不列出
            For I = 0 To rstSchema.Fields.Count - 1
                Debug.Print rstSchema(I).Name & "-> " & rstSchema.Fields(I).Value
            Next
        End If
        rstSchema.MoveNext
    Loop
    rstSchema.Close
    cnn2.Close
End Function

zxp

我明白了，在这里真的万分感谢站长tmtony和版主GRANT的指点