[عبدالله اااا]

السلام عليكم انا عملت برنامج بالفيجوال بيسك وقاعدة بيانات sql server في نموذج تغيير كلمة المرور يحتوي على 4 تيكست بوكس 
 وهذا كود تغيير كلمة المرور من اختار اضغط على الزر تضضهر النافذة الموجوده بالصوره


   Try
            If txtid.Text = "" Then
                MsgBox("من فضلك ادخل اسم المستخدم")
            ElseIf txtpass.Text = "" Then
                MsgBox("من فضلك ادخل كلمة المرور الحالية")
            ElseIf TextBox3.Text = "" Then
                MsgBox("من فضلك ادخل كلمة المرور الجديدة")
            ElseIf TextBox4.Text = "" Then
                MsgBox("من فضلك أعد كتابة كلمة المرور الجديدة")
            Else
                MsgBox("done")


                Dim idname As String = ""
                Dim pw As String = ""

                Dim STR = "select * from admin Where ID='" & txtid.Text
                Dim adp = New SqlDataAdapter(STR, sqlcon)
                Dim Ds = New DataSet
                adp.Fill(Ds)
                Dim DT As DataTable
                DT = Ds.Tables(0)
                If DT.Rows.Count <> 0 Then
                    idname = (DT.Rows(0).Item("id"))
                    pw = (DT.Rows(0).Item("password"))

                End If
                If idname = txtid.Text And pw = txtpass.Text Then
                    Dim sqlpic = "update admin set password=@password  where  id ='" & (txtid.Text) & "'"
                    Dim cmdpic As New SqlCommand(sqlpic, sqlcon)
                    cmdpic.Parameters.Add(New SqlParameter("@password", TextBox3.Text))
                    cmdpic.ExecuteNonQuery()
                    MsgBox("تم تغيير كلمة المرور بنجاح")
                    Me.Hide()
                    Form3.Show()
                Else
                    MsgBox("المعلومات المدخلة خاطئة")
                End If
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message, "info")
        End Try

[أحمد النجار]

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

اعتقد ممكن المشكلة في عدم غلق التنصيص في الجملة

كود :

Dim STR = "select * from admin Where ID='" & txtid.Text

خليها

كود :

"'" &  Dim STR = "select * from admin Where ID='" & txtid.Text

[أبوبكر سويدان]

الخطأ في جملة SQL، أنت فتحت تنصيصاً ولم تغلقه.

[عبدالله اااا]

(14-02-19, 08:07 AM)أحمد النجارغلقته بس تضهر هاي النافذة كتب : وعليكم السلام ورحمة الله وبركاته

اعتقد ممكن المشكلة في عدم غلق التنصيص في الجملة

كود :

Dim STR = "select * from admin Where ID='" & txtid.Text

خليها

كود :

"'" &  Dim STR = "select * from admin Where ID='" & txtid.Text

---

(14-02-19, 01:39 PM)أبوبكر سويدانغلقته بس تضهر هاي النافذة كتب : الخطأ في جملة SQL، أنت فتحت تنصيصاً ولم تغلقه.

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته
أخي الكريم عبد الله .. اضافة لما تم اقتراحه من السادة الاكارم بارك الله فيهم
قم بوضع الكود من جديد لو سمحت من خلال المكان المخصص لادراج الاكواد .. مع الاشارة الى عدم وجود الكلمة المشار اليها برسالة الخطا داخل الاكواد .. مع ملاحظة جملة ال update لديك و الانتباه اذا كانت الحقول من نوع أرقام سينتج لديك اخطاء علامات التنصيص هذه ..
و لو ممكن تضع مثالا مشابها بالاكسس
تحياتي