0

VB6とSQLServer2000の使用

rdo接続を使用して値をストアドプロシージャに渡したい。

ストアドプロシージャとrdo接続文字列は知っていますが、rdo接続を介してパラメータ値をストアドプロシージャに渡す方法がわかりません。

試したコード

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

パラメータ値をストアドプロシージャに渡すためのサンプルコードを誰かが提供できますか？

4

1 に答える 1

0

MSDNから：

パラメータクエリは、ユーザー提供またはアプリケーション提供のパラメータを通常のクエリに置き換えるだけです。このクエリは通常SELECTステートメントですが、INSERT、UPDATE、またはDELETEクエリの場合もあります。次の例は、単一のパラメーターを使用して単純なSELECTクエリをコーディングする方法を示しています。クエリは、Pubsサンプルデータベースから名前で著者を検索します。

まず、？を使用して各パラメータをマークするSQLクエリを設定します。パラメータマーカー。

QSQL $ = "SELECT * FROM Authors 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
于 2011-11-22T05:07:44.603 に答える