Не могу добавить запись.

[drronnie]

Господа, есть в базе Access хранимая процедура. а в программе такая функция, которая возвращает рекордсет.

Код: Выделить всё

Private Function GetSomeRecords(ByVal ParentID As Long, ByVal Procedure As String) As ADODB.Recordset
  ' если объект готов
  If Ready Then
    Dim t_Command As ADODB.Command, _
        t_Recordset As ADODB.Recordset
   
    Set t_Command = m_Catalog.Procedures(Procedure).Command
    With t_Command
      .Parameters(0) = ParentID
      Set t_Recordset = New ADODB.Recordset
      With t_Recordset
        Set .Source = t_Command
        .Open , , adOpenDynamic, adLockOptimistic, adCmdStoredProc
      End With
      If t_Recordset.EOF Then
        Set t_Recordset = Nothing
      End If
      Set GetSomeRecords = t_Recordset
    End With
  End If
End Function


Потом у этого рекордсета вызываю AddNew запись добавляется, но значения всех полей (и счетчиков тоже) Null, В Access - запрос обновляемы. Я что-то не понимаю или делаю неверно?

[Antonariy]

вызываю AddNew запись добавляется, но значения всех полей (и счетчиков тоже) Null

В этой последовательности действий отсутствует "присваиваю значения".

Значения счетчиков вернутся при использовании клиентского курсора.

[alibek]

Значения счетчиков вернутся при использовании клиентского курсора.

Не так.
Значения счетчиков будут только при серверном курсоре, и то только для движка Jet (базы Access).