ASP 中如何使用 ADO 执行带参数的 SQL 查询？

推荐答案

在 ASP 中使用 ADO 执行带参数的 SQL 查询，可以通过以下步骤实现：

1. 创建 Connection 对象并打开数据库连接。
2. 创建 Command 对象，并设置其 ActiveConnection 属性为已打开的连接。
3. 设置 Command 对象的 CommandText 属性为带参数的 SQL 查询。
4. 使用 Parameters 集合添加参数，并设置参数的值。
5. 执行查询并处理结果。

示例代码如下：

// www.javascriptcn.com code example
<%
Dim conn, cmd, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"

' 添加参数
cmd.Parameters.Append cmd.CreateParameter("@Username", adVarChar, adParamInput, 50, "john_doe")
cmd.Parameters.Append cmd.CreateParameter("@Password", adVarChar, adParamInput, 50, "password123")

' 执行查询
Set rs = cmd.Execute()

' 处理结果
If Not rs.EOF Then
    Response.Write "User found: " & rs("Username")
Else
    Response.Write "User not found"
End If

' 关闭连接
rs.Close
conn.Close
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing
%>

本题详细解读

1. 创建 Connection 对象并打开数据库连接

在 ASP 中，首先需要创建一个 ADODB.Connection 对象，并通过 Open 方法打开与数据库的连接。连接字符串中包含了数据库的提供程序、服务器地址、数据库名称、用户名和密码等信息。

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"

2. 创建 Command 对象并设置 ActiveConnection

接下来，创建一个 ADODB.Command 对象，并将其 ActiveConnection 属性设置为已打开的连接对象。这样，Command 对象就知道要使用哪个连接来执行 SQL 查询。

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn

3. 设置 CommandText 属性

CommandText 属性用于设置要执行的 SQL 查询。在这个例子中，我们使用了一个带参数的 SQL 查询，参数用 ? 占位符表示。

cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"

4. 添加参数

使用 Parameters 集合的 Append 方法，可以为 Command 对象添加参数。每个参数都需要指定参数名称、数据类型、输入/输出方向、长度和值。

cmd.Parameters.Append cmd.CreateParameter("@Username", adVarChar, adParamInput, 50, "john_doe")
cmd.Parameters.Append cmd.CreateParameter("@Password", adVarChar, adParamInput, 50, "password123")

5. 执行查询并处理结果

通过 Execute 方法执行查询，并返回一个 Recordset 对象。可以通过遍历 Recordset 来处理查询结果。

Set rs = cmd.Execute()

If Not rs.EOF Then
    Response.Write "User found: " & rs("Username")
Else
    Response.Write "User not found"
End If

6. 关闭连接

最后，记得关闭 Recordset 和 Connection 对象，并释放资源。

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

通过以上步骤，你可以在 ASP 中使用 ADO 执行带参数的 SQL 查询。