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

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

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

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

вот пример select

Visual Basic

        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

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>);

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

@a.novikov 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 11
	22.02.2012, 17:37 [ТС]	3
	Сообщение от IvanOK ето ти уже наверника умееш Умею, но тут хотелось сделать автоматическое обновление данных. В общем, есть БД Oracle, в которую, по мере появления новых данных, нужно устанавливать определенный признак для этих данных. Так как кроме VBA ни в чем, пока что, не соображаю (да и в VBA не очень ), то хотелось бы это сделать при помощи excel. Для этого нужно подключение при помощи excel к БД и уже с его помощью обновлять данные sql-запросом 0

	22.02.2012, 20:22