(VBA) Объявить массив таблицы в sql при использовании внешних переменных в vba

Привет, ниже код, который, похоже, не работает. Я пытался запустить 2 отдельных запроса. первый хранится в истории переменных, но второй в Open_Resolved не работает. Я изучал и читал, что выполнение будет работать, а это не так. Я новичок в VBA, и я знаю, что мой запрос работает, проверяя его в моем sql workbench. Если бы кто-нибудь мог пролить свет на то, как исправить это, я бы очень признателен.

спасибо

-KL

Private Sub CommandButton1_Click() 'Declare variables' Dim TheSheet As Worksheet Set TheSheet = Sheets("Sheet2") QueryType = TheSheet.Cells(25, 4) Set objMyConn = New ADODB.Connection Set objMyRecordset = New ADODB.Recordset Dim History As String Dim Open_Resolved As String 'Open Connection' objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=XXXXX;" _ & "Initial Catalog=XXXXX;User ID=XXXXXXX;Password=XXXXXXXXX;" objMyConn.Open Sheets("Sheet2").Range("J9:O600").ClearContents If ComboBox1.ListCount = 1 Or ComboBox1.Value = "" Then Exit Sub End If 'THIS CREATES A STRING LIST OF THE VALUES IN THE VARIABLE FROM COMBOBOX' bnum = "" If ComboBox1.Value = "Select All" Then For intComboItem = 1 To ComboBox1.ListCount - 1 Id_split = Split(ComboBox1.List(intComboItem), " ") If (bnum <> "") Then bnum = bnum & " , " 'POSSIBLY CONVERT TO INT and feed it in that way.' End If bnum = bnum & "(" & Id_split(0) & ")" Next Else Id_split = Split(ComboBox1.Value, " ") bnum = "(" & Id_split(0) & ")" End If History = "SELECT id, time, team, importance, status, assigned " & _ "FROM XXXXXXXXXXX " & _ "WHERE id in (" & bnum & ")" & _ "ORDER BY id, time" Open_Resolved = "SET NOCOUNT ON " _ & "DECLARE @blist table (id int);" _ & "insert into @blist values" & bnum & ";" _ & "SELECT id, time, team, importance, status, assigned " _ & "FROM XXXXXXXXXXXXX" _ & "WHERE Team like 'winner % name%' " _ & "AND id in (SELECT id FROM @blist) " _ & "ORDER BY id, time" 'objMyRecordset.Open ' 'Open Recordset' Set objMyRecordset.ActiveConnection = objMyConn objMyConn.Execute bugOpen_Resolved If QueryType = "History" Then objMyRecordset.Open History If QueryType = "OPEN/RESOLVED" Then objMyRecordset.Open Open_Resolved ActiveSheet.Range("J9:O600").CopyFromRecordset (objMyRecordset) End Sub 

  • Как экспортировать данные в Excel на SQL Server с помощью SQL-заданий
  • Не удается подключиться от Excel к удаленному OLAP (SSAS) «не удалось установить соединение, потому что целевая машина активно отказала ему»
  • Может ли он передать переменную VBA в инструкцию ADO SQL?
  • Создать идентификатор группы на основе описания
  • Переименование листов в Excel через экспорт из Visual Studio 2010
  • Отправить E-Mail после определенного интервала в SQL-Database Mail
  • запрос в ADODB, имя столбца dot il
  • Использование COUNTIF по столбцу вместо строк для нескольких раундов
  • Как сортировать столбцы даты по дате, а не в алфавитном порядке при подключении к табличной модели SSAS?
  • Функция Oracle Query Group не разрешена здесь
  • Удалить конечное пространство при использовании «в столбце Excel»
  • Interesting Posts

    Получить значение пользователя из диалогового окна Overwrite

    Python – чтение последнего добавленного или измененного файла excel (или другого формата)

    Excel VBA: событие ComboBox_Click запускается для любых изменений на любом рабочем листе

    VBA Если с двумя критериями в двух столбцах

    Отображение заголовка строки для самых высоких значений X в каждой строке (для списка ранжирования)

    org.apache.poi.openxml4j.exceptions.InvalidOperationException: не удается открыть указанный файл:

    Формат пользовательского номера: запятая, предшествующая двум последним цифрам

    OpenPyXl удаляет формулы загрузки

    Вытягивание строк переменной длины из имени файла с помощью VBA

    openxlsx :: write.xlsx бросает неиспользуемую ошибку аргумента для startRow

    Скопировать видимый номер в ячейку, а не фактический номер?

    Запуск определенного макроса замерзает Microsoft Excel

    Игнорировать скрытые строки над активными ячейками для сравнения активных ячеек с первой соответствующей видимой ячейкой выше

    как загрузить .xlsb в IOS

    Countifs со ссылкой в ​​массиве

    Давайте будем гением компьютера.