如何获取access数据库中表ceshi有多少列？
使用查询sql语句，查询的表是ceshi这个表，要取出测试这个表中有多少列，求完善的sql语句另外还需要一条sql语句读取测试这个表中所有字段名的数据（比如有8个字段，那...
使用查询sql语句，查询的表是ceshi这个表，要取出测试这个表中有多少列，求完善的sql语句
另外还需要一条sql语句读取测试这个表中所有字段名的数据（比如有8个字段，那么将这8个字段的名称全部读取出来。） 展开
另外还需要一条sql语句读取测试这个表中所有字段名的数据（比如有8个字段，那么将这8个字段的名称全部读取出来。） 展开
展开全部
1、打开access，在access里打开相应的access数据库。
2、在左边的对象栏里单击模块，观察右边的窗口，如果里面有模块，可以双击打开。如果没有新建一个模块，然后双击打开。
3、粘贴以下代码并运行。
Private Sub aaaa()
Dim TableName As String, FdCount As Integer
TableName = "ceshi"
FdCount = CurrentDb.TableDefs(TableName).Fields.Count
MsgBox FdCount
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
给你写函数
把以下函数复制到任意一个模块中
在你需要的地方调用 就行了
例如 msgbox GetFieldCount("ceshi") 就会用消息框显示ceshi表中的记录
Function GetFieldCount(tblName As String) As Integer
Dim rst As Dao.Recordset
Dim Flds As Dao.Fields
Set rst = CurrentDb.OpenRecordset("select top 1 * from " & tblName)
Set Flds = rst.Fields
GetFieldCount = Flds.Count
rst.Close
Set rst = Nothing
Set Flds = Nothing
End Function
把以下函数复制到任意一个模块中
在你需要的地方调用 就行了
例如 msgbox GetFieldCount("ceshi") 就会用消息框显示ceshi表中的记录
Function GetFieldCount(tblName As String) As Integer
Dim rst As Dao.Recordset
Dim Flds As Dao.Fields
Set rst = CurrentDb.OpenRecordset("select top 1 * from " & tblName)
Set Flds = rst.Fields
GetFieldCount = Flds.Count
rst.Close
Set rst = Nothing
Set Flds = Nothing
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
‘表的列数
Me.Caption = rs0.Fields.Count '表的列数
’表的列名
For i = 0 To rs0.Fields.Count - 1 '表的列数
Me.Caption = Me.Caption & ";" & rs0.Fields(i).Name
Next i
Me.Caption = rs0.Fields.Count '表的列数
’表的列名
For i = 0 To rs0.Fields.Count - 1 '表的列数
Me.Caption = Me.Caption & ";" & rs0.Fields(i).Name
Next i
更多追问追答
追问
没看懂啊 这两条查询语句中没有ceshi这个表名？怎么查询的啊
追答
运行一下看
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
