□投稿者/ 酒井 (1回)-(2007/09/07(Fri) 09:14:31)
|
分類:[VBScript]
読んでいただきありがとうございます。
現在、VBSからSQLServer2000上のプロシージャを呼び出そうとしていますが、
上手くいかないようです。
DAICHOU_EXPORTのパラメータはinが２つ、outが１つです。
sqlserver2000のクエリアナライザから実行した場合は問題なく値の取得ができます。
VBS側の記述に問題があると思うのですが、特に実行エラーになるわけではなく
一番下に記述してある"ここまで3"というメッセージが表示されます。
どなたか知識のある方、ご教授下さい。
Sql = "DAICHOU_EXPORT"
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = objConn
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = Sql
Set param = cmd.CreateParameter("@DATE_S", adVarChar, adParamInput, 20)
cmd.Parameters.Append param
cmd.Parameters("@DATE_S") =DATE_S
MsgBox cmd.Parameters("@DATE_S").VALUE
Set param = cmd.CreateParameter("@DATE_E", adVarChar, adParamInput, 20)
cmd.Parameters.Append param
cmd.Parameters("@DATE_E") =DATE_E
Set param = cmd.CreateParameter("@ret", adInteger, adParamOutput)
cmd.Parameters.Append param
'//ストアドプロシージャ実行
Cmd.Execute
'// 取得結果を表示
MsgBox cmd.Parameters("@ret").Value
MsgBox "ここまで3"
|
|
