问题描述
我在更改密码时遇到问题。我想通过确认旧密码然后更改密码来简化它。这是我的代码
Private Sub btnCChangePass_Click(sender As Object,e As EventArgs) Handles btnCChangePass.Click
Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\VB.net\My Projects\InventoryData.accdb"
Dim sqlString As String = "Update Cridentials SET [Password] = @pass"
Dim pass As String = "SELECT [Password] from Cridentials"
Dim conn As New OleDbConnection(ConnString)
conn.open()
'this part is my problem
If (txtCOldPass.Text <> pass) Then
MsgBox("Wrong Old Password",MsgBoxStyle.Critical,"Password not matched")
ElseIf txtCOldPass.Text = nothing And txtCNewPass.Text = nothing And txtCConPass.Text = nothing Then
MsgBox("Please submit the following information","Incomplete")
ElseIf txtCNewPass.Text <> txtCConPass.Text Then
MsgBox("New Password and Confirm Password in not matached","Incomplete")
Else
Using con As New OleDbConnection(ConnString)
Using cmd As New OleDbCommand(sqlString,con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@pass",txtCNewPass.Text)
con.open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
MsgBox("Changing password Success!",MsgBoxStyle.information,"Successs!")
Me.Close()
Form1.Show()
End If
txtCOldPass.Focus()
txtCOldPass.Clear()
txtCNewPass.Clear()
txtCConPass.Clear()
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)