+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة الحفظ بعد التعديل (/showthread.php?tid=13745)
مشكلة الحفظ بعد التعديل - جميل علي - 07-11-15
السلام عليكم ورحمة الله وبركاتة
يا أخوان عندي مشكلة ان شاء الله بسيطه
في زر الحفظ بعد التعديل يظهر خطاء كما في الصورة
وهذا الكود
PHP كود :
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
Dim str As String = String.Format("Update [zarsw] set [alaism] = '{1}',[aljinsia] = '{2}',[nawe alhuia] = '{3}',[raqm alhuia] = '{4}',[masdar alhuia] = '{5}',[tarikh alhuia] = '{6}',[raqm lawhat alssayara] = '{7}',[eadad almurafiqin] = '{8}',[alshshakhs almurad ziaratih] = '{9}',[alskn/alqism/alshsharaka] = '{10}',[raqm kart alzzayir] = '{11}',[tarikh alddukhul] = '{12}',[waqt alddukhul] = '{13}',[aism madkhal bayanat alddu] = '{14}',[raqm madkhal bayanat alddukhul] = '{15}',[tarikh alkhuruj] = '{16}',[waqt alkhuruj] = '{17}',[aism madkhal bayanat alkhuruj ]= '{18}',[raqm madkhal bayanat alkhuruj] = '{19}' where [alrraqm]={0}", TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, id)
Dim cmd As New OleDbCommand(str, co)
co.Open()
cmd.ExecuteNonQuery()
co.Close()
MsgBox(" تمت تعديل الزائر بنجاح")
zarsw.Clear()
dazarsw = New OleDbDataAdapter("select * from zarsw", co)
dazarsw.Fill(zarsw)
Form2.DataGridView1.DataSource = zarsw
Close()
Form2.Show()
اتمنى اجد حل لديكم
وشكراً لكم
RE: مشكلة الحفظ بعد التعديل - أبو عمر - 07-11-15
شكل سبب المشكلة إن الجريد فارغة تماما ما فيها اي بيانات
الحل مبدئياُ قبل
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
اكتب الشرط التالي
if form.DataGridView1.rows.count=0 then exit sub
RE: مشكلة الحفظ بعد التعديل - جميل علي - 08-11-15
حياك أخوي ابوعمر
الجريد موجود فيه بيانات
وتم أستخدام الشرط
وعند الضغط على زر حفظ التعديل
صحيح ماظهر خطاء ولكن ماتم الحفظ
RE: مشكلة الحفظ بعد التعديل - أبو عمر - 08-11-15
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
استبدله ب
DataGridView1.CurrentRow.Cells(0).Value
اذا كانت في نفس الفورم
طبعا يعتمد على قيمة أول خلية وليس الاندكس
الاندكس تحصل عليه كالتالي
Dim id As Integer =DataGridView1.CurrentRow.Index
RE: مشكلة الحفظ بعد التعديل - جميل علي - 08-11-15
أخوي أبو عمر اذا تقصد الجريد
فهو ليس في نفس الفورم
RE: مشكلة الحفظ بعد التعديل - أبو عمر - 08-11-15
طيب هل انت تغلق الفورم 2؟ والا يظل مفتوح؟
RE: مشكلة الحفظ بعد التعديل - جميل علي - 08-11-15
يتم أغلاق الفورم 2
اخوي ابوعمر ممكن تفتح الرسائل
لكي ارفق المشروع لك على الخاص
RE: مشكلة الحفظ بعد التعديل - أبو عمر - 08-11-15
شوف اختصارا لكل البوستات
اضف موديول وعرف فيه هذا المتغير
public Id as integer
وفي كود زر الامر اللي بيعرض لك الفورم الاخر ضع
ID =DataGridView1.CurrentRow.Index
اذا كنت تريد الاندكس وهذا لا يستقيم !!!! في حال البيانات بين جدولين
و الصواب
ID=DataGridView1.CurrentRow.Cells(0).Value
وفي كود الحفظ
احذف السطر
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
واحذف جملة الشرط
if form.DataGridView1.rows.count=0 then exit sub
ودع باقي الكود زي ماهو اذا كان سليم
إذا بقيت تحدث الموضوع على طول راح تلاقيني معك للآخر _إن شاء الله _ واعتذر بالنسبة للرسائل اخي الكريم فسامحني فضلاً
RE: مشكلة الحفظ بعد التعديل - جميل علي - 08-11-15
هلا اخوي ابوعمر
بخصوص الرسائل احترم رغبتك والله يجزاك خير
تم التطبيق االحل
ولكن بعد الضغط على زر الحفظ
تظهر رسالة الحفظ بنجاح
ولكن لم تتم حفظ التعديلات التي اجريتها
بمعنى البيانات الجريد مثل ماهي
وشكرا
RE: مشكلة الحفظ بعد التعديل - أبو عمر - 08-11-15
الكود أعلاه لحفظ جديد أم لحفظ تعديل على بيانات سابقة؟
يا ليت تخليك متابع موضوعك الله يبارك فيك