منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26342)

طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - essawq - 02-09-18

السلام عليكم ورحمة الله وبركاتة
اخواني
بعد الضغط على زر تعديل اريد ان يقف على نفس الصف وان يحدث البيانات في الداتا جريد فيو
الكود الذي استخدمة يوقف على نفس الصف لكن لا يحدث البيانات في الداتا جريد فيو
مع العلم ان البيانات يكون قد تم تعديلها بقاعدة البيانات
طبعا انا ابحث بزر خاص بالبحث وبعد ذالك اجري التعديل
هذا الكود
كود :
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
تحياتي لكم جميعا


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - essawq - 02-09-18

بانتظار مساعدتكم يا خواني


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - ابراهيم ايبو - 02-09-18

(02-09-18, 11:11 PM)essawq كتب :
بانتظار مساعدتكم يا خواني

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

RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - elgokr - 03-09-18

اخى الفاضل essawq

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

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

تحياتى لك
وتمنيات لك التوفيق


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - essawq - 03-09-18

مشكورين بارك الله فيكم


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - elgokr - 03-09-18

الشكر لله

تحياتى لك
وتمنياتى لك التوفيق


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - حريف برمجة - 04-09-18

ايضاً ممكن تعديل قيم الخلايا المتأثرة بعد التعديل فقط . اي بدون جلب بيانات الجدول كاملة للداتاقريدفيو !

RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - essawq - 04-09-18

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


مشكور اخي 
ممكن الطريقة والاكواد
تحياتي لك


RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - atef_020 - 05-09-18

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


انا ايضاُ 
محتاج تحديث الخلايا بعد التعديل على احدهم

RE: طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل - essawq - 05-09-18

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