没有合适的资源?快使用搜索试试~ 我知道了~
首页利用ADOX获取Access数据库字段的所有属性
利用ADOX获取Access数据库字段的所有属性
需积分: 50 20 下载量 194 浏览量
更新于2023-03-16
评论
收藏 31KB DOC 举报
一直以来都用SQL语句来操作Access,但发现有些Access字段的属性不能用SQL来操作,在网上搜索了一些资料后,才了解了一些用ADOX设定字段的方法,为了方便了解这些字段的属性,就先自己建立一个Access数据库,然后创建好表与字段,设置好这字段的属性,然后后用下面的程序把它的属性例出到Excel中来,此程序需要引用ADOX。
资源详情
资源评论
资源推荐
利用 ADOX 获取 Access 数据库字段的所有属性
一直以来都用 SQL 语句来操作 Access,但发现有些 Access 字段的属性不能用 SQL 来操
作,在网上搜索了一些资料后,才了解了一些用 ADOX 设定字段的方法,为了方便了解这
些字段的属性,就先自己建立一个 Access 数据库,然后创建好表与字段,设置好这字段
的属性,然后后用下面的程序把它的属性例出到 Excel 中来,此程序需要引用 ADOX。
Sub 获取 Access 数据库字段的所有属性()
'*****************************************************************
'时间:2010-2-24
'作者:bengdeng
'功能:利用 ADOX 获取 Access 数据库字段的所有属性
'备注:本程序需要引用 Microsoft ADO Ext(ADOX),本例引用 2.8 版
'发布:http://www.excelba.com
'******************************************************************
Dim MyCat As ADOX.Catalog
Dim MyTab As ADOX.Table
Dim MyCol As ADOX.Column
Dim MyPro As ADOX.Property
Dim tSh As Worksheet
Dim i As Long
Dim DataName As String, PassStr As String, TableName As String
DataName = "Excel 吧" '数据库名称
DataName = ThisWorkbook.Path & "\" & DataName & ".mdb"
If Dir(DataName) = "" Then
999 MsgBox "数据库:" & DataName & "不存在!"
999 Exit Sub
End If
PassStr = "" '数据库密码
TableName = "数据表 2" '数据表名称
Set tSh = ThisWorkbook.Worksheets.Add
tSh.Range("A1:D1") = Array("字段名称", "字段类型", "字段属性", "属性值")
Set MyCat = New ADOX.Catalog
MyCat.ActiveConnection = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" &
_
999 DataName & ";Jet OLEDB:Database Password=" & MyPass
9999999999
Set MyTab = New ADOX.Table
Set MyTab = MyCat.Tables(TableName)
i = 2
weixin_41798819
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- RTL8188FU-Linux-v5.7.4.2-36687.20200602.tar(20765).gz
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
- SPC统计方法基础知识.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0