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

نسخة كاملة : طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة
اخواني
بعد الضغط على زر تعديل اريد ان يقف على نفس الصف وان يحدث البيانات في الداتا جريد فيو
الكود الذي استخدمة يوقف على نفس الصف لكن لا يحدث البيانات في الداتا جريد فيو
مع العلم ان البيانات يكون قد تم تعديلها بقاعدة البيانات
طبعا انا ابحث بزر خاص بالبحث وبعد ذالك اجري التعديل
هذا الكود
كود :
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
تحياتي لكم جميعا
بانتظار مساعدتكم يا خواني
(02-09-18, 11:11 PM)essawq كتب : [ -> ]
بانتظار مساعدتكم يا خواني

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

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

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

تحياتى لك
وتمنيات لك التوفيق
مشكورين بارك الله فيكم
الشكر لله

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

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


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


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