(一)CreateObject(“ADOX.Catalog”)
ADOX 是一种用于访问和操作数据库对象（如表、视图、用户、组等）的编程接口，它是ADO（ActiveX Data Objects）的一部分。
ADOX.Catalog 对象是ADOX库中的一个对象，它表示数据库目录。即ADOX.Catalog对象可以访问数据库的用户、组、表、视图、存储过程等信息.
ADOX支持多种类型的数据库，每种数据库的连接字符串和提供者可能不同。
在使用ADOX时，确保你已经安装了相应的数据提供者，并且具有对数据库进行操作的权限。
使用 ADOX.Catalog 对象，你可以执行以下操作：
(1)创建新的数据库：使用 Create 方法可以创建一个新的数据库。
(2)打开数据库：使用 Open 方法可以打开一个已经存在的数据库。
(3)关闭数据库：使用 Close 方法可以关闭数据库。
(4)获取数据库属性：可以访问数据库的各种属性，比如 Name、Version 等。
(5)操作数据库对象：可以添加或删除表、视图等数据库对象。
(二)ADOX.Catalog对象有6个属性3个方法0个事件
(1)属性:
ActiveConnection 用于指定一个数据库连接。类型：Connection对象/String
Groups (只读)用户组。类型：Groups对象
Procedures (只读)存储过程。类型：Procedures对象
Tables (只读)表。类型：Tables对象
Users (只读)用户。类型：Users对象
Views (只读)视图。类型：Views对象
(2)方法:
Create 新建一个数据库连接
GetObjectOwner 查询所有者
SetObjectOwner 修改所有者
(3)说明:
新建的ADOX.Catalog对象并不包含任何信息
用ActiveConnection属性指定一个数据库连接，或Create方法新建一个
(三)使用ADOX.Catalog对象的基本示例：
Dim cat
Set cat = CreateObject(“ADOX.Catalog”)
‘ 连接到数据库，这里以Access数据库为例
cat.PutRefact “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\your\database.mdb;”
‘ 打开数据库
cat.ActiveConnection = “你数据库的连接字符串”
‘ 创建一个新的表
Dim tbl
Set tbl = cat.CreateTable(“NewTable”)
‘ 添加字段
With tbl
Columns.Append “Field1”, adInteger, 0
Columns.Append “Field2”, adVarChar, 50
…
End With
‘ 将表添加到数据库
cat.Tables.Append tbl
‘ 保存更改并关闭数据库
cat.Close
‘ 清理
Set tbl = Nothing
Set cat = Nothing
Views: 69
