День добрый. Мне надо в поле эксела ввести очередной номер сиквенса (последовательности) из БД Оракла. Использую такой код, основанный на технологии ОО4О.
Проблема: при запуске такой процедуры сиквенс увеличивается не на 1 значение а на 2.
Причем эта же команда SQL в навигаторе дает последовательное приращение сиквенса на 1.
Такое ощущение, что команда в данном коде запускается дважды. Я не прав? как исправить сей досадный error?
--------------
Sub SELECT_Num_Packet()
Dim sSQLVar As String

'Declare variables as objects
Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object
' стираю ячейку
Sheets("Sheet1").Select
Range(Cells(6, 5), Cells(6, 5)).Select
Selection.ClearContents

sSQLVar = "select XXTNH_PO_REQ_NUM_PACKET_SEQ.NEXTVAL as Num_Packet from dual"

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("EXCEL_PO", "app/123456", 0&)
Set EmpDynaset = OraDatabase.CreateDynaset(sSQLVar, 0&)
' записываю в поле значение сиквенса
ActiveSheet.Cells(6, 5) = EmpDynaset.Fields(0)
End Sub
-----------------
EXCEL_PO - tns имя сервера, имена,пароли нереальные

Плюнул... пущай увеличивается на 2, особой беды в этом нет...

Нет, если просто закрыть а потом записывать в ячейку - все равно эффект остался.
Предложенный вариант - закрыть и повторно открыть - теперь уже эффект возрос в 2 раза! :)
Число увеличиваться стало на 4 вместо бывших 2, когда надо 1