首页
学习
活动
专区
工具
TVP
发布

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

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20181030G0K0NV00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券