ADOX.Catalog中文帮助详细说明chm文档

2、ADOX 对象
Catalog 包含描述数据源模式目录的集合。
Column 表示表、索引或关键字的列。
Group 表示在安全数据库内有访问权限的组帐号。
Index 表示数据库表中的索引。
Key 表示数据库表中的主关键字、外部关键字或唯一关键字。
Procedure 表示存储的过程。
Table 表示数据库表，包括列、索引和关键字。
User 表示在安全数据库内具有访问权限的用户帐号。
View 表示记录或虚拟表的过滤集。
3、ADOX 方法
Append（Columns） 将新的 Column 对象添加到 Columns 集合。
Append（Groups） 将新的 Group 对象添加到 Groups 集合。
Append（Indexes） 将新的 Index 对象添加到 Indexes 集合。
Append（Keys） 将新的 Key 对象添加到 Keys 集合。
Append（Procedures） 将新的 Procedure 对象添加到 Procedures 集合。
Append（Tables） 将新的 Table 对象添加到 Tables 集合。
Append（Users） 将新的 User 对象添加到 Users 集合。
Append（Views） 将新的 View 对象添加到 Views 集合。
ChangePassword 更改用户帐号的密码。
Create 创建新的目录。
Delete 删除集合中的对象。
GetObjectOwner 返回目录中对象的拥有者。
GetPermissions 获得对象上组或用户的权限。
Item 按名称或序号返回集合的指定成员。
Refresh 更新集合中的对象，以反映针对提供者可用的和指定的对象。
SetObjectOwner 指定目录中对象的拥有者。
SetPermissions 设置对象上组或用户的权限。
4、ADOX 属性
ActiveConnection 指示目录所属的 ADO Connection 对象。
Attributes 描述列特性。
Clustered 指示索引是否被分簇。
Command 指定可用于创建或执行过程的 ADO Command 对象。
Count 指示集合中的对象数量。
DateCreated 指示创建对象的日期。
DateModified 指示上一次更改对象的日期。
DefinedSize 指示列的规定最大大小。
DeleteRule 指示主关键字被删除时将执行的操作。
IndexNulls 指示在索引字段中有 Null 值的记录是否有索引项。
Name 指示对象的名称。
NumericScale 指示列中数值的范围。
ParentCatalog 指定表或列的父目录以便访问特定提供者的属性。
Precision 指示列中数据值的最高精度。
PrimaryKey 指示索引是否代表表的主关键字。
RelatedColumn 指示相关表中相关列的名称（仅关键字列）。
RelatedTable 指示相关表的名称。
SortOrder 指示列的排序顺序（仅索引列）。
Type(列) 指示列的数据类型。
Type（关键字） 指示关键字的数据类型。
Type（表） 指示表的类型。
Unique 指示索引关键字是否必须是唯一的。
UpdateRule 指示主关键字被更新时会执行的操作。
5、范例
一、创建数据库范例
如下代码显示如何通过 Create 方法创建新的 Jet 数据库。
ASP代码：
-----------------------------------------------------------
set cat=server.createobject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
VB代码
--------------------------------
Sub CreateDatabase()
'Dim cat As New ADOX.Catalog
' cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb""
End Sub
二、创建表范例ASP代码：
-------------<%
set cat=server.createobject("ADOX.Catalog")
dbpath=server.mappath("/shit/date/new.mdb") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
set tbl=Server.createobject("ADOX.Table")
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", 3 'adInteger
tbl.Columns.Append "Column2", 3 'adInteger
tbl.Columns.Append "Column3", 202 ,50 'adVarWChar
cat.Tables.Append tbl
%>
VB代码：---------------
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'打开目录。
' 打开目录。
cat.ActiveConnection = _
""Provider=Microsoft.Jet.OLEDB.4.0;"" & _
""Data Source=c:\Program Files\Microsoft Office\"" & _
""Office\Samples\Northwind.mdb;""
tbl.Name = ""MyTable""
tbl.Columns.Append ""Column1"", adInteger
tbl.Columns.Append ""Column2"", adInteger
tbl.Columns.Append ""Column3"", adVarWChar, 50
cat.Tables.Append tbl
End Sub