Access平台开发人员帮助 > 通用函数库 > 按功能 > ADO和ADOX封装

函数说明

该函数可以打开并获取ADOX.Catalog对象。

注意：该函数无需引用ADOX相关的组件，直接使用即可。实现ADOX后期绑定。而且使用方法基本和原ADOX.Catalog一样。

函数原型

Public Function gf_CreateAdoxCatalog(cn As Object) As Object

语法

gf_CreateAdoxCatalog(cn)

参考：gf_CreateAdoxCatalog(CurrentProject.Connection) '通过本地连接，创建ADOX.Catalog对象

参数

参数名	必需/可选	数据类型	参数说明
Conn	可选	Object	ADODB.Connection对象。默认CurrentProject.Connection，也可以用gf_CreateConnect函数创建该对象。

返回值

返回ADOX.Catalog 对象。若使用错误，则返回Nothing。

示例

'获取D盘的Data.mdb数据库有多少个表

Sub subTest()

Dim strConnectString As String '定义一个字符串型变量，保存连接语句

Dim cn As Object '定义一个对象，用于接收返回的连接Connection

Dim intCount As Integer ’定义一个整型变量，接收表的数量

Dim cat As Object '定义一个对象，用于接收返回的ADOX.Catalog对象

strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb" '设置连接语句

Set cn = gf_CreateConnect(strConnectString) '打开连接，使用 gf_CreateConnect 函数

’通过Catalog对象获取表的个数

Set cat = gf_CreateAdoxCatalog(cn)

intCount = cat.Tables.Count

Msgbox "D:\Data.mdb 表的数量：" & intCount

Set cat = Nothing ‘使用完毕，清空对象，节省资源

cn.Close '关闭连接

Set cn = Nothing

End Sub

打开ADOX.Catalog对象（gf_CreateAdoxCatalog函数）