[جميل علي]

أعتذر لتأخري عن الرد لأسباب صحية

أسأل الله لي ولكم وسائر المسلمين الصحة والعافية

أخي الغالي ابوعمر يعلم الله وحده اني تقبلت عذرك واقدر ماتقوم به لمساعدت الاخرين

أخي الحبيب مهموم اشكرك على ما اضفت للموضوع.

تم تعديل الكود ليصبح

PHP كود :

Dim str As String = ("Update [zarsw] set [alaism]=@alaism,[aljinsia]=@aljinsia,[nawealhuia]=@nawealhuia,[raqmalhuia]=@raqmalhuia,[masdaralhuia]=@masdaralhuia,[tarikhalhuia]=@tarikhalhuia,[raqmlawhatalssayara]=@raqmlawhatalssayara,[eadadalmurafiqin]=@eadadalmurafiqin,[alshshakhsalmuradziaratih]=@alshshakhsalmuradziaratih,[alsknalqismalshsharaka]=@alsknalqismalshsharaka,[raqmkartalzzayir]=@raqmkartalzzayir,[tarikhalddukhul]=@tarikhalddukhul,[waqtalddukhul]=@waqtalddukhul,[aismmadkhalbayanatalddu]=@aismmadkhalbayanatalddu,[raqmmadkhalbayanatalddukhul]=@raqmmadkhalbayanatalddukhul,[tarikhalkhuruj]=@tarikhalkhuruj,[waqtalkhuruj]=@waqtalkhuruj,[aismmadkhalbayanatalkhuruj]=@aismmadkhalbayanatalkhuruj,[raqmmadkhalbayanatalkhuruj]=@raqmmadkhalbayanatalkhuruj where [alrraqm] =" & Val(alrraqm))
        Dim cmd As New OleDbCommand(str, co)

        cmd.Parameters.AddWithValue("@alaism", TextBox1.Text)
        cmd.Parameters.AddWithValue("@aljinsia", TextBox2.Text)
        cmd.Parameters.AddWithValue("@nawealhuia", TextBox3.Text)
        cmd.Parameters.AddWithValue("@raqmalhuia", TextBox4.Text)
        cmd.Parameters.AddWithValue("@masdaralhuia", TextBox5.Text)
        cmd.Parameters.AddWithValue("@tarikhalhuia", TextBox6.Text)
        cmd.Parameters.AddWithValue("@raqmlawhatalssayara", TextBox7.Text)
        cmd.Parameters.AddWithValue("@eadadalmurafiqin", TextBox8.Text)
        cmd.Parameters.AddWithValue("@alshshakhsalmuradziaratih", TextBox9.Text)
        cmd.Parameters.AddWithValue("@alsknalqismalshsharaka", TextBox10.Text)
        cmd.Parameters.AddWithValue("@raqmkartalzzayir", TextBox11.Text)
        cmd.Parameters.AddWithValue("@tarikhalddukhul", TextBox12.Text)
        cmd.Parameters.AddWithValue("@waqtalddukhul", TextBox13.Text)
        cmd.Parameters.AddWithValue("@aismmadkhalbayanatalddu", TextBox14.Text)
        cmd.Parameters.AddWithValue("@raqmmadkhalbayanatalddukhul", TextBox15.Text)
        cmd.Parameters.AddWithValue("@tarikhalkhuruj", TextBox16.Text)
        cmd.Parameters.AddWithValue("@waqtalkhuruj", TextBox17.Text)
        cmd.Parameters.AddWithValue("@aismmadkhalbayanatalkhuruj", TextBox18.Text)
        cmd.Parameters.AddWithValue("@raqmmadkhalbayanatalkhuruj", TextBox19.Text)

        cmd.Connection = co

        co.Open()

        cmd.ExecuteNonQuery()

        co.Close()

        MsgBox("  تمت تعديل الزائر بنجاح")


        Close()
        Form2.Show() 


أصبح الان عند الضغط على زر حفظ التعديلات تظهر رسالة تم التعديل 

بدون اظهار اي خطاء ولكن الداتا جريد وقاعدة البيانات لا تتأثر بهذا التعديل

يعني تكون البيانات مثل ماهي قبل التعديل

وشكراً لكم