تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى الحفظ من الداتا جريد salah mansour 4 54 منذ 2 ساعة مضت
آخر رد: salah mansour
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 40 أمس, 08:09 PM
آخر رد: عبدالله الدوسري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 1 49 أمس, 12:24 AM
آخر رد: عبد العزيز البسكري
  نسخ اعمدة من الداتا جريد فيو الي اخري محمد اسماعيل 11 125 14-10-18, 04:42 AM
آخر رد: حريف برمجة
  سؤال :- فى كيغية ادراج بيانات فى الداتا جريد فيو احمد خطاب 0 33 13-10-18, 08:54 PM
آخر رد: احمد خطاب
  كيف اجعل حقل الداتا قريد احتواء تلقائي aftfm 1 55 06-10-18, 10:27 PM
آخر رد: rnmr
  جمع عمود الوقت في الداتا قريد فيو نور الهدى الهدى 6 109 03-10-18, 08:14 PM
آخر رد: نور الهدى الهدى
  تخزين محتويات الداتا جريد فيو في قاعدة البيانات mohmmadameenn 2 69 02-10-18, 01:52 PM
آخر رد: جاسم عبد
  [سؤال] مشكلة اظهار البيانات في الداتا جريد اسامه الهرماوي 3 135 29-09-18, 02:45 AM
آخر رد: اسامه الهرماوي
  [VB.NET] نقل البيانات من ملف csv الي الداتا جريد فيو محمد اسماعيل 13 253 28-09-18, 12:42 AM
آخر رد: elgokr

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


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