如何用VB处理带形参的存储过程?
用SQLServer已经编好了一个数据库,里面有几张表,根据这几张表编好了存储过程。用VB的ADO控件已经和SQL连接上了,如何调用SQL的存储过程,实现在两个框里面输入...
用SQL Server已经编好了一个数据库,里面有几张表,根据这几张表编好了存储过程。
用VB的ADO控件已经和SQL连接上了,如何调用SQL的存储过程,实现在两个框里面输入实参,经过SQL存储过程处理后,返回值在第三个框里面显示出来?
我对VB一窍不通 展开
用VB的ADO控件已经和SQL连接上了,如何调用SQL的存储过程,实现在两个框里面输入实参,经过SQL存储过程处理后,返回值在第三个框里面显示出来?
我对VB一窍不通 展开
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,你可以自己定义一个连接。不知态空道你的不了解程滑闭镇度到底是不了解到什么地步?
'
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,你可以自己定义一个连接。不知态空道你的不了解程滑闭镇度到底是不了解到什么地步?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询