4

私はまったくの VBScript 初心者で、ストアド プロシージャを実行して結果セットを読み取ろうとしています。オンラインの記事を使用してさまざまなアプローチを試みましたが、何も機能せず、困惑しています。データベースは SQL Server 2008 R2 で、アプリケーションは市販の ERP システムですが、独自のコードを追加することができます。

以下を使用してコードを実行できます。

connection.execute"insert into blah blah blah"

そして、次を使用して結果セットを読み取ることができます。

Set objRS = CreateObject("ADODB.Recordset")

objRS.Open "select a, b, c FROM blahblah", Connection, adOpenStatic, adLockBatchOptimistic,    adCmdText
If objRS.EOF = False Then
    a = objRS.Fields("a").Value
    b = objRS.Fields("b").Value
    c = objRS.Fields("c").Value
End If
objRS.Close

問題のストアド プロシージャは、実際には select ステートメントです。

create procedure [dbname].[dbo].[sptestproc] 
as 
    @Option1 Varchar(10) = NULL,
    @Option2 Varchar(10) = NULL
AS
BEGIN
    select first, second 
    from table1 
    where a = @option1 and b = @toption2
End

これまでの私のコード:

Dim sql

sql = "EXEC [dbname].[dbo].[sptestproc] '" & Opt1 & "','" & Opt2 & "'"
Set RS = CreateObject("ADODB.Recordset")
RS.Open sql, Connection, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not RS.EOF
    Call App.MessageBox("first",vbInformation,"Data updated")
    Call App.MessageBox("second",vbInformation,"Data updated")
    RS.MoveNext
Loop

しかし、私の人生では、実行して結果を読み取る手順を取得することはできません。

誰でも助けることができますか？

ありがとう

4

2 に答える 2

7

adCmdTextストアドプロシージャを実行したい場合はSQLクエリ用です（代わりにadCmdStoredProc値）を使用する必要があります4

編集：

'Set the connection
'...............

'Set the command
DIM cmd
SET cmd = Server.CreateObject("ADODB.Command")
SET cmd.ActiveConnection = Connection

'Set the record set
DIM RS
SET RS = Server.CreateObject("ADODB.recordset")

'Prepare the stored procedure
cmd.CommandText = "[dbo].[sptestproc]"
cmd.CommandType = 4  'adCmdStoredProc

cmd.Parameters("@Option1 ") = Opt1 
cmd.Parameters("@Option2 ") = Opt2 

'Execute the stored procedure
SET RS = cmd.Execute
SET cmd = Nothing

'You can now access the record set
if (not RS.EOF) THEN
    first = RS("first")
    second = RS("second")
end if

'dispose your objects
RS.Close
SET RS = Nothing

Connection.Close
SET Connection = Nothing
于 2013-10-31T12:21:11.470 に答える