+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] من فضلكم ساعدوني (/showthread.php?tid=19945)
من فضلكم ساعدوني - zinab ali - 10-04-17
السلام عليكم
انا اصمم نظام وطلبو مني ان اضيف ميزة ان المستخدمين الي يستخدمو النظام بأمكانهم يغيرو كلمة المرور الخاصة بيهم
وعندي جدول 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(sql, con)
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(cmdText, con)
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
RE: من فضلكم ساعدوني - abdualla - 10-04-17
تفضل التعديل
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
RE: من فضلكم ساعدوني - zinab ali - 10-04-17
(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
بارك الله فيييك وجزاك الله الف خير على المساعدة الكود اتفعل واغير كلمة المرور