获取指定表所有字段名的函数_access编程心得-access开发之路-access攻略

当前位置：主页 > 技巧 > Access技巧 > 编程心得绝招 > 实际编程 > 正文

获取指定表所有字段名的函数

时间：2005-08-16 12:13 来源：未知作者：共享阅读：次

Private Function GETZD(tbName As String)
Dim cat As New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
For i = 0 To cat.Tables(tbName).Columns.Count - 1
Debug.Print cat.Tables(tbName).Columns.Item(i).Name
Next
End Function

需引用ADOX
用法：GETZD ("表名")

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：再发一篇关于通过API利用输入法获取汉字拼音的源代码(带声调)
下一篇：足彩的复式-单注+过滤

相关内容

·解决没有保存属性在关闭窗体时
·Access加快窗体显示【技巧】
·access vba代码太长，换行的方法解释
·Access2010错误＂该表是“一对多”关系
·vba设置子窗体字体格式的方法
·Access如何提高程序的显示速度
·两种计价方式集成实例
·[源码]用代码添加和删除主键
·[示例]到期天数计算
·一个简单的透视图实例
·Access不编程生成菜单，自定义菜单如何
·让命令按钮全变为不可用
·VBA编程自动导出生成Excel表
·如何统计某一行某几个字段的个数？
·如何替换Access启动时的背景图片
·如何禁止Access自动保存