导航

心动吧黑客BLOG

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« ASp ADODB组件之数据库资料收集ASp 过程与函数(第十五节) »

ASp ADOX组件(第十四节)

作者: 心动吧明生KISS

   用asp语言创建数据库和数据库的表....这一节主要讲的adox和ado有些区别

ADOX 概述

Microsoft® ActiveX® Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。ADOX 包括用于模式创建和修改的对象,以及安全性。由于它是基于对象实现模式操作,所以用户可以编写对各种数据源都能有效运行的代码,而与它们原始语法中的差异无关。



ADOX 是核心 ADO 对象的扩展库。它显露的其他对象可用于创建、修改和删除模式对象,如表格和过程。它还包括安全对象,可用于维护用户和组,以及授予和撤消对象的权限。

 

示例图:

   

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>数据库操作</title>
</head>

<body>
<%
xx=request.form("abcxd")

if request.form("radiobutton")="catalog" then '如何创建数据库
set cre=server.createobject("adox.catalog") '先将组件实例化.要不然不可以拿用哦
cre.create "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(xx)
'请注意上面的语法,第一个provider是驱动信息这里使用的是微软的。而data source则是数据库路径
'还有一种比较老的连接方式,这里就不讲了..主要讲新的
session("abcxd")=server.mappath(xx) '创建一个session值,这样我们就不需要再输入数据路径问题
response.write "数据库建立成功: " & session("abcxd")
end if

if request.form("radiobutton")="table" then
set cre=server.createobject("adox.catalog") '先将组件实例化.要不然不可以拿用哦
cre.ActiveConnection="provider=microsoft.jet.oledb.4.0; data source=" & session("abcxd") '连接数据库

set table=server.createobject("adox.table") '利用table方法创建数据库表
table.name=xx '数据库表的名称
table.columns.append "zd",203 '表里面的字段名字和字段的属性,203=备注
table.columns.append "zd1",202 '和上面一样..202=字符串
table.columns.append "zd2",11 '和上面一样..11=布尔值
table.columns.append "zd3",7 '和上面一样..7=日期与时间
table.columns.append "zd4",128 '和上面一样..128=二进制
table.columns.append "zd5",6 '和上面一样..6=货币
'其他:5 双精度 4 单精度 204 二进制 134 时间 133 日期
cre.tables.append table
set table=nothing
session("table")=xx '还是和上面一样
response.write "建立表成功: " & xx & "在数据库建立了6个字段"
end if



%>
<form id="form1" name="form1" method="post" action="">
<label>
输入值
<input type="text" name="abcxd" value="" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label><br>
<label>
<input type="radio" name="radiobutton" value="catalog" onclick="abcxd.value='abcxd.mdb'" />
创建数据库
</label>
<label>
<input type="radio" name="radiobutton" value="table" onclick="abcxd.value='abcxditems'">
创建数据表
</label>
</form>
</body>
</html>

要通过开发工具使用 ADOX,需要建立对 ADOX 类型库的引用。对 ADOX 库的说明为“Microsoft ADO Ext. for DDL and Security.”。ADOX 库文件名为“Msadox.dll”,程序 ID (ProgID) 为“ADOX”。有关建立库引用的详细信息,请参阅开发工具的文档。

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 数据库。



Sub CreateDatabase()



   Dim cat As New ADOX.Catalog

   cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb""



End Sub

二、创建表范例

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

三、创建索引范例

如下代码演示如何创建新的索引。索引针对表的两个列建立。



Sub CreateIndex()



   Dim tbl As New Table

   Dim idx As New ADOX.Index

   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



   ' 定义多列索引

   idx.Name = ""multicolidx""

   idx.Columns.Append ""Column1""

   idx.Columns.Append ""Column2""



   ' 将索引追加到表上

   tbl.Indexes.Append idx



End Sub

四、创建关键字范例

如下代码演示如何创建新的外部关键字。假定已存在两个表(Customers 和 Orders)。



Sub CreateKey()



   Dim kyForeign As New ADOX.Key

   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;""



   kyForeign.Name = ""CustOrder""

   kyForeign.Type = adKeyForeign

   kyForeign.RelatedTable = ""Customers""

   kyForeign.Columns.Append ""CustomerId""

   kyForeign.Columns(""CustomerId"").RelatedColumn = ""CustomerId""

   kyForeign.UpdateRule = adRICascade

   cat.Tables(""Orders"").Keys.Append kyForeign

End Sub

  [/code]

原创文章如转载,请注明:转载自心动吧黑客BLOG [ http://www.abcxd.com/abcxd/ ]

本文链接地址:http://www.abcxd.com/abcxd/abcxdArticle/asp/150/

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

黑客榜之本月排行

搜索内容

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved