Добавление данных в СУБД

@sql_serg · Регистрация: 03.06.2013

Author24 — интернет-сервис помощи студентам

Помогите кто может с кодом. Соединяюсь через Excel с СУБД Oracle.
Для выборки делал так:

Visual Basic

mes = ComboBox1.Text
god = ComboBox2.Text
lso = TextBox1.Text
'kol_dn_vmes = TextBox2.Text
pererac_za_dn = TextBox3.Text
na_zelovek = TextBox4.Text
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("Oracle", "name/passvord", 0&)
sql_txt = " select * from tabl1"
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("Лист1").Select
        ActiveSheet.Cells(rownum + 0, 1) = flds(0).Value
        ActiveSheet.Cells(rownum + 0, 2) = flds(1).Value
   EmpDynaset.DbMoveNext
   Next

Все работает. Сейчас потребовалось добавлять в СУБД Oracle данные. Вставил вместо select- INSERT INTO убрал обращение к .cell Но не добавляет. Самому разобраться не получилось!

@Catstail · 19.06.2013, 21:15

Сообщение от sql_serg

Но не добавляет.

- это не вопрос программиста, а восклицание секретарши.
Что значит - не добавляет?

- выдает ошибку? - покажи код, текст сообщения...
- завершается без ошибки, но не добавляет данные? Приведи полное предложение INSERT...

Кстати, данные добавляются не в СУБД, а в БД (точнее - в одну или более таблиц).

~~dev.Free~~ · 20.06.2013, 14:48

sql_serg, СУБД это твоя программа, которую ты создал. То есть Система Управления Базами Данных. Код ошибки покажи.

Что это за бред:

Сообщение от sql_serg

Set OraDatabase = OraSession.OpenDatabase("Oracle", "name/passvord", 0&)

Это не оракловая строка подключения.

@Catstail · 20.06.2013, 15:17

Сообщение от inv.DS

СУБД это твоя программа

- мне кажется, что СУБД Oracle (к примеру) - это программа, написанная фирмой, а не пользователем.

~~dev.Free~~ · 20.06.2013, 15:59

Сообщение от Catstail

написанная фирмой

а кто работает в фирме? пользователи профессионального уровня - "Отдел разработчиков"... No Comment!

@Catstail · 20.06.2013, 16:18

Сообщение от inv.DS

а кто работает в фирме? пользователи профессионального уровня - "Отдел разработчиков"..

- да... И думаю, что в отдел разработчиков Oracle возьмут не всякого с улицы. И почему это вызвало с твоей стороны такую реакцию?

~~dev.Free~~ · 20.06.2013, 16:21

Сообщение от Catstail

И почему это вызвало с твоей стороны такую реакцию

Давеча на работе один утверждал, что все, что пишут программисты, а именно к примеру касательно БД - приложения для работы с БД которые пишут не есть СУБД, а просто приложение. Но одного не было учтено, что обертка для БД и есть СУБД, оно выполняет функции управления БД.

А вот к примеру Среда SQL Server Management Studio - есть в своем роде СУБД.

@sql_serg · 20.06.2013, 16:22 **[ТС]**

Ошибка: Run-time error 440
OIP-04116:Cursor not ready for I-0

Сообщение от inv.DS

Что это за бред:

Примерно год назад читался HELP Oracle 9i и эта строчка писалась по примеру от туда.

~~dev.Free~~ · 20.06.2013, 16:50

"Run-time error -'440': Automation error" ?

Добавлено через 5 минут

Сообщение от sql_serg

For Colnum = 0 To fldcount - 1 Set flds(Colnum) = EmpDynaset.Fields(Colnum) Next

И мне кажется тут у тебя ошибочка. Почему ты с нуля начинаешь ходить по колонкам БД?

И почему не сделать OLEDB подключение: http://www.connectionstrings.c... b-oraoledb

@sql_serg · 21.06.2013, 09:23 **[ТС]**

Сообщение от inv.DS

И почему не сделать OLEDB подключение

Да я тоже об этом подумал. Я так понял мне нужно установить Oracle Objects for OLE. Но найти где скачать не получилось. Тут http://www.oracle.com/technetw... 92246.html выводит ошибку.

@sql_serg 2 / 2 / 2 Регистрация: 03.06.2013 Сообщений: 34
	21.06.2013, 09:23 [ТС]	10
	Сообщение от inv.DS И почему не сделать OLEDB подключение Да я тоже об этом подумал. Я так понял мне нужно установить Oracle Objects for OLE. Но найти где скачать не получилось. Тут http://www.oracle.com/technetw... 92246.html выводит ошибку. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	19.06.2013, 21:15	2
	Сообщение от sql_serg Но не добавляет. - это не вопрос программиста, а восклицание секретарши. Что значит - не добавляет? - выдает ошибку? - покажи код, текст сообщения... - завершается без ошибки, но не добавляет данные? Приведи полное предложение INSERT... Кстати, данные добавляются не в СУБД, а в БД (точнее - в одну или более таблиц). 1

~~dev.Free~~ Заблокирован
	20.06.2013, 14:48	3
	sql_serg, СУБД это твоя программа, которую ты создал. То есть Система Управления Базами Данных. Код ошибки покажи. Что это за бред: Сообщение от sql_serg Set OraDatabase = OraSession.OpenDatabase("Oracle", "name/passvord", 0&) Это не оракловая строка подключения. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	20.06.2013, 15:17	4
	Сообщение от inv.DS СУБД это твоя программа - мне кажется, что СУБД Oracle (к примеру) - это программа, написанная фирмой, а не пользователем. 1

~~dev.Free~~ Заблокирован
	20.06.2013, 15:59	5
	Сообщение от Catstail написанная фирмой а кто работает в фирме? пользователи профессионального уровня - "Отдел разработчиков"... No Comment! 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,641 Записей в блоге: 13
	20.06.2013, 16:18	6
	Сообщение от inv.DS а кто работает в фирме? пользователи профессионального уровня - "Отдел разработчиков".. - да... И думаю, что в отдел разработчиков Oracle возьмут не всякого с улицы. И почему это вызвало с твоей стороны такую реакцию? 0

~~dev.Free~~ Заблокирован
	20.06.2013, 16:21	7
	Сообщение от Catstail И почему это вызвало с твоей стороны такую реакцию Давеча на работе один утверждал, что все, что пишут программисты, а именно к примеру касательно БД - приложения для работы с БД которые пишут не есть СУБД, а просто приложение. Но одного не было учтено, что обертка для БД и есть СУБД, оно выполняет функции управления БД. А вот к примеру Среда SQL Server Management Studio - есть в своем роде СУБД. 0

@sql_serg 2 / 2 / 2 Регистрация: 03.06.2013 Сообщений: 34
	20.06.2013, 16:22 [ТС]	8
	Ошибка: Run-time error 440 OIP-04116:Cursor not ready for I-0 Сообщение от inv.DS Что это за бред: Примерно год назад читался HELP Oracle 9i и эта строчка писалась по примеру от туда. 0

~~dev.Free~~ Заблокирован
	20.06.2013, 16:50	9
	"Run-time error -'440': Automation error" ? Добавлено через 5 минут Сообщение от sql_serg For Colnum = 0 To fldcount - 1 Set flds(Colnum) = EmpDynaset.Fields(Colnum) Next И мне кажется тут у тебя ошибочка. Почему ты с нуля начинаешь ходить по колонкам БД? И почему не сделать OLEDB подключение: http://www.connectionstrings.c... b-oraoledb 0