Имеем примерно следующий код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
'Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle};" &_
"CONNECTSTRING=(DESCRIPTION=" &_
"(ADDRESS=(PROTOCOL=TCP)" &_
"(HOST=test)(PORT=1521))" &_
"(CONNECT_DATA=(SERVICE_NAME=basetwo)));uid=test;pwd=test;"
'Dim oCon
'Dim oRs
'Dim oCMD
set oCMD = Server.CreateObject("ADODB.Command")
set oCon = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oCMD.ActiveConnection = oCon
set oCMD.CommandText = "TestScheme.TestServer.Test(?,?,?,?,?,?,?)"
set oCMD.CommandType = adCmdStoredProc
set oCMD.NamedParameters = True
oCMD.Parameters.Append(oCMD.CreateParameter("aDateFrom", adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aDateTo", adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aRURLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aUSDLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aEURLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aP1", adVarChar, adParamInput, 50 ))
oCMD.Parameters.Append(oCMD.CreateParameter("aP2", adVarChar, adParamInput, 50 ))
oCMD.Parameters("aDateFrom").Value = ZDate(D1,"")
oCMD.Parameters("aDateTo").Value = ZDate(D2,"")
oCMD.Parameters("aRURLimit").Value = X1
oCMD.Parameters("aUSDLimit").Value = X2
oCMD.Parameters("aEURLimit").Value = X3
oCMD.Parameters("aP1").Value = Q1
oCMD.Parameters("aP2").Value = Q2
Set oRs = oCon.Execute
На последней строчке выдается сообщение
авторNo value given for one or more required parameters.
1) Чего не так и как поправить?
2) Можно примерчик где обрабатывается рекордсет возвращаемый из процедуры. (не 1 значение в качестве параметра а именно рекордсет)
3) Есть ли варианты получить рекордсет через параметры - например вот таким способом
1.
2.
3.
Procedure Proc1(aParam1 In Integer, aParam2 Out Sys_RefCursor) Is
Begin
...
end;
