Данные из Excel отправить в БД Oracle при помощи SQL-запроса

@a.novikov · Регистрация: 16.12.2010

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

Вот нашел тему, немного похожую на мою. Мне нужно данные из excel отправить в базу данных oracle при помощи sql-запроса, написанного в коде VBA. Я уже умею делать select из vba, а вот с insert - пока не знаю

вот пример select

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
            "ODBC;DSN=oracle;UID=логин;PWD=пароль;DBQ=база данных;DBA=W;APA=T;EXC=F;FEN=T;QTO=F;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSucc" _
            ), Array("essful;MTS=F;MDI=T;CSR=F;FWC=F;PFC=10;TLO=0;")), Destination:=Sheets("sql").Range("A1"))
            .CommandText = DSQLQuery
            .Name = "Запрос из oracle (not sharable)"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=False
          End With

@IvanOK · 21.02.2012, 19:57

a.novikov, возможен вариан выгрузить ексел в промежуточний файл то ли ексель то ли дбф а потом уже из промежуточной папки в базу даних оракл.......ето ти уже наверника умееш

@a.novikov · 22.02.2012, 17:37 **[ТС]**

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

ето ти уже наверника умееш

Умею, но тут хотелось сделать автоматическое обновление данных. В общем, есть БД Oracle, в которую, по мере появления новых данных, нужно устанавливать определенный признак для этих данных. Так как кроме VBA ни в чем, пока что, не соображаю (да и в VBA не очень

), то хотелось бы это сделать при помощи excel. Для этого нужно подключение при помощи excel к БД и уже с его помощью обновлять данные sql-запросом

@tehkonst · 22.02.2012, 20:22

Сообщение от a.novikov

вот пример select

Что-то не понятно, где в коде sql запрос.

Вот здесь ряд статей - http://www.askit.ru/custom/vba... basics.htm
доступно написано как создать соединение, подключиться и отправить запрос.

Вот пример оттуда

Visual Basic
1
2
3
4
5
6
7
8
9
Dim cn As New ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=MSDASQL.1;Data Source=ExcelVolumes"
cn.Open
Dim rs As New ADODB.Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select * from customers", cn
msgBox rs.GetString
rs.close

Соответственно нужно поменять строчку подключения ConnectionString на свою и sql-запрос на insert

SQL
1
INSERT INTO <table_name> (<column_name>) VALUES (<value>);

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	21.02.2012, 19:57
	a.novikov, возможен вариан выгрузить ексел в промежуточний файл то ли ексель то ли дбф а потом уже из промежуточной папки в базу даних оракл.......ето ти уже наверника умееш 0