[zinab ali]

(10-04-17, 09:41 AM)abdualla كتب : تفضل التعديل

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 


بارك الله فيييك وجزاك الله الف خير على المساعدة الكود اتفعل واغير كلمة المرور