[F.H.M]

الله يعطيك العافية أخ أنس

عملت مثل ماهو موجود بالموقع إلي أرسلته

تطلع لي رسالة ( خطأ في بناء جملة update ) بعد الضغط على زر التعديل

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim con As New OleDbConnection()
     Dim cmd As OleDbCommand
     Dim sql = "SELECT UserName, Password FROM UserPass WHERE UserName='" & cmbUser.Text & "' AND Password='" & txtOldPass.Text & "'"
     cmd = New OleDbCommand(sql, con)
     con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=alyat1.accdb;Jet OLEDB:Database Password=123456")
     con.Open()
     Dim dr As OleDbDataReader = cmd.ExecuteReader

     Try
         If dr.Read = False Then
             MsgBox("تم إدخال كلمة مرور الحالية غير صحيحة!")
             txtOldPass.Text = ""
             txtNewPass.Text = ""
             txtNewPassConf.Text = ""
         ElseIf txtNewPass.Text <> txtNewPassConf.Text Then
             MsgBox("كلمات المرور الجديدة المدخلة غير متطابقين!")
             txtOldPass.Text = ""
             txtNewPass.Text = ""
             txtNewPassConf.Text = ""
         Else
             'This is where the change password code goes
             Dim cmdText = "UPDATE UserPass SET Password = @Password " & " WHERE UserName = @UserName AND Password = @oldPass"
             dr.Close()
             cmdUpdate = New OleDbCommand(cmdText, con)
             cmdUpdate.Parameters.AddWithValue("@Password", txtNewPass.Text)
             cmdUpdate.Parameters.AddWithValue("@UserName", cmbUser.Text)
             cmdUpdate.Parameters.AddWithValue("@Password", txtOldPass.Text)
             cmdUpdate.ExecuteNonQuery()
             MsgBox("تم تغيير كلمة المرور بنجاح!")
             'cmbUser.Text = ""
             txtOldPass.Text = ""
             txtNewPass.Text = ""
             txtNewPassConf.Text = ""
         End If
     Catch ex As Exception
         MsgBox(ex.Message)
     End Try
     con.Close()
 End Sub