私の SQL テーブルにはビット フィールドがあり、それが 0 に設定されている場合は 1 に更新する必要があります。すべてのエントリに対してフィールドを設定するコードを記述しましたが、最初にそれがすでに 0 になっているかどうかを確認する必要があるため、何が変更されたかをログに記録できます。
これが私がすでに持っているものです:
Public Function Update_User_to_TR(ByVal strUserName As String) As String
Dim myUserName As String = strUserName.Trim
Dim myReturn As String
Try
Dim sql As New SQL
Dim strQuery As String
strQuery = "Update dbo.USERS set user_field_Department_TR = 1 where USER_NAME = '" & myUserName & "'"
myReturn = sql.SQLUpdateWT(strQuery)
Catch ex As Exception
myReturn = ex.ToString
MsgBox(myReturn)
End Try
Return myReturn
End Function