تفضل التعديل
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=../Database.mdb")
If txtNewPass.Text <> txtNewPassConf.Text Then
MsgBox("Passwords do not match!")
txtOldPass.Text = ""
txtNewPass.Text = ""
txtNewPassConf.Text = ""
txtOldPass.Select()
Return
End If
Using cmd As New OleDbCommand("UPDATE [Users] SET [PW]=@newPW WHERE ([UN]=@UN) AND ([PW]=@PW)", con)
cmd.Parameters.AddWithValue("@newPW", txtNewPass.Text)
cmd.Parameters.AddWithValue("@UN", cmbUser.Text)
cmd.Parameters.AddWithValue("@PW", txtOldPass.Text)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret As Integer = cmd.ExecuteNonQuery
con.Close()
If ret = 0 Then
txtOldPass.Text = ""
txtNewPass.Text = ""
txtNewPassConf.Text = ""
txtOldPass.Select()
MsgBox("Password is incorrect!")
Else
txtOldPass.Text = ""
txtNewPass.Text = ""
txtNewPassConf.Text = ""
MsgBox("You password has been changed!")
End If
End Using
