تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] من فضلكم ساعدوني
#1
السلام عليكم
انا اصمم نظام وطلبو مني ان اضيف ميزة ان المستخدمين الي يستخدمو النظام بأمكانهم يغيرو كلمة المرور الخاصة بيهم
وعندي جدول user هدا الي اظيف فيه المستخدمين وطبعا اسم المستخدم(UN) وكلمة المرور (PW)
طبعا صممت فورم يحتوي علي 4 (textbox) الي هما اسم المستخدم الأسم البرمجي(cmbUser), وكلمة المرور القديمةالأسم البرمجي(txtOldPass) , وكلمة المرور الجديدة(txtNewPass) , واعادة كلمة المرور(txtNewPassConf)
 والكود كما موضح بس مش راضي يشتغل ويعطي اخطاء فرجاء منكم حد يشوفلي الاخطاء ولو الغلط في جملة الupdate
PHP كود :
Dim con As OleDbConnection = New OleDbConnection()
Dim cmd As OleDbCommand
Dim sql 
"SELECT UN, PW FROM Users WHERE UN='" cmbUser.Text "' AND PW='" txtOldPass.Text "'"
cmd = New OleDbCommand(sqlcon)
con.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=../Database.mdb")
con.Open()
Dim dr As OleDbDataReader cmd.ExecuteReader

Try
 
  If dr.Read False Then
      MsgBox
("Password is incorrect!")
 
     txtOldPass.Text ""
 
     txtNewPass.Text ""
 
     txtNewPassConf.Text ""
 
  ElseIf txtNewPass.Text <> txtNewPassConf.Text Then
      MsgBox
("Passwords do not match!")
 
     txtOldPass.Text ""
 
     txtNewPass.Text ""
 
     txtNewPassConf.Text ""
 
  Else
 
     
      MsgBox
("You password has been changed!")
 
     cmbUser.SelectedIndex = -1
      txtOldPass
.Text ""
 
     txtNewPass.Text ""
 
     txtNewPassConf.Text ""
 
  End If
Catch 
ex As Exception
   MsgBox
(ex.Message)
End Try
con.Close()
Abdoo Alaswad
Abdoo
Else
 
    
      Dim cmdText 
"UPDATE Users SET PW = @pwd " _
                    
"WHERE UN = @uname AND PW = @oldpwd"
 
     dr.Close()
 
     OleDbCommand cmdUpdate = new OleDbCommand(cmdTextcon)
 
     cmdUpdate.Parameters.AddWithValue("@pwd",txtNewPass.Text
 
     cmdUpdate.Parameters.AddWithValue("@uname",cmbUser.Text
 
     cmdUpdate.Parameters.AddWithValue("@pwd",txtOldPass.Text
 
     cmdUpdate.ExecuteNonQuery()
 
     MsgBox("You password has been changed!")
 
     cmbUser.SelectedIndex = -1
      txtOldPass
.Text ""
 
     txtNewPass.Text ""
 
     txtNewPassConf.Text ""
 
  End If 
الرد
تم الشكر بواسطة:
#2
تفضل التعديل
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 
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , zinab ali
#3
(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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ hassan 14 26 789 15-10-18, 11:35 PM
آخر رد: hassan 14
  مساعدة من فضلكم ! ! hichem1 1 136 17-07-18, 04:35 AM
آخر رد: elgokr
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظظ hassan 14 1 122 26-05-18, 01:24 AM
آخر رد: elgokr
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 405 27-03-18, 03:12 PM
آخر رد: ssayed111
Sad [VB.NET] مساعده من فضلكم جاسم عوط 0 100 03-02-18, 01:29 PM
آخر رد: جاسم عوط
Lightbulb ممكن استفسار من فضلكم Derradji22 0 188 26-11-17, 04:30 AM
آخر رد: Derradji22
Rainbow اين الخبراء من فضلكم Derradji22 3 290 18-11-17, 05:15 PM
آخر رد: ﻣﺒﺘﺪﺉ
Exclamation [Acces2007] مساعدة من الاخوة الخبراء من فضلكم على جناح السرعة Derradji22 0 284 18-11-17, 01:25 AM
آخر رد: Derradji22
  [سؤال] فقدت ملفات المشروع ( مساعده من فضلكم ) mechengr 2 253 31-10-17, 12:15 AM
آخر رد: أسامة السالمي
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 454 15-09-17, 04:38 PM
آخر رد: 0theghost0

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم