Private Sub BTNunlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNunlock.Click Try sqlsa = "UPDATE MAS_Users set islocked='0' WHERE empno='" & TBempno.Text & "'" con.NoReturnQuery(sqlsa) Catch ex As Exception MsgBox("Error!", MsgBoxStyle.Critical) End Try End Sub
Dim result As DialogResult = MessageBox.Show("Confirm update?", _ "Title", _ MessageBoxButtons.YesNo) If(result == DialogResult.OK) Update data here Else Nothing End If
Dim ask As MsgBoxResult = MsgBox("What you Want", MsgBoxStyle.YesNo) If ask = MsgBoxResult.Yes Then End If
Dim ans as string ans= Msgbox "Confirm Update", vbYesNo if ans= vbYes then 'code to update end if
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)