访问ADO数据库之一

ADO是Microsoft提供和建议使用的新型数据访问接口，它是建立OLEDB之上的一个抽象层。微软公司在操作系统中默认提供了Access的ODBC驱动程序以及JET引擎，51Testing软件测试网#zXI)J+Q+k%m o

一、对ADO对象的主要操作，一般包括6个方面：51Testing软件测试网!N6Hv-O@1hT

1.连接到数据源。通常使用ADO的Connection对象。一般使用相应的属性打开到数据源的连接，设置游标的位置，设置默认的当前数据库，设置将使用的OLEDBProvider，直接提交SQL脚本等。

2.向数据源提交命令。通常涉及ADO的Command对象。可查询数据库并返回结果在Recordset对象中。51Testing软件测试网U'm;\(?Ph\| q

3.执行SELECT查询命令。在提交SQL脚本的任务时，不用创建一个Command对象，就可完成查询。

4.可以通过ADO的Recordset对象对结果进行操作。51Testing软件测试网pjAkt5q/i \h

5.更新数据到物理存储。作者：临汾市外事旅游局薛靖澜，转载请注明出处]51Testing软件测试网jFt3RCY m

6.提供错误检测。通常涉及ADO的Error对象。51Testing软件测试网WiR7?@tx
b

二、ADO中主要对象的功能

Recordset对象，用来封装查询的结果。

Field对象，用来表达一行结果中各子段的类型和值。

Error对象，用来检测和判断在数据库操作中出现的错误，比如连接失败。在ADO中，许多对象名后多了一个"s"，比如Error->Errors，Field->Fields等等。添加"s"意味着是相应对象的Collection（集合）对象，比如Errors是Error对象的Collection对象。Collection有点像数组（Array），但不同的是，Collection可以以不同类型的数据或对象作为自己的元素，而数组中的各元素通常都是相同类型的。所以，在看到一个对象名最后是"s"，通常表明这是一个Collection对象，比如Errors中的各元素是由Error对象的实例组成的。51Testing软件测试网-c rIi;N2S{Eu;e

三、具体应用作者：临汾市外事旅游局薛靖澜，转载请注明出处]

1、创建mdb数据库

ADOX是ADO对象的扩展库。它可用于创建、修改和删除模式对象，如数据库和表格等。51Testing软件测试网o@1gT"m1G6nd#F

其常用的对象有：Catalog—>创建数据库。Column—>表示表、索引或关键字的列。作者：临汾市外事旅游局薛靖澜，转载请注明出处]51Testing软件测试网.L w tslA

Key—>表示数据库表中的关键字。51Testing软件测试网T r's)NT

常用的方法有：Append将对象添加到其集合。Delete删除集合中的对象。作者：临汾市外事旅游局薛靖澜，转载请注明出处]51Testing软件测试网 ry&G-m A0pI`

set cat= createobject("ADOX.Catalog")

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\shujuku.mdb"51Testing软件测试网vhG S!G

Set  tbl=createobject("ADOX.Table")       51Testing软件测试网^"Tu/LJ&p:[

tbl.Name ="MyTable"   51Testing软件测试网Yb4^+v6V Q.d]A/f7Y

tbl.Columns.Append  "姓名",  202  'adInteger   51Testing软件测试网6O](a a(t DT!c

tbl.Columns.Append  "性别",  3  'adInteger   51Testing软件测试网#I)N2Y,{j9T

tbl.Columns.Append  "工作单位",  202  ,50  'adVarWChar   51Testing软件测试网W+zf
x2DQ

cat.Tables.Append  tbl     

不过你要操纵数据库就连一个数据库也不建，未免懒惰了点，用代码虽然可以完成，但是我觉得对数据约束完成的比较困难，本代码也就是示范个例子，并不推荐使用此类方法。51Testing软件测试网`/G"j7GZ4Kap

2、打开数据库作者：临汾市外事旅游局薛靖澜，转载请注明出处]

Provider=″Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source="51Testing软件测试网:@4]8PDo @0A\ x%Z

Set ōbjconn = createobject("ADODB.Connection")51Testing软件测试网Q
tal;f"KW6i sC

Objconn.OpenProvider & "数据库名称"51Testing软件测试网4V'}y*E:i7S

3、创建记录集51Testing软件测试网 I[~&HPO WL~

Set ōbjrs = CreateObject("ADODB.Recordset")51Testing软件测试网6L{kR)R8} x

4、执行SQL查询语句51Testing软件测试网 x[:\B\\

Sql="SQL查询语句"  '例如：Select count(*) from table1

Set ōbjrs = objconn.execute(sql)51Testing软件测试网$E*N.X'~ J1f$IAr/w

一般情况下，我们将绝大多数的操作转化为SQL语句完成。51Testing软件测试网TO$U7lsC
Ev