如何在存储过程中使用rdo连接

Question

使用VB6和SQL Server 2000

我想使用rdo连接将值传递给存储过程。

我知道存储过程和rdo连接字符串，但是我不知道如何通过rdo连接传递参数值给存储过程。

尝试代码

Dim rsql As rdoQuery
                'Set rsql = rdovispay
                rsql.rdoParameters ("Storeprocedure1")
                rsql.rdoParameters(0).Direction = rdParamReturnValue
                rsql(1) = Eid
                rsql.Execute

谁能提供一个将参数值传递给存储过程的示例代码?

Answer 1

From MSDN:

参数查询只是将用户提供或应用程序提供的参数替换为普通查询。虽然这个查询通常是一个SELECT语句，但它也可以是一个INSERT、UPDATE或DELETE查询。下面的示例说明如何编写一个带有单个参数的简单SELECT查询。该查询按姓名从bars示例数据库中查找作者。

首先，设置一个SQL查询，使用?标记每个参数。参数标志。

sql $ = "SELECT * FROM Authors WHERE Au_Lname = ?"

下一步，创建rdoQuery对象来管理查询及其参数。

Set PSAuthors = cn.CreateQuery("，QSQL$)

接下来，使用以下代码将用户输入的值(Text1.Text)插入到查询中。

psauthors . rdopparameters (0) = Text1。文本

你可以在这里找到完整的页面

您的代码(ODBC语法)将修改为:

Dim rsql As rdoQuery
Dim QSQL as string
' if your data source is ODBC then use the ODBC syntax
'QSQL$ = "{ ? = call Storeprocedure1 (?) }"
' if your data source is SQL, then use the SQL syntax
'QSQL$ = "Execute Storeprocedure1 ?"
Set rsql = Connection.CreateQuery("", QSQL$)
rsql.rdoParameters(0).Direction = rdParamReturnValue
rsql(1) = Eid  ' set the input parameter
rsql.Execute