منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة الحفظ بعد التعديل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
السلام عليكم ورحمة الله وبركاتة

يا أخوان عندي مشكلة ان شاء الله بسيطه 

في زر الحفظ بعد التعديل يظهر خطاء كما في الصورة



وهذا الكود
PHP كود :
 Dim id As Integer CInt(Form2.DataGridView1(0Form2.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.TextTextBox2.TextTextBox3.TextTextBox4.TextTextBox5.TextTextBox6.TextTextBox7.TextTextBox8.TextTextBox9.TextTextBox10.TextTextBox11.TextTextBox12.TextTextBox13.TextTextBox14.TextTextBox15.TextTextBox16.TextTextBox17.TextTextBox18.TextTextBox19.Textid)

 
       Dim cmd As New OleDbCommand(strco)
 
       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() 


اتمنى اجد حل لديكم

وشكراً لكم
شكل سبب المشكلة إن الجريد فارغة تماما ما فيها اي بيانات
الحل مبدئياُ قبل
Dim id As Integer = CInt(Form2.DataGridView1(0, Form2.DataGridView1.SelectedRows(0).Index).Value.ToString())
اكتب الشرط التالي
if form.DataGridView1.rows.count=0 then exit sub
حياك أخوي ابوعمر
الجريد موجود فيه بيانات
وتم أستخدام الشرط
وعند الضغط على زر حفظ التعديل
صحيح ماظهر خطاء ولكن ماتم الحفظ
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
أخوي أبو عمر اذا تقصد الجريد

فهو ليس في نفس الفورم
طيب هل انت تغلق الفورم 2؟ والا يظل مفتوح؟
يتم أغلاق الفورم 2

اخوي ابوعمر ممكن تفتح الرسائل

لكي ارفق المشروع لك على الخاص
شوف اختصارا لكل البوستات
اضف موديول وعرف فيه هذا المتغير
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

ودع باقي الكود زي ماهو اذا كان سليم

إذا بقيت تحدث الموضوع على طول راح تلاقيني معك للآخر _إن شاء الله _ واعتذر بالنسبة للرسائل اخي الكريم فسامحني فضلاً
هلا اخوي ابوعمر

بخصوص الرسائل احترم رغبتك والله يجزاك خير

تم التطبيق االحل

ولكن بعد الضغط على زر الحفظ
تظهر رسالة الحفظ بنجاح

ولكن لم تتم حفظ التعديلات التي اجريتها

بمعنى البيانات الجريد مثل ماهي

وشكرا
الكود أعلاه لحفظ جديد أم لحفظ تعديل على بيانات سابقة؟

يا ليت تخليك متابع موضوعك الله يبارك فيك
الصفحات : 1 2 3