從Access 2010表單更新多個SQL Server列

Question

我有一個鏈接到SQL Server表的Access數據庫。 在Access中，我有一個帶有兩個多選列表框的表單（讓它們分別稱為值x和y）和一個文本框（z）。

選擇值並按下按鈕時，我希望表單更新值與表單中的行匹配的行：

UPDATE tableName SET ColumnToUpdate = [z] 
WHERE Column1 IN ([x1,x2...xn])
AND Column2 IN ([Y1,y2...yn])

有沒有這樣做的方法？

Answer 1

您可以枚舉每個ListBox中的選定項並構建SQL。 像這樣

sql = "UPDATE tableName SET ColumnToUpdate = '" & txtZ & "' "
sql = sql & "WHERE Column1 IN (" & GetValuesFromList(listBoxX) & ") "
sql = sql & "AND Column2 IN (" & GetValuesFromList(listBoxy) & ")"

和功能GetValuesFromList：

Private Function GetValuesFromList(ListBox lst) as String
Dim Items As String
Dim Item As Variant

    Items = ""
    For Each Item In lst.ItemsSelected
        Items = Items & lst.ItemData(Item) & ","
    Next
    GetValuesFromList = Left(Items, Len(Items) - 1)
End Function

如果在列表框中選擇的值是字符串值，則應修改該函數以連接引號。