Изменить тип подключения - VBA - PullRequest
Новая
       11

Изменить тип подключения - VBA

0 голосов
/ 02 апреля 2019

Я работаю над настройкой соединения с моим запросом, где он просматривает выбранную ячейку, а затем фильтрует на основе этого. Прямо сейчас с моим кодом я получаю «Ошибка во время выполнения« 1004 »: ошибка приложения или объекта» в этой строке кода: «С ActiveWorkbook.Connections (« Запрос из Knowledge4 »). OLEDBConnection». Тип соединения - это запрос к базе данных.

Я пытался изменить тип соединения (например, ODBCConnection), но все еще получаю сообщение об ошибке 

Private Sub Button1_Click()
Dim Sty As String

Sty = Sheets("Item History - Style").Range("F2").Value


With ActiveWorkbook.Connections("Query from Knowledge4").OLEDBConnection
.CommandText = "SELECT *, Website_URL_Prod_Base + krs.Style as ProductLink 
FROM Knowledge.dbo.Knowledge_Reports_Style krsm join  Knowledge_Defaults 
kd on krs.Book = kd.Book where PageLogic IN ('CORE','INSERT') AND 
krs.Style = (" & Sty & ")"
ActiveWorkbook.Connections("Query from Knowledge4").Refresh
End With
End Sub

Я бы хотел иметь фильтр сводной таблицы на основе выбора и в конечном итоге связать результаты с другой сводной таблицей на другом листе.

...