Always I Have This MSG when i do update
Can Any one Help me. ??????????
Expand|Select|Wrap|Line Numbers
- Public Sub Update(ByVal Code As Integer, _
- ByVal Desc As String, _
- ByVal Type As String, _
- ByVal Msg As Boolean)
- Using Cmd As New OleDbCommand
- clsConn.OpenConn()
- Cmd.CommandText = "Update [Users] Set " & _
- "[UserDesc] = '" & Desc.ToString & "', " & _
- "[UserType] = '" & Type.ToString & "' " & _
- "Where [UserCode] = '" & Code & "'"
- clsConn.OpenConn()
- Cmd.Connection = clsConn.Conn
- Cmd.ExecuteNonQuery()
- clsConn.CloseConn()
- End Using
- If Msg = True Then MsgBox("Update Completed", MsgBoxStyle.Information, " ")
- End Sub