Есть пример получения значения параметра из процедуры, а не функции.
Процедура на Oracle:
1.
2.
3.
create or replace PROCEDURE mult(num in NUMBER, res OUT NUMBER) is
BEGIN
res:=num* 2 ;
end mult;
Visual Basic
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.
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rsRec As ADODB.Recordset
Dim cmdCmd As ADODB.Command
Dim Prm As ADODB.Parameter
Set cnn = New ADODB.Connection
Set rsRec = New ADODB.Recordset
Set cmdCmd = New ADODB.Command
cnn.CommandTimeout = 0
cnn.CursorLocation = adUseClient
cnn.Open "Provider=OraOLEDB.Oracle;Data Source=x;User ID=x;Password=x"
Set cmdCmd.ActiveConnection = cnn
cmdCmd.CommandText = "begin mult(?,?); end;"
Set Prm = cmdCmd.CreateParameter("Prm", adDouble, adParamInput, , Null)
cmdCmd.Parameters.Append Prm
cmdCmd.Parameters.Item( 0 ).Value = CInt(InputBox("Введите число", "В процедуру", "2"))
Set Prm = cmdCmd.CreateParameter("Prm", adDouble, adParamOutput, , Null)
cmdCmd.Parameters.Append Prm
cmdCmd.Execute
MsgBox "Результат: " & cmdCmd.Parameters( 1 ).Value, vbInformation, "Из процедуры"
End Sub
Получение значения из функции тоже, как-то можно сделать. Но если надо срочно, то может быть просто заменить функцию на процедуру?
З.ы. А почему нельзя получить значение счетчика простым селектом?
