Access爱好者--
所属分类: 实用代码 作者: 共享 更新日期:2003-10-6 16:44:38 阅读次数:217

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


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 ("表名")


--------------------------------------------------------------------------------
相关文章

数据库设计中的敏捷方法 2004-2-9 11:19:16
SQL SERVER基本概念学习印象 2004-1-1 21:23:13
两个未公开的ACCESS方法的使用技巧 2003-12-30 14:59:33
Access 数据库和 Access 项目之间的数据类型的比较或映射 2003-12-26 14:20:19
大型数据库设计原则 2003-12-15 12:49:18
破解Access(*.mdb)目前所有版本的密码 2003-11-17 11:31:05
ACCESS的数据库安全问题解答 2003-11-13 10:52:11
避免Access和SQL Server的空值冲突 2003-10-17 20:03:19
表达式生成器中的几种常用符号 2003-10-17 19:55:56
创建完美报表 2003-10-17 19:37:17
ADO三大对象的属性、方法、事件及常数(三) 2003-10-14 8:44:20
如何诊断/修复损坏的 Jet 4.0 数据库 2003-10-14 8:31:26
数据库规范化技巧 2003-10-10 10:38:06
如何强制 Access 显示四位数年份的日期 2003-10-10 10:34:21
定期归档 Access 数据库记录 2003-10-10 10:20:08
提升前后台模式程序的速度 2003-10-10 10:17:08
一个简单的Ado用法示例 2003-10-6 16:24:38
Access 2002 中的名称自动更正说明 2003-10-6 15:16:24
数据库应用程序需注意的问题 2003-10-6 11:11:06


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链