更新列表框中的选定行 - Visual Basic 6

Question

我正在使用VB6，这里是我用来更新列表框中所选行的代码，但不幸的是，代码更新所有字段时未满足条件。

任何帮助知道这个代码有什么问题和任何建议来解决这个问题。

Dim i As Integer 

    For i = 0 To List1.ListCount - 1 
     If List1.Selected(i) Then 
     statement = "UPDATE Customer SET Flag = '1' " 
     End If 
con.Execute statement, , adCmdText 
Next i 

Answer 1

由于缺少标准，您的代码会更新所有记录。 的SQL语句应该是：

statement = "UPDATE Customer SET Flag = '1' WHERE <your_criteria> " 

我不能建议更多，因为我们不知道什么应该是你的标准。 只有你说出来。