access vba表字段_vba中如何在access的一张表中得到所有的列名？

展开全部

这里提供下列ACCESS 窗体VBA示例代码供参考

假设数据库里有一张“定价表”，为e69da5e887aa62616964757a686964616f31333335343430ACCESS 窗体命令按钮编写单击事件过程，单击该按钮后即可弹出消息框，告知该表共有多少个字段和它们的名称Private Sub Command0_Click()

Dim rs As New ADODB.Recordset

Dim strSql As String

Dim i As Integer

Dim colNames As String

strSql = "select * from 定价表 where false" '“where false”的作用是只提取字段信息不要数据

rs.CursorLocation = adUseClient

rs.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

'循环读取字段名

For i = 0 To rs.Fields.Count - 1

colNames = colNames & "," & rs(i).Name

Next i

colNames = Mid(colNames, 2)

'弹出消息框

MsgBox "定价表共有" & rs.Fields.Count & "个字段，字段名分别是：" & colNames

rs.Close

Set rs = Nothing

End Sub

注意上述代码需要引用ADO。引用方法，于窗体代码窗口，菜单——工具——引用

在弹出的“引用”对话框，勾选“Microsoft ActiveX Data Object 2.1” 或更高版本。

access vba表字段_vba中如何在access的一张表中得到所有的列名？相关推荐

Hibernate继承（2）子类属性生成在自己的一张表中，父类的属性一张表
Hibernate继承(2)子类属性生成在自己的一张表中,父类的属性一张表 <?xml version="1.0"?> <!DOCTYPE hibernate-m ...
access自动编号怎么解除_如何在 Access 中重置“自动编号”字段值
如何在 Access 中重置"自动编号"字段值中删除某个表中的一些行或所有行时,"自动编号"字段不会自动重置.要重置"自动编号"字段值并 ...
excel几个表合成一张_Excel中怎样把多张表格中的数据合并到一张表格中
由于各种需要,我们往往会需要把多张表格中的数据内容合并成一张表格,那么应该怎么操作呢?我们以下为例: 下图中Sheet1是2011年的数据,sheet2是2012年的数据,最后要把它们合并在一张新表上 ...
sql server 怎么把视图中的数据存到另外一张表中_承上篇，自制插件优化Kep数据存储问题...
序言:上篇说到Kep数据日志存储是将所有数据存到一张表内,不好筛选,为此抽空做了这个插件对Kep存到SQL的数据表进行优化处理. 一.插件安装及界面功能标注 1.双击安装包弹出安装向导,直接下一步直到 ...
SQL学习-向一张表中插入数据来源于另一张表
比如:从另一个数据库的表中查询出数据插入到这张表 INSERT INTO dbo.userInfo (ID,UserName,Age) SELECT ID,UserName,Age FROM anot ...
mysql 全库备份恢复_从MySQL全库备份中恢复某个库和某张表
在Mysqldump官方工具中,如何只恢复某个库呢? 全库备份 [root@HE1 ~]# mysqldump -uroot -p --single-transaction -A --master-d ...
php中rbac三张表的关系,财务人不可不知的三张表的关系
原标题:财务人不可不知的三张表的关系本文节选自<世界500强CFO的财务管理笔记>,作者郑永强资产负债表.利润表.现金流量表是三张最基本也是最重要的财务报表.这三者之间究竟是怎样的关系呢 ...
flowable实战（十二）flowable 核心表ACT_RU_EXECUTION 详解（初学者误解的一张表）
一.ACT_RU_EXECUTION 表(很多初学者迷惑的一张表,以为是流程实例表,其实它叫执行实例表):这个表和act_run_task表,一起控制了用户任务的产生与完成等. 这个表是工作流程的核心 ...
mysql 左连接两张表_mysql左连接右连接（查询两张表不同的数据）
left join(左联接) 返回包括左表中的所有记录和右表中联结字段相等的记录 : right join(右联接) 返回包括右表中的所有记录和左表中联结字段相等的记录: inner join(等值连 ...

access vba表字段_vba中如何在access的一张表中得到所有的列名？

access vba表字段_vba中如何在access的一张表中得到所有的列名？相关推荐

最新文章

热门文章