使用Connection对象连接数据库

使用Connection对象连接数据库之前，首先要建立该对象实例。其语法格式如下：

Set Connection对象＝Server.CreateObject（″ADODB.Connection″）

建立该对象实例后，就可以利用Connection对象的Open方法来打开数据库并与之建立连接。其语法格式如下：

Connection对象.Open 数据源名｜连接字符串

1. 创建有ODBC 数据源的连接

基于ODBC 的连接，先利用7.3节中讲述的方法为数据库school设置数据源Sch，就可以进行如下连接：

〈％

uim Conn

Set Conn＝Server.CreateObject（″ADODB.Connection″）

Conn.Open ″Dsn＝Sch″

％〉

在打开数据源时也可以省略Dsn，直接写数据源

Conn.Open ″Sch″

使用此种方法进行连接数据库，如果要移植程序到另外的服务器上，需要重新设置数据源。

2. 创建没有ODBC 数据源的连接

这种方法是基于ODBC 的连接，只不过没有设置数据源。一般只用到Driver和DBQ 两个参数。

〈％

Dim Conn

Set Conn＝Server.CreateObject（″ADODB.Connection″）

Conn.ConnectionString＝″DRIVER＝｛MicrosoftAccessDriver（＊.mdb）｝；

DBQ＝D：\aspsam\chapter7\school.mdb″

Conn.Open

％〉

在实际开发过程中，由于考虑到程序移植后的路径问题，常利用Server对象的M appath方法，将虚拟路径转变为实际的物理路径。

〈％

Dim Conn

Set Conn＝Server.CreateObject（“ADODB.Connection“）

Conn.ConnectionString＝″DRIVER＝｛MicrosoftAccessDriver （＊.mdb）｝；DBQ＝″&_

Server.MapPath（″school.mdb″）

Conn.Open(www.xing528.com)

％〉

此种方法在程序移植到其他服务器后，就可以马上进行使用。

【例7.1】创建数据库连接，将连接信息保存在字符串中。

文件命名为7-1.htm 的代码如下：

〈HTML〉

〈HEAD〉

〈TITLE〉数据库连接〈/TITLE〉

〈/HEAD〉

〈BODY〉

〈％

On ERROR Resume Next

Dim Conn

Set Conn＝Server .CreateObject （″ADODB.Connection″）

Conn.ConnectionString＝″DRIVER＝｛MicrosoftAccessDriver （＊.mdb）｝；DBQ＝″&

Server .MapPath （″school .mdb″）

Conn.Open

If Conn.State＝1 then

Response .Write ″Conn 与数据库连接成功！″

Else

Response .Write ″Conn 对象的执行过程产生错误 ！″

End If

％〉

〈/BODY〉

〈/HTML〉

程序运行结果如图7-10所示。

图7-10 例7.1运行结果

说明：

①On ERROR Resume Next表示如果发生错误，就跳过继续执行下一句，如果没有这一句，则会在发生错误处终止程序，并显示错误信息。

② Conn.State为Conn对象的状态值，若为1则表示当前连接成功。