标题: 各位在线高手，小弟有急事请教，关于获得表列数 [打印本页] 作者: zxp 时间: 2007-10-24 10:09 标题: 各位在线高手，小弟有急事请教，关于获得表列数 请问如何对表进行从上到下，从左到右进行读取数据，关键就是如何获得表的列数。作者: tmtony 时间: 2007-10-24 10:13
可以使用DAO或ADO打开表的记录集
循环 for each fld in rs.fields
就可知道所有列作者: zxp 时间: 2007-10-24 11:42
站长tmtony：
你好，万分感谢你的答复，但可否麻烦你举个小例子说明一下，本人还是不会用。作者: Grant 时间: 2007-10-24 11:56
用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 时间: 2007-10-24 12:05
我明白了，在这里真的万分感谢站长tmtony和版主GRANT的指点