[نيمو]

كود :

       Dim strselect As String = "SELECT * FROM Tble"

       For I As Integer = 0 To GetTable(strselect).Rows.Count - 1
           If GetTable(strselect).Rows(I).Item("Num2") = 0 Then

               Dim strupdate As String = "UPDATE Tble Set Num2 = 1 where num2 = 0"

               RunCommand(strupdate)
           End If

       Next

هذي بقاعدة بيانات اكسس