在当今提出的多种动态网页(Dhtml)解决方案中都强调了与数据库的连接,其实网页接挂后台数据库也是当前的热门应用,在电子商务等领域有着广泛的应用.MicroSoft为了适应其发展推出了新的ADO(Active Data Object)模型,通过ODBC的连接可以对当前流行的桌面数据库系统提供方便,快洁的连接.在这里,我想通过ADO在ASP技术中的应用来总结一下ADO对象以及其各自的属性和方法.
一、ADO对象模型:
下面简单介绍一下ADO的对象模型
ADO有三大对象,即Connection对象,Command对象,RecordSet对象.
Connection(对象)
─Errors(集合)─Error(对象)
Command(对象)
─Parameters(集合)─Parameter(对象)
RecordSet(对象)
─Fields(集合)─Field(对象)
其中Connection对象,Command对象,RecordSet对象和Field对象又分别具有Properities集合而产生Properity对象.我们在asp编程中已经对这几个对象有了足够的了解.下面是以上三大对象的相互关系.
Command.ActiveConnection->Connection
RecordSet.ActiveConnection->Connection
Connection.Execute->RecordSet
Command.Execute->RecordSet
RecordSet.Source->Command
好了,有了以上的关系表后,你应该能理解有一些等价的表达形式了.
形式1
set rs = Server.CreateObject("ADODB.RecordSet")
strConn = "driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText
形式2
set conn = Server.CreateObject("ADODB.Connection")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs = Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn(注意此句)
strSQL = "Select * From Employee ;"
rs.open strSQL,,,,adCmdText
"上面这句也可以写成rs.open strSQL,conn,,,adCmdText
形式3
set conn = Server.CrreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
strSQL = "Select * From Employee ;"
rs=conn.Execu strSQL(注意次句)
形式4
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText
注：上面的例子中均假设SQL Server的name=srv，使用SQL Server Authentication采用了默认的帐号sa，该帐号没有设定密码。
上面这几种形式都能够产生一个相同的RecordSet对象的实例rs,但方法各异,在后面的讨论中我们将看到它们不同的优越性.
二、Connection对象:
在ADO的模型中,Connection对象是最基本的对象,他主要是提供与数据库的连接。其他的两个对象都是通过它与数据库的连接来完成操作的。它的属性、方法如下所示。
Connection对象的主要属性
1、 CursorLocation,它的取值有两个，一个是adUseClient,一个是adUseServer（默认），从其英语本身的含义就可以看出，前者是使用客户端的游标，而后者是使用服务器端的游标。二着的差别在于adUseClient游标可以提供供应商所没有提供的额外的属性，因而灵活性更大。需要注意的是Connection对象与RecordSet对象均有此属性，由Connection对象产生的RecordSet对象会自动的继承这个属性。另外要让此属性对Connection和RecordSet对象的实例起作用的话，必须在打开它们之前先定义。
下面看一个例子
Set conn=Server.CreateObject("ADODB.Connection")
conn.CursorLocation=adUseClient
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "emloyee",conn,,,adCmdTable
采用次种方式则conn与rs的游标均为adUseClient了。
2、 ConnectionString，在打开一个Connection实例之前设定数据库的连接信息。在上面的例子中我们使用了一条语句conn.open strConn，其中的strConn就是ConnectionString，因此我们可以重写上面的语句如下：
Conn.ConnectionString=strConn
Conn.open
3、 ConnectionTimeOut，设置连接超时。
4、 CommandTimeOut，设置命令执行超时。
Connection的主要方法
1、 open，打开一个Connection的对象实例，常用的写法为conn.open ConnectionString，如果在打开之前已经定义了ConnectionString属性的话，就可以直接的打开。
2、 Execute，产生一个RecordSet实例，常用的写法为
Rs=conn.Excute CommandText,RecordsAffected,Option
其中的CommandText可以为以下的几种形式，主要由Option的值来决定1） SQL语句，此时Option的值为adCmdText，表示将执行一段SQL语句。2）数据库的一个表名，此时Option的值为adCmdTable，表示将对该表进行操作。
3、一个StoredProcedure名字，此时Option取值为adCmdStoredProc，它表示将要执行一个SQL上定义的存储过程。这是一个非常灵活而强大的方法，它可以对用户隐藏数据库的具体信息，而只需用户提供适当的参数就可以了，还能返还需要的参数值。在后面介绍Command对象时再做详细的介绍。值得注意的是，有时Excute后并不需要返回一个RecordSet对象，例如在表中删除记录。看下面的例子：
set conn= Server.CreateObject("ADODB.Connection")
conn.ConnectionString="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open
conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText
该例子删除Employee表中Job_ID为1的记录，并不需要再返回一个RecordSet的实例，但如果将最后一句变为rs= conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText那么我们就可以用此rs来指向表中的记录条了。返回的rs和后面RecordSet对象中用Source属性产生的rs是相同的。
Connection对象的集合
1、 Errors集合，对应产生Error对象。我们将在后面做单独的讨论。
2、 Properties集合，对应产生Property对象，下面给出一段代码，它包含了Property对象的主要方法和属性。
<%
"this program is testing the ADO"s Property object
Const adCmdTable = &H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
rs.ActiveConnection=conn
rs.open "employee",,,adCmdTable
dim i,j
for i=0 to rs.fields.count-1
Response.Write rs.fields(i).name&"<br>"
next
for j=0 to rs.properties.count-1
Response.write rs.properties(j).name&"<br>"
next
rs.close
conn.close
%>
三、Error对象：
前面讲到了Connection对象是用于与各类的数据库进行挂接的，但在此过程中将会出现一些不可预测的错误，因而有了Error这个对象。首先要清楚一个概念，Error对象是在连接数据库时产生的，而并非那些运行时的实时错误。也就是我们常用 On Error Resume Next来忽略到的错误。这些错误将在Err对象中，我们可以用一个统一的模板来集中处理，我会在后面给出一个实例。下面还是先来看Error对象的属性和方法：
1、 Count属性：用来统计Errors集合的数目，它的特点与前面讲到的Property对象的Count对象相同。
2、 Clear方法：写法为Error.Clear，是用来清除Errors集合中的原有对象的，在统计新的Error对象时应该先使用此语句。
3、 Item方法：用来指定特定的一个错误，语法为Error.Item(number)，其中number为一数字。由于Item为默认的方法，所以Error(number)的写法与前面的写法是等价的。下面是一段程序。用来列举Error的所有对象。
<%
"this program is testing the ADO"s Error object
Dim i
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" _
&Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
if conn.errors.count>0 then
response.write "connection to database cause problem!"&"<br>"
for i =0 to conn.errors.count-1
response.write conn.errors.item(i)&"<br>"
next
else
response.write "connection to database successfully!"
end if
conn.close
%>
对于Err对象的通用模板处理程序我将在讨论RecordSet对象时给出。
下面我们将讨论ADO的第二个大的对象━Command对象，我的一个做网站的朋友告诉我他在平时使用ASP挂接数据库时很少使用Command对象，原因是Command对象不好使用，而喜欢用RecordSet对象。是的，可以这么说Command对象是整个ADO模型中最难掌握的一个，但也是功能和性能最好的一个。特别是它的StoredProcedue，它将处理的过程大部分都使用了在SQL Server上已经编译和优化了的存储过程，用过SQL Server的朋友都会明白的。下面就让我们来看Command对象。
四、Command对象：
从英语字面的意思就可以看出，Command是用来做命令执行和参数传递的。而Command对象的批量参数传递，StoredProcude执行等等灵活而强大的功能也是它受到青睐的原因。Command对象主要是向SQL语句、StoredProcude传递参数，依靠SQL Server的强大功能来完成数据库的操作；而RecordSet对象可以说是微软从新封装了数据对象，并提供了一系列的方法和属性来简化数据库的编程。我们看下面的一个例子，它用了两种不同的方法实现了向数据库中增加一新的记录条。从中可以清楚的看到Command对象与RecordSet对象的不同点。
方法1（Command）
const adCmdText=&H0001
const adInteger=3
const adVarChar=200
const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={ Microsoft Access Driver};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="insert into employee (Job_ID,Fri_Name,Last_Name)"& _
&"values(?,?,?)"
set param=comm.CreateParameter("ID",adInteger,adParamInput,3,4)
comm.Parameters.Append param
set param=comm.CreateParameter("FN",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("LN",adVarChar,adParamInput,255,"Gates")
comm.Parameters.Append param
comm.Execute
conn.close
方法2（RecordSet）
const adCmdTable=&H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.Createobject("ADODB.RecordSet")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/sour
