asp如何在ADO中使用存储查询？

如何在ADO中使用存储查询？

对于使用参数存贮查询，我们可用下面的代码进行示例：

Private cn As New Connection 
' 定义连接对象 
Private cm As New Command 
' 定义命令对象 
Private rs As New Recordset 
' 定义纪录集对象 
Private p As New Parameter 
' 定义参数对象 
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
"\chunfeng.mdb"
End Sub
' 建立数据库连接 
Private Sub cmdGetDigcameraByID_Click()
On Error Resume Next
Set cm = New Command
cm.ActiveConnection = cn
cm.CommandType = adCmdStoredProc
cm.CommandText = "qryGetDigcameraByID"
' 设置 command 对象的运行参数 
Set p = cm.CreateParameter("pID", adInteger, adParamInput, , txtID.Text)
' 为参数查询提供参数值 
cm.Parameters.Append p
' 把参数对象添加到命令对象中 
Set rs = cm.Execute
' 执行查询并把结果返回到记录集中 
If rs.EOF And rs.BOF Then
' 显示记录集中的记录 
MsgBox "噢,没有找到您想要的数码相机!"
Else
MsgBox "该款数码相机是:" & rs!Digcamera
End If
End Sub