更新列表框中的選定行 - 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> " 

我不能建議更多，因爲我們不知道什麼應該是你的標準。 只有你說出來。