Есть СУБД Oracle 9i. Для выборки данных из таблиц запросом sql все получалось. Сейчас потребовалось выполнить не select а insert into для добавления записей в таблицу Запрос:
INSERT INTO s_iksr (lso,name,izmosn,kodspr,rem ) values('98701030263', 'HV',-23.75,Перерасчет по справке,'Тест' (в PLSQL Developer все срабатывает на ура) Задача сделать это через Excel vba. Читал что то про OO4O (Oracle Objects For OLE) но так и не понял поможет мне или нет (да и попробовать не могу так как найти для скачивания не удалось. На сайте Oracle.com ссылки для скачивания не работают). Вот пример как выполнялось соединение для select:
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("Oracle", "user/password", 0&)
'Расчет перерасчета НАЧАЛО (LSO, кол-во прожив человек)
sql_txt = "select pr,adres from so_adress where pr<>5"
Set EmpDynaset = OraDatabase.CreateDynaset(sql_txt, 0&)
fldcount = EmpDynaset.Fields.Count
ReDim flds(0 To fldcount - 1)
For Colnum = 0 To fldcount - 1
Set flds(Colnum) = EmpDynaset.Fields(Colnum)
Next
For rownum = 1 To EmpDynaset.RecordCount
Sheets("Перерасчет").Select
ActiveSheet.Cells(rownum + 0, 1) = flds(0).Value
ActiveSheet.Cells(rownum + 0, 2) = flds(1).Value
EmpDynaset.DbMoveNext
Next
Все работает добавляет данные в ячейки. Теперь вместо "select pr,adres from so_adress where pr<>5" пишу:
INSERT INTO s_iksr (lso,name,izmosn,kodspr,rem ) values('18001030263', 'HV',-23.75,Перерасчет по справке,'Тест' Ругается: Run-time error 440
OIP-04116:Cursor not ready for I-0
Выделяет строчку которая сразу после запроса: Set EmpDynaset = OraDatabase.CreateDynaset(sql_txt, 0&)
Помогите!