Подключение Excel VBA к оракулу DB с использованием ODBC (продолжение 37339682)

Question

Этот вопрос является продолжением вопроса 37339682: Подключение Excel VBA к Oracle DB с использованием 'ODBC'

В приведенном выше вопросе есть пошаговое руководство по подключению Excel к ODBC. (База данных Oracle) Я успешно подключился к базе данных Oracle и получил таблицу.

Мои вопросы: (1) Как написать код Excel VBA, чтобы он мог читать SQL-запрос из ячейки и возвращать результат SQL-запроса в таблицу. Я думаю, мне нужно настроить «объект базы данных» в коде Excel VBA.

(2) Если такой код должен выполняться в Microsoft Access. Насколько это было бы иначе?

Answer 1

Не объект базы данных, а объект набора записей

 Sub Example
 Dim rs as New Recordset  'the new is important
 Dim Conn as New Connection
 Conn.connectionstring = "whatever"  

'см. Здесь https://www.connectionstrings.com/microsoft-odbc-for-oracle/

 Conn.open
 Dim sql as string
 sql = "whatever"  'could be text in cell ie sql = range("g1").text
 rs.open sql,conn
 if not rs.eof then  'if there's any data then
     Activesheet.range("a2").copyfromrecordset rs  'puts data into cell
 End If
 rs.close
 conn.close
 end sub