Блог

Я пытаюсь передать список параметров SQL-запросу в VBA, у меня есть таблица Excel со списком кодов в динамическом диапазоне, может быть 2, может быть 2000. Затем я хочу вернуть все данные из SQL, где коды совпадают. Ниже я пытаюсь определить параметр ADODB как массив, затем я хочу передать его в SQL.

Однако определение переменной параметра как диапазона приводит к несоответствию типов. Или объект требуется, если я не определяю как массив;

 Dim conn As New ADODB.Connection
conn.Open "Provider=SQLOLEDB; Data Source=XXXXXXXXX; Initial Catalog=CDB; Integrated Security=SSPI;"
Dim code(0) As ADODB.Parameter
Set code(0) = wb.ActiveSheet.Range(Cells(2, colCode), Cells(rowCount, colCode)).Value
'Dim code As ADODB.Parameter
'Set code = wb.ActiveSheet.Range(Cells(2, colCode), Cells(rowCount, colCode)).Value
'Dim code(rowCount - 1) As ADODB.Parameter
'Set code(rowCount - 1) = wb.ActiveSheet.Range(Cells(2, colCode), Cells(rowCount, colCode)).Value
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
With cmd
    .ActiveConnection = conn
    .CommandType = adCmdText
    .Parameters.Append .CreateParameter("@code", adVarChar, adParamInput, 10000, code)
    .CommandTimeout = 0
End With

sql = "SELECT * FROM table WHERE code in (?);"
cmd.CommandText = sql
Set rs = cmd.Execute