如何用VB处理带形参的存储过程？

2024-12-29 15:31:44

推荐回答（1个）

回答1：

'Dim cn As New Connection '定义连接对象
'
Dim cm As New Command '定义命令对象
'
Dim rs As New Recordset '定义纪录集对象
'
Dim p As New Parameter '定义参数对象

On Error Resume Next
'
Set cm = New Command
'
'设置command对象的运行参数
'
cm.ActiveConnection = conn
'
cm.CommandType = adCmdStoredProc
'
cm.CommandText = "test"
'
'为参数查询提供参数值
'

cm.Parameters.Append cm.CreateParameter("pid", adWCharm, adParamInput, , "2")
set rs = cm.Execute

CONN是一个公有数据库连接，connect，你可以自己定义一个连接。不知道你的不了解程度到底是不了解到什么地步？