ASP 中如何使用 ADO (ActiveX Data Objects) 连接数据库？

推荐答案

在 ASP 中使用 ADO 连接数据库的步骤如下：

// www.javascriptcn.com code example
<%
' 创建 ADO 连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

' 定义连接字符串
Dim connStr
connStr = "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;User ID=your_username;Password=your_password;"

' 打开数据库连接
conn.Open connStr

' 执行 SQL 查询
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM your_table_name", conn

' 处理查询结果
Do While Not rs.EOF
    Response.Write rs("column_name") & "<br>"
    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

本题详细解读

1. 创建 ADO 连接对象

在 ASP 中，首先需要创建一个 ADO 连接对象。通过 Server.CreateObject("ADODB.Connection") 来实例化一个连接对象。

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

2. 定义连接字符串

连接字符串包含了连接数据库所需的所有信息，如数据库提供程序、服务器名称、数据库名称、用户名和密码等。常见的连接字符串格式如下：

Dim connStr
connStr = "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;User ID=your_username;Password=your_password;"

3. 打开数据库连接

使用 conn.Open 方法打开数据库连接。连接字符串作为参数传递给该方法。

conn.Open connStr

4. 执行 SQL 查询

通过 ADODB.Recordset 对象执行 SQL 查询。首先创建记录集对象，然后使用 rs.Open 方法执行查询。

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM your_table_name", conn

5. 处理查询结果

使用 Do While Not rs.EOF 循环遍历查询结果，并通过 rs("column_name") 访问每一行的列数据。

Do While Not rs.EOF
    Response.Write rs("column_name") & "<br>"
    rs.MoveNext
Loop

6. 关闭记录集和连接

在完成数据库操作后，务必关闭记录集和连接，以释放资源。

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

通过以上步骤，你可以在 ASP 中使用 ADO 成功连接并操作数据库。