تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل
#1
السلام عليكم ورحمة الله وبركاتة
اخواني
بعد الضغط على زر تعديل اريد ان يقف على نفس الصف وان يحدث البيانات في الداتا جريد فيو
الكود الذي استخدمة يوقف على نفس الصف لكن لا يحدث البيانات في الداتا جريد فيو
مع العلم ان البيانات يكون قد تم تعديلها بقاعدة البيانات
طبعا انا ابحث بزر خاص بالبحث وبعد ذالك اجري التعديل
هذا الكود
كود :
Try
           If myconn.conn.State = ConnectionState.Open Then
               myconn.conn.Close()
           End If
           If ComboBoxDay.SelectedIndex = False Then
               MsgBox("الرجاء ادخل  اليوم", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
               ComboBoxDay.Focus()
               Exit Sub
           End If
           If TxtInformisen.Text = "" Then
               MsgBox("الرجاء ادخل  معلومات الدوام", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
               Exit Sub
               TxtInformisen.Focus()
           End If
           If TxtHouer.Text = "" Then
               MsgBox("الرجاء ادخال  عدد ساعات الاضافي", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
               Exit Sub
               TxtHouer.Focus()
           End If
           myconn.bbay = ComboBoxDay.SelectedItem.ToString()
           Dim updaet As Boolean
           updaet = myconn.SQlExicute("update woork1 set Name_Company= '" & TexCompany.Text & "', day= '" & myconn.bbay & "', alyowm= '" & DateTimePicker1.Text & "', informisen= '" & TxtInformisen.Text & "', clook= '" & TxtHouer.Text & "' , notes= '" & TxtNotes.Text & "' where ID= '" & Textrecid.Text & "'")
           If updaet = True Then
               MsgBox("تمت عملية التحديث بنجاح", MsgBoxStyle.Information)
               DgvEdit.DataSource = myconn.dt
               BindingContext(myconn.dt).Position = myconn.pos
               myconn.cur = CType(Me.BindingContext(myconn.dt), CurrencyManager)
               myconn.showposition(lbl:=LbEdit)
               myconn.summ(dgv:=DgvEdit, txt:=TexTotal)
               BtnEdit.Enabled = False
               TexCompany.Enabled = False
               ComboBoxDay.Enabled = False
               DateTimePicker1.Enabled = False
               TxtInformisen.Enabled = False
               TxtHouer.Enabled = False
               TxtNotes.Enabled = False
               BtnSersh.Enabled = False
               TextCompany1.Enabled = False
               BtnCompany.Enabled = False
           Else
               MsgBox("خطا في عملية التحديث", MsgBoxStyle.Critical)
               myconn.load_data()
               DgvEdit.DataSource = myconn.dt
               myconn.summ(dgv:=DgvEdit, txt:=TexTotal)
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
تحياتي لكم جميعا
الرد
تم الشكر بواسطة:
#2
بانتظار مساعدتكم يا خواني
الرد
تم الشكر بواسطة:
#3
(02-09-18, 11:11 PM)essawq كتب :
بانتظار مساعدتكم يا خواني

السلام عليكم اخي essawq
قم بانشاء [b]Public sub FillData   اي جملة Select ثم قم باستدعائه في نهاية كود التعديل وان كنت ترغب بجلب الكود المعدل[/b]
 ضع له شرط Where الاسم مثلا 
الرد
تم الشكر بواسطة: essawq , essawq
#4
اخى الفاضل essawq

بكل سهولة وبساطة
كل ما ستحتاج اليه هو تمرير كود مثل التالى سل كود التعديل
كود :
       DataGridView1.DataSource = DT ' DS

بعنى انك تمرر عملية الاستعلام الى ادتا جريد فيو ستم عرض البيانات بعد اتمام التحديد
اما انت تنشاء Sub يكون وظيفته استعلام لجلب بيانات الداتا جيد يو
او انك تضح الكود باسفل كود التعديل

تحياتى لك
وتمنيات لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: essawq
#5
مشكورين بارك الله فيكم
الرد
تم الشكر بواسطة: elgokr
#6
الشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#7
ايضاً ممكن تعديل قيم الخلايا المتأثرة بعد التعديل فقط . اي بدون جلب بيانات الجدول كاملة للداتاقريدفيو !
الرد
تم الشكر بواسطة:
#8
مشكور اخي 
ممكن الاكواد تحياتي لك

(04-09-18, 11:29 AM)حريف برمجة كتب : ايضاً ممكن تعديل قيم الخلايا المتأثرة بعد التعديل فقط . اي بدون جلب بيانات الجدول كاملة للداتاقريدفيو !


مشكور اخي 
ممكن الطريقة والاكواد
تحياتي لك
الرد
تم الشكر بواسطة:
#9
(04-09-18, 11:29 AM)حريف برمجة كتب : ايضاً ممكن تعديل قيم الخلايا المتأثرة بعد التعديل فقط . اي بدون جلب بيانات الجدول كاملة للداتاقريدفيو !


انا ايضاُ 
محتاج تحديث الخلايا بعد التعديل على احدهم
الرد
تم الشكر بواسطة: essawq
#10
السلام عليكم 
استخدمت الكود التالي ونجح معي في تحديث البيانات والوقوف على نفس الصف
الكود بعد عملية التحديث مباشرة
كود :
myconn.dt.Clear()
               myconn.da.Fill(myconn.dt)
               DgvEdit.DataSource = myconn.dt
               BindingContext(myconn.dt).Position = myconn.pos
تحياتي لكم
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في..listbox e-coder 6 167 منذ 27 دقيقة مضت
آخر رد: سامي محمد
Photo مساعدة تصحيح الكود sofiane-phy 4 75 منذ 1 ساعه مضت
آخر رد: sofiane-phy
  [VB.NET] سؤال عن ترتيب البيانات عند الاستعلام محمد اسماعيل 6 96 18-06-19, 04:44 PM
آخر رد: محمد اسماعيل
  [سؤال] لو سمحتوا ممكن حد يفدني سؤال عن الداتا جرد فيو m.soft.01210 3 72 15-06-19, 11:33 PM
آخر رد: elgokr
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 316 14-06-19, 03:03 PM
آخر رد: elgokr
  الرجوع الي نفس سطر في داتا جريد atefkhalf2004 2 188 11-06-19, 01:08 PM
آخر رد: سامي محمد
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 277 03-06-19, 12:33 PM
آخر رد: سعود
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 925 03-06-19, 11:56 AM
آخر رد: سعود
Lightbulb [VB.NET] الرجاء تعديل الكود بالملف المرفق الراس الكبيرة 2 102 01-06-19, 01:40 AM
آخر رد: الراس الكبيرة
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 1 100 30-05-19, 01:54 PM
آخر رد: اسامه الهرماوي

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


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