Пытаюсь укратить Recordset, но пока безуспешно. Надеюсь на вашу помощь.
Итак. Суть в следующем. Открываю рекордсет:
- Код: Выделить всё
... conn, adOpenDynamic, adLockOptimistic
Сохраняю
- Код: Выделить всё
.Save App.Path & "\ExportData\BillProd.rst", adPersistADTG
После чего...:
- Код: Выделить всё
cnnMSPersist.Open "Provider=MSPersist"
rst.Open App.Path & "\RecivedFiles\BillProd.rst", cnnMSPersist
Рекордсет открыт, все сделал что нужно, но вот понадобилось мне удалить несколько записей из этого рекордсета:
- Код: Выделить всё
With rst
.Filter = "ID=5"
.Delete adAffectGroup
End With
И на .Delete adAffectGroup я получаю сообщение:
Run-time error '3219':
Операция не допускается в данном контексте
Непонятно почему такое происходит, т.к. .Delete без adAffectGroup работает.
