二、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
%>
减小字体
增大字体