[جميل علي]

اخوي ابوعمر 

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

PHP كود :

       Dim str As String = ("Update zarsw set alaism=@alaism,aljinsia=@aljinsia,nawe alhuia=@nawe alhuia,raqm alhuia=@raqm alhuia,masdar alhuia=@masdar alhuia,tarikh alhuia=@tarikh alhuia,raqm lawhat alssayara=@raqm lawhat alssayara,eadad almurafiqin=@eadad almurafiqin,alshshakhs almurad ziaratih=@alshshakhs almurad ziaratih,alskn/alqism/alshsharaka=@alskn/alqism/alshsharaka,raqm kart alzzayir=@raqm kart alzzayir,tarikh alddukhul=@tarikh alddukhul,waqt alddukhul=@waqt alddukhul,aism madkhal bayanat alddu=@aism madkhal bayanat alddu,raqm madkhal bayanat alddukhul=@raqm madkhal bayanat alddukhul,tarikh alkhuruj=@tarikh alkhuruj,waqt alkhuruj=@waqt alkhuruj,aism madkhal bayanat alkhuruj=@aism madkhal bayanat alkhuruj,raqm madkhal bayanat alkhuruj,raqm madkhal bayanat alkhuruj where TableIndex=" & Val(Id))
        Dim cmd As New OleDbCommand(str, co)

        cmd.Parameters.AddWithValue("@alaism", TextBox1.Text)
        cmd.Parameters.AddWithValue("@aljinsia", TextBox2.Text)
        cmd.Parameters.AddWithValue("@nawe alhuia", TextBox3.Text)
        cmd.Parameters.AddWithValue("@raqm alhuia", TextBox4.Text)
        cmd.Parameters.AddWithValue("@masdar alhuia", TextBox5.Text)
        cmd.Parameters.AddWithValue("@tarikh alhuia", TextBox6.Text)
        cmd.Parameters.AddWithValue("@raqm lawhat alssayara", TextBox7.Text)
        cmd.Parameters.AddWithValue("@eadad almurafiqin", TextBox8.Text)
        cmd.Parameters.AddWithValue("@alshshakhs almurad ziaratih", TextBox9.Text)
        cmd.Parameters.AddWithValue("@alskn/alqism/alshsharaka", TextBox10.Text)
        cmd.Parameters.AddWithValue("@raqm kart alzzayir", TextBox11.Text)
        cmd.Parameters.AddWithValue("@tarikh alddukhul", TextBox12.Text)
        cmd.Parameters.AddWithValue("@waqt alddukhul", TextBox13.Text)
        cmd.Parameters.AddWithValue("@aism madkhal bayanat alddu", TextBox14.Text)
        cmd.Parameters.AddWithValue("@raqm madkhal bayanat alddukhul", TextBox15.Text)
        cmd.Parameters.AddWithValue("@tarikh alkhuruj", TextBox16.Text)
        cmd.Parameters.AddWithValue("@waqt alkhuruj", TextBox17.Text)
        cmd.Parameters.AddWithValue("@aism madkhal bayanat alkhuruj", TextBox18.Text)
        cmd.Parameters.AddWithValue("@raqm madkhal bayanat alkhuruj", TextBox19.Text)


        cmd.ExecuteNonQuery()
        co.Close()

        MsgBox("  تمت تعديل الزائر بنجاح")
        zarsw.Clear()
        dazarsw = New OleDbDataAdapter("select * from zarsw", co)
        dazarsw.Fill(zarsw)
        Form2.DataGridView1.DataSource = zarsw 


يظهر هذا الخطاء

واعتذر عن تأخري في الرد

وشكراً