Access利用ADOX穫取Access數據庫字段的所有屬性 - ADO_RDO

利用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 超鏈接型

聯繫人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯繫人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01