تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة الحفظ بعد التعديل
#11
أبشر

لحفظ تعديل على بيانات سابقة
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة:
#12
حاول الفورم والداتا
الرد }}}
تم الشكر بواسطة:
#13
طيب جميل
شوف انت حاطط الشرط
شوف شكل التعديل يكون كيف
PHP كود :
Dim str As String =("Update Table1 set Field1=@Field1,Field2=@Field2 where TableIndex=" val(Id))
        
Dim cmd As New OleDbCommand(strco)
        
co.Open()
        
cmd.Parameters.AddWithValue("@Field1"TextBox1.Text)
        
cmd.Parameters.AddWithValue("@Field2"TextBox2.Text)
        
cmd.ExecuteNonQuery()
        
co.Close()

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

حاول تعيد وترتب كود حفظ التعديلات زي الكود أعلاه ولا تنسخه زي ماهو انتبه هذا فقط لايصال الفكرة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#14
اخوي ابوعمر 

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

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(strco)

 
       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 









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

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

وشكراً
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة: أبو عمر , أبو عمر
#15
ولا يهمك اقل شي انت رديت غيرك مثل الدخان اذا طار ما نلقاه الا في الايونوسفير
المهم
بالعربي مكتب خطأ في جملة Update
ممكن تنسه جملة الابتديت
Udate ......... where ............... ? فقط

عفوا ما انتبهت انك واضع الكود
لا اخفيك وصلت لمرحلة اطلبك فيها ترفع مشروعك بارك الله فيك
او ترفع فقط سكربت الجدول اللي تعدل عليه
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: جميل علي
#16
الله يعطيك العافية ابوعمر

ماقصرت

كان ودي تفتح الرسائل ولو بشكل مؤقت اوترسلي ايميلك على الخاص
لان عندي مايمنع لوضع المشروع على العام

ولكن أحترم رغبتك

والله يسعدك دنيا و اخرى
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة: أبو عمر
#17
السلام عليكم ورحمة الله

أخي جميل

أولا الشكر كل الشكر لأخي أبوعمر لتفانيه في المساعدة، وكنت وجود وسام آخر يضاف له.

إليك هذه الملاحظات:
أسمال الأعمدة إذا كانت تحتوي مسافة يجب وضع الإسم بين قوسين مربعين مثل [nawe alhuia]
أسماء ال Parameters يجب أن تكون بدون مسافات مثل nawealhuia@
عدم استخدام الرموز في الأسماء مثل / كما استخدمتها في: alskn/alqism/alshsharaka=@alskn/alqism/alshsharaka
الأفضل استخدام الحرف _ فقط بدل المسافة أو الرموز الأخرى

الأفضل تقسم جملة query على عدة أسطر ليسهل مراجتها بوضوح مثل
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
الرد }}}
تم الشكر بواسطة: أبو عمر , جميل علي
#18
أخي الحبيب جميل سألتك مسبقا أن تسامحني وليتك فعلت
أنا لا أعلم ظروفك وأنت لا تعلم ظروفي كذلك
بإذن الله ستحل مشكلتك قريباً
-----------
الأديب الأريب مهموم جزاك الله عني الفردوس الأعلى
لم أكن أعلم بوسام الخوارزمية مع أني فعلا لا أستحق أي شي في هذا المنتدى
لأني صدقا لم أقدم ما يسوغ كوني من كبار المطورين ولا وسام الخوارزمية
هما ثقلان على كاهلي حبذا لو اراحتني الادارة منهما
حفظك الله وعافاك إذا أحد والديك على قيد الحياة أو كلاهما فاطلب منهما الدعاء لك
عودا على بدء
نعم أخي جميل اقرأ ما كتبه الاستاذ مهموم بخصوص تسمية الحقول وما إلى ذلك
رزق الله الجميع العفو والعافية
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: مهموم , جميل علي
#19
السلام عليكم ورحمة الله

أخي أبو عمر

جزاك الله خيراً
الرد }}}
تم الشكر بواسطة: جميل علي
#20
أعتذر لتأخري عن الرد لأسباب صحية
أسأل الله لي ولكم وسائر المسلمين الصحة والعافية

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



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

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(strco)

 
       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() 


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

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

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

وشكراً لكم
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم