[مبرمج أوتار]

السلام عليكم ورحمة الله وبركاته

ممكن تزويدي بكود تحقق من الرقم السري السابق

هذا الكود المستخدم :-

كود :

''======================================================================
            If Textpass1.Text <>  Then
                MessageBox.Show("كلمة المرور السابقة خـاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                Exit Sub
            End If

            '======================================================================
            If Textpass2.Text <> Textpass3.Text Then
                MessageBox.Show("عدم تطابق كلمة المرور الجديده", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                Exit Sub
            End If

            Dim updataOk As Boolean = winClass.SQLExicute("UPDATE Usaers SET Password ='" & Textpass2.Text & "' WHERE Password = " & Textpass1.Text)
            If updataOk = True Then
                MsgBox("تمت عملية تعديل البيانات بنجاح", MsgBoxStyle.Information, "تأكيد عملية التعديل")
                ClearAll()
            Else
                MsgBox("الرجاء تأكيد من البيانات المدخله", MsgBoxStyle.Critical, "خطأ")
                ClearAll()
            End If