SQL VBA 中的 WHERE 子句：使用數組變量

Question

如何將數組（存儲在變量中）插入 VBA 中 SQL 語句的 WHERE 子句中？

recordset1.Open "SELECT * FROM [Table] WHERE [NettingSet] = '" & varRecord & "'"

原始字符串是：

recordset1.Open "SELECT Class FROM [BCBS279_NetSet_Basics] WHERE [LoadingID] =" & LId & "And [NettingSet] = '" & varRecord & "'"

我收到此錯誤：

運行時錯誤“13”：類型不匹配

大批：

Dim varRecord As Variant
varRecord = slide7_netset_info_ID.GetRows(10, , 0)

這個數組只包含字符串：

 Example_1, Example_2, Example_3, ..., Example_10

知道如何解決嗎？

Answer 1

您要在SQL中使用IN ，然后在VBA中使用“ join”構造IN列表：

". . . WHERE [Name] IN ('" & Join(varRecord, "', '") & "')"