安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access利用ADOX获取Access数据库字段的所有属性

2017-08-03 06:41:00
zstmtony
原创
1215
利用ADOX获取Access数据库字段的所有属性


可以读到一个Access数据库中所有表与字段的信息


'获取Access数据库所有字段的所有属性  本程序需要先引用Microsoft ADO Ext(ADOX)
Public Sub GetAllFldInfo()

Dim adoCat As ADOX.Catalog
Dim adoTab As ADOX.Table
Dim adoCol As ADOX.Column
Dim adoPro As ADOX.Property

Dim strDataBaseAs String, strPaswordAs String, strTableName As String

strDataBase= "D:\Access交流网\AccessCn.mdb"
If Dir(strDataBase) = "" Then
MsgBox "数据库:" & strDataBase & "不存在!"
Exit Sub
End If
strPasword= "" '数据库密码
strTableName = "我的数据表"

Set adoCat = New ADOX.Catalog
adoCat.ActiveConnection = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & strDataBase& ";Jet OLEDB:Database Password=" & strPasword

Set adoTab = New ADOX.Table
Set adoTab = adoCat.Tables(strTableName)

For Each adoCol In adoTab.Columns
Debug.Print adoCol.Name
Debug.Print  adoCol.Type
For Each adoPro In adoCol.Properties
Debug.Print adoPro.Name
Debug.Print adoPro.Value

Next
Next

MsgBox "读取字段信息完毕!", , "Access交流网"
End Sub

程序中的数据库名,密码与数据表名,请按自己的需要修改


字段的相关属性如下面内容:

0 Autoincrement 自动编号
1 Default 默认值
2 Description
3 Nullable 必填字段
4 Fixed Length
5 Seed
6 Increment
7 Jet OLEDB:Column Validation Text 有效性文本
8 Jet OLEDB:Column Validation Rule 有效性规则
9 Jet OLEDB:IISAM Not Last Column
10 Jet OLEDB:AutoGenerate
11 Jet OLEDB:One BLOB per Page
12 Jet OLEDB:Compressed UNICODE Strings
13 Jet OLEDB:Allow Zero Length 允许空字符串
14 Jet OLEDB:Hyperlink 超链?#26377;?br />
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
广东36选7开奖结果 马刺vs掘金g3 丛林巫师闯关 快船vs公牛 招财童子闯关 装甲拉扎什迅猛龙 招财童子投注 nba热火vs步行者直播 开心点心闯关 777tk.com