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

发布于 2024-12-17 05:14:46 字数 431 浏览 1 评论 0原文

使用 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

任何人都可以提供将参数值传递给存储过程的示例代码吗？

原文

Using VB6 and SQL Server 2000

I want to pass the value to stored procedure using rdo connection.

I know stored procedure and rdo connection string, but I don't know how to pass parameter value to stored procedure through rdo connection.

Tried code

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

Can anyone provide a sample code for passing the parameter value to stored procedure?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

忆离笙 2024-12-24 05:14:46

来自 MSDN：

参数查询只是将用户提供的或应用程序提供的参数替换为普通查询。虽然此查询通常是 SELECT 语句，但它也可以是 INSERT、UPDATE 或 DELETE 查询。以下示例说明如何使用单个参数编写简单的 SELECT 查询。该查询从 Pubs 示例数据库中按姓名查找作者。
首先，设置一个 SQL 查询，使用 ? 标记每个参数。参数标记。
QSQL$ = "从作者中选择 * WHERE Au_Lname = ?"
接下来，创建一个 rdoQuery 对象来管理查询及其参数。
设置 PSAuthors = cn.CreateQuery("",QSQL$)
接下来，使用以下代码将用户输入的值 (Text1.Text) 插入到查询中。
PSAuthors.rdoParameters(0) = Text1.Text

您可以找到完整的页面此处

您的代码（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

From MSDN:

A parameter query simply substitutes user-supplied or application-supplied parameters into an ordinary query. While this query is usually a SELECT statement, it could be an INSERT, UPDATE, or DELETE query as well. The following example illustrates how to code a simple SELECT query with a single parameter. The query looks up authors by name from the Pubs sample database.
First, set up an SQL query that marks each parameter using the ? parameter marker.
QSQL$ = "SELECT * FROM Authors WHERE Au_Lname = ?"
Next, create an rdoQuery object to manage the query and its parameters.
Set PSAuthors = cn.CreateQuery("",QSQL$)
Next, use the following code to insert the value entered by the user (Text1.Text) into the query.
PSAuthors.rdoParameters(0) = Text1.Text

You can find the complete page here

You code (ODBC syntax) would be modified to:

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

回复收藏 0 原文

~没有更多了~