Question

VB处理SQL存储过程？

已经在SQL Server中建立好以下存储过程。
procedure 查询航班(@日期 smalldatetime,@出发城市 nvarchar(50),
@到达城市 nvarchar(50))

已经用 VB连接好SQL Server
在VB中建立好了text1、text2、text3、text4

需要用text1、text2、text3输入实参，text4返回一个表，那么四个text的代码怎么写？

我对VB一窍不通》》》现在急需，谢谢！
就用上面的例子，写出代码

若以下回答无法解决问题，邀请你更新回答

Answer 1

直接传递参数调用存储过程

直接传递参数方法主要通过以下几个步骤来实现：

（1） 通过ADODB的Connection对象打开与数据源的连接；

（2） 通过ActiveConnection指定Command对象当前所属的Connection对象；

（3） 通过CommandText属性设置Command对象的源，即要调用的存储过程；

（4） 通过CommandType属性确定Command对象的源类型，如果源类型为存储过程CommandType即为adCmdStoredProc；

（5） 通过Command对象的Parameters集合向所调用的存储过程传递参数，其中对象Parameters（0）为执行存储过程的返回值，返回值为0则执行存储过程成功；

（6） 通过Eexecute方法执行在 CommandText 属性中指定的存储过程。

以存储过程doc_ProcName为例，关键代码如下：

Dim strS As String '定义一变量
Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
Dim ReturnValue As Integer '调用存储过程的返回值
adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1为窗体中的ADO控件，并已成功连接数据库
adoconn.Open
Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
adocomm.CommandText = "doc_ProcName" '设置Command对象源。
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。
adocomm.Parameters(1) = "1"
adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字
adocomm.Execute
ReturnValue = adocomm.Parameters(0) '存储过程的返回值，返回0则成功执行。
strS = adocomm.Parameters(2) '把存储过程的输出参数的值赋给变量strS