Использовать функцию доступа в сквозном запросе SQL

Что ж, поскольку sql отправляется в Oracle «необработанным», то, конечно, серверная база данных не знает, что делать с функцией VBA.

Итак, одним из возможных решений было бы воссоздать функцию VBA как функцию оракула масштабирования.

Однако, поскольку данная функция не имеет параметров, мы можем предположить, что функция возвращает заданное значение - чертовски близко к статическому, или значение, которое вы хотите / хотите передать в oracle.

Таким образом, этот подход означает, что мы должны разрешить функцию на стороне клиента ДО того, как мы попытаемся использовать или выполнить этот запрос PT.

Итак, я рекомендую вам взять приведенный выше запрос PT и скопировать его. (сторона доступа). Теперь у вас есть два запроса PT.

Теперь в коде мы берем sql, модифицируем его, вставляем во второй запрос, и теперь вы можете запустить + использовать этот сквозной запрос (для отчета, наборов записей, форм или чего-то еще)

Итак, ваш код будет выглядеть так:

Sub MyOraclePT()

  Dim strSQL     As String

  strSQL = CurrentDb.QueryDefs("PT1").SQL    ' <-- this change

  strSQL = Replace(strSQL, "GET_QAQC_JOB()", GET_QAQC_JOB())

  CurrentDb.QueryDefs("PT2").SQL = strSQL

  ' now you can open or use this query.

  '
  Dim rst     As DAO.Recordset
  Set rst = CurrentDb.OpenRecordset("PT2")

  ' or open a report/form based on that PT2 query
  ' such as
  DoCmd.OpenReport "MyReport", acViewPreview


End Sub

Итак, мы использовали два запроса PT, потому что первый - это sql, который у вас есть, как указано выше. Затем мы модифицируем второй запрос PT, чтобы заменить значение функции фактическим значением функции.

Вышеупомянутое предполагает, что функция является числом (а не строкой). Если бы столбец CC_QAQC_SPEC_MASTER.JOBNUMBER был строкой, то вы могли бы заключить имя функции в одинарные кавычки в первом запросе PT.

Я также отмечаю ошибку / синтаксическую ошибку, так как у вас есть:

WHERE 
    CC_QAQC_SPEC_MASTER.JOBNUMBER)=GET_QAQC_JOB()

Выше я вижу случайное ")" - вы хотите это исправить.

Предполагая, что функция является функцией, написанной на VBA в Access, вы не можете вызвать ее из запроса. Я считаю, что DML в запросе полностью отправляется исходной системе, в данном случае Oracle. Oracle не знает, что это за функция, и ошибки.

Вариант-1: отправьте запрос через ADO.NET в VBA.

Откажитесь от объектов сквозного запроса в Access. Выполните запрос от VBA, подключившись к Oracle через ADO или что-то в этом роде. Существует множество ресурсов о том, как использовать ADO для извлечения данных из внешних источников данных, таких как Как открыть ADO Connection и объекты Recordset. Вот пример использования DAO.

Вариант 2: заключить сквозной запрос в другой запрос

Access позволяет создавать запросы, вызывающие другие запросы. Создайте сквозной запрос без предиката WHERE. Это сквозной запрос. Создайте другой запрос доступа, который вызывает сквозной запрос. Это запрос на упаковку. Запрос-оболочка (начиная с его собственного SQL Access) должен иметь параметр, который вы используете для фильтрации набора результатов.

Полное раскрытие. Я не пробовал этого с Oracle.

Теперь, если сквозной запрос захватывает много данных. Этот вариант не работает.

Вариант 3: динамическое создание сквозного запроса

У вас есть событие (нажатие кнопки или что-то еще), вызывающее подпроцедуру VBA, которая динамически создает и назначает SQL для запроса:

Public Sub foo()
    Let qaqc_job_number = GET_QAQC_JOB()
    Set Query = CurrentDb.QueryDefs("<your-pass-thru-function-name>")

    Let sql_job_data = "SELECT" & _
                       "CC_QAQC_SPEC_MASTER.JOBNUMBER, " & _
                       "CC_QAQC_SPEC_MASTER.SPECSECTION, " & _
                       "CC_QAQC_SPEC_MASTER.SPECDESCRIPTION, " & _
                       "CC_QAQC_SPEC_MASTER.ID " & _
                       "FROM " & _
                       "CC_QAQC_SPEC_MASTER " & _
                       "WHERE " & _
                       "CC_QAQC_SPEC_MASTER.JOBNUMBER)= " & qaqc_job_number & " " & _
                       "Order BY " & _
                       "CC_QAQC_SPEC_MASTER.SPECSECTION, " & _
                       "CC_QAQC_SPEC_MASTER.SPECDESCRIPTION; "

    Let Query.Sql = sql_job_data

End Sub

Затем вы запускаете запрос.

Все, что есть в SQL, который вы вставляете в этот объект запроса Access, должно существовать в Oracle и ТОЛЬКО в Oracle.