تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استعراض صف محدد من الداتا سيت
#1
السلام عليكم

اريد استعراض صف معين من الداتا سيت الي التيكست للتعديل علية او مشاهدة حقولة

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

واقوم بعرض حقول معينة بالداتا جريد فيو للمستخدم واقوم بتخزين الحقول المعروضة بالداتا جريد بداتا سيت

واقوم بتخزين كامل بيانات الجدول بداتا سيت اخري لعرض كل الصف او التعديل علي صف محدد

الجدول كامل

   
استخدمت الكود التالي وبية مشكلة انة بيعرض البيانات بناء علي رقم الصف بالداتا جريد ورقمة بالداتا سيت

و انا اريد ان يتم استعراض الصف من الداتا سيت عند الوقوف علي صف بالداتا جريد  علي اساس معلومية او قيمة حقل الكود او العمود الخاص  (CUSTOMERDETAILS_CODE ) بالداتا جريد ويكون نفس الكود موجود بالداتا سيت بغض النظر عن رقم الصف وحيث لم يتم اخفاء الزبون عن طريق عمل شيك no لة بالجدول




كود :
 Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
               con.Open()
               DataAdapterm = New OleDbDataAdapter(cmd)
               DataSetupdat.Clear()
               DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
               If DataSetupdat.Tables(0).Rows.Count > 0 Then

                   Dim indx As Integer = (DATAG_CLIENONLIN.CurrentRow.Index)

                   TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_ID").ToString
                   TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETAILS_CODE").ToString
                   TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_NAME").ToString
                   TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_COMPANY").ToString
                   TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_TELEPHON").ToString
                   TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_NOTE").ToString
                   TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_DATE").ToString
                   TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_CREDIT").ToString
                   TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_DEBIT").ToString
                   TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(indx).Item("CUSTOMERDETALIS_BLANCE").ToString



               Else
                   MsgBox("data not found") : Exit Sub
               End If
الرد }}}
تم الشكر بواسطة:
#2
جرب هذا

طريقة شائعة
كود :
Dim da As New OleDbDataAdapter(String.Empty, con)
Dim dt As New DataTable
Dim WithEvents bs As New BindingSource

Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load

   Dim da As New OleDbDataAdapter("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
   da.Fill(dt)
   bs.DataSource = dt

   TextBox1.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_ID")
   TextBox2.DataBindings.Add("Text", bs, "CUSTOMERDETAILS_CODE")
   TextBox3.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NAME")
   TextBox4.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_COMPANY")
   TextBox5.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_TELEPHON")
   TextBox6.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NOTE")
   TextBox7.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DATE")
   TextBox8.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_CREDIT")
   TextBox9.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DEBIT")
   TextBox10.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_BLANCE")

   DATAG_CLIENONLIN.DataSource = bs

End Sub

' تحديث البيانات في جدول قاعدة البيانات
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   bs.EndEdit()
   Dim b As New OleDbCommandBuilder(da)
   da.Update(dt)
End Sub

' عرض رقم السجل الحالي من مجموع عدد السجلات
Private Sub bs_PositionChanged(sender As Object, e As EventArgs) Handles bs.PositionChanged
   Me.Text = String.Format("{0}/{1}", bs.Position + 1, bs.Count)
End Sub
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد اسماعيل
#3
أو جرب هذا :

كود :
Dim StrValue As String = DataGridView1.CurrentRow.Cells("CUSTOMERDETAILS_CODE").Value.ToString
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETAILS_CODE=Yes and CUSTOMERDETAILS_CODE='" & StrValue & "'", con)
       con.Open()
       DataAdapterm = New OleDbDataAdapter(cmd)
       DataSetupdat.Clear()
       DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
       If DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows.Count > 0 Then
           TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_ID").ToString
           TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETAILS_CODE").ToString
           TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NAME").ToString
           TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_COMPANY").ToString
           TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_TELEPHON").ToString
           TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NOTE").ToString
           TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DATE").ToString
           TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_CREDIT").ToString
           TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DEBIT").ToString
           TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_BLANCE").ToString
       Else
           MsgBox("data not found") : Exit Sub
       End If
الرد }}}
تم الشكر بواسطة: rnmr , rnmr , محمد اسماعيل , محمد اسماعيل
#4
(09-10-18, 01:24 AM)rnmr كتب : جرب هذا

طريقة شائعة
كود :
Dim da As New OleDbDataAdapter(String.Empty, con)
Dim dt As New DataTable
Dim WithEvents bs As New BindingSource

Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load

   Dim da As New OleDbDataAdapter("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
   da.Fill(dt)
   bs.DataSource = dt

   TextBox1.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_ID")
   TextBox2.DataBindings.Add("Text", bs, "CUSTOMERDETAILS_CODE")
   TextBox3.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NAME")
   TextBox4.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_COMPANY")
   TextBox5.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_TELEPHON")
   TextBox6.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NOTE")
   TextBox7.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DATE")
   TextBox8.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_CREDIT")
   TextBox9.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DEBIT")
   TextBox10.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_BLANCE")

   DATAG_CLIENONLIN.DataSource = bs

End Sub

' تحديث البيانات في جدول قاعدة البيانات
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   bs.EndEdit()
   Dim b As New OleDbCommandBuilder(da)
   da.Update(dt)
End Sub

' عرض رقم السجل الحالي من مجموع عدد السجلات
Private Sub bs_PositionChanged(sender As Object, e As EventArgs) Handles bs.PositionChanged
   Me.Text = String.Format("{0}/{1}", bs.Position + 1, bs.Count)
End Sub

(09-10-18, 01:57 AM)asemshahen5 كتب : أو جرب هذا :

كود :
Dim StrValue As String = DataGridView1.CurrentRow.Cells("CUSTOMERDETAILS_CODE").Value.ToString
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETAILS_CODE=Yes and CUSTOMERDETAILS_CODE='" & StrValue & "'", con)
       con.Open()
       DataAdapterm = New OleDbDataAdapter(cmd)
       DataSetupdat.Clear()
       DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
       If DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows.Count > 0 Then
           TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_ID").ToString
           TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETAILS_CODE").ToString
           TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NAME").ToString
           TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_COMPANY").ToString
           TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_TELEPHON").ToString
           TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NOTE").ToString
           TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DATE").ToString
           TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_CREDIT").ToString
           TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DEBIT").ToString
           TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_BLANCE").ToString
       Else
           MsgBox("data not found") : Exit Sub
       End If

يسرا اللّة لكم امركما في الدنيا والاخرة

كل الشكر والتقدير لكما   Shy
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
Photo [سؤال] تجميع قيم العناصر المتشابهة في الداتا جريد فيو علاء الكبابي 6 565 13-08-23, 01:00 PM
آخر رد: تركي الحلواني
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم

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


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