ADOX集合和对象

'Catalog对象

'-----------------------------------------------------------------------------------------------------------

'Catalog对象包含描述数据源的模式目录的集合（tables集合，views集合，users集合，groups集合和procedures集合）

'Catalog对象的主要属性是ActiveConnection属性，指示Catalog所属的ADO Connection对象。

'属性：ActiveConnection建立与数据库的连接

Sub yifangjun1()

Dim cat As New ADOX.Catalog

MsgBox "Catalog对象的ActiveConnection属性为：" & vbCrLf& cat.ActiveConnection

MsgBox "数据库共有"& cat.Tables.Count & "个表"

Set cat = Nothing

End Sub

'方法：Create创建新的数据库

'语法形式:

Sub yifangjun2()

Dim cat As New ADOX.Catalog

Set cat = Nothing

End Sub

'注：这里先了解有这种方法，下一章节我们再来详细将怎么用这种方法

'Table对象

'-----------------------------------------------------------------------------------------------------------

'表示数据库中的表对象（包含系统表、数据表对象和查询表对象）

'引用Tables集合中Table对象的方法有三种:

'（1）使用编号，Tables(0)

'（2）使用Table对象的名称，Table("Name")

'（3）使用Table对象的名称，Table![Name]

'属性：Count

Sub yifangjun3()

Dim cat As New ADOX.Catalog

MsgBox "Catalog对象的ActiveConnection属性为：" & vbCrLf& cat.ActiveConnection

MsgBox "数据库共有"& cat.Tables.Count & "个表"

Set cat = Nothing

End Sub

'方法：

'（1）Append添加新表

'Cat.Tables.Append table

'（2）Delete删除表

'Cat.Tables.Delete table

'（3）Refresh更新tables集合中的对象以反映当前数据库的模式

'Cat.Tables.Refresh

'Column对象

'-----------------------------------------------------------------------------------------------------------

'表示数据表的字段

'属性：Count

Sub yifangjun4()

Dim cat As New ADOX.Catalog

Dim mytab As New ADOX.Table

Set mytab = cat.Tables("7月入库")

MsgBox "数据表共有"& mytab.Columns.Count & "字段"

Set cat = Nothing

Set mytab = Nothing

End Sub

'方法：

'（1）Append添加新表字段

'Cat.Tables("Name").Append Column[,Type] [,DefineSize]

'（2）Delete删除表字段

'Cat.Tables("Name").Columns.DeleteName

'（3）Refresh更新tables集合中的Column对象

'Cat.Tables("Name").Columns.Refresh