Сделать SQL-запрос таблицы с параметрами в Excel VBA - PullRequest
0 голосов
/ 26 марта 2019

Я пытаюсь создать SQL-запрос в Excel VBA, который будет создавать таблицу в Access на основе параметров ячейки в Excel.Обычно я мог использовать запрос на выполнение для запуска предварительно созданного запроса в базе данных, но, поскольку мне нужно изменить его на основе параметров, введенных в ячейку, мне нужно сделать это таким образом.Параметр будет только для критериев Где.В этом примере мы можем сказать, что он также выбирает фиксированные поля «Продажи» и «Продукт», а поле «Где» - «Модель».Мне также нужно будет удалить существующую таблицу с тем же именем, поскольку я столкнулся с ошибкой, что таблица уже существует.Как бы выглядел код VBA для этого?

Step 1: Delete table with the same name
Step 2: Create a new table in Access with the "Where" criteria pointing to a cell.
Sub CreateTable()
On Error GoTo SubError
    Const DbLoc As String = "C:\Folder to Excel\Database1.accdb"
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim recCount As Long
    Dim SQL As String


    Set xlBook = ActiveWorkbook
    Set xlSheet = xlBook.Worksheets(1)


    Set db = OpenDatabase(DbLoc)

    SQL = "SELECT Sales, Product " & _
    "FROM Table1 " & _
    "WHERE Model IN (1, 2);"

Если бы я мог передать параметры в существующий запрос make table, я тоже был бы рад!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...