Опишу кратко проблему:
1. Есть БД на DB2. В ней создана процедура с входящими параметрами, которая выдает результат.
prod.count_delete_massive_trade_purp (EnterpisesParam, ... , DateBeginParam , DateEndParam) в виде курсора открытого.
2. Также есть файл Access для управления справочниками из этой базы по ODBC.
В нем необходимо выполнить данную процедуру и просто получить результат процедуры (INTEGER) из открытого курсора.

Private Sub Count_Click()
   
   Dim EnterpisesParam  As String
.
.
.
   Dim CountId As Integer
   Dim DateBeginParam As Date
   Dim DateEndParam As Date
   Dim db2 As Database
   Dim strSQL As String
     
   strConnect = "ODBC;DSN=MT_STAT;"
   If db2 Is Nothing Then
      Set db2 = DBEngine.Workspaces(0).OpenDatabase("", False, False, strConnect)
   End If
   
   EnterpisesParam = GetParams.GetIDParamFromList(Me.Enterprises)
   .
   .
   .
   DateBeginParam = Format(Me.DateBegin.Value, "yyyy-MM-dd")
   DateEndParam = Format(Me.DateEnd.Value, "yyyy-MM-dd")

   strSQL = "call prod.count_delete_massive_trade_purp('" & EnterpisesParam & "', ... , '" & DateBeginParam & "','" & DateEndParam & "')"
       
   db2.Execute strSQL, dbSQLPassThrough        
   
    Me.CountStr.Value = CountId
   
End Sub

Так вот и вопрос, как получить результат выполнения этой процедуры и в CountId его записать?

Модератор: Тема перенесена из форума "Visual Basic".

http://www.sql.ru/forum/1158641/poluchenie-rezultata-vypolneniya-procedury-iz-db2