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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لو سمحتوا ممكن حد يفدني سؤال عن الداتا جرد فيو m.soft.01210 3 56 أمس, 11:33 PM
آخر رد: elgokr
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 1 91 30-05-19, 01:54 PM
آخر رد: اسامه الهرماوي
  ترتيب الداتا تيبل المتألق9 4 125 28-05-19, 04:51 AM
آخر رد: ابراهيم ايبو
  حساب مجموع ما في الداتا جريد فيو لكل صف alshandodi 8 317 20-05-19, 05:37 PM
آخر رد: alshandodi
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 180 09-05-19, 05:11 PM
آخر رد: makky
  [VB.NET] كود عدد الحقول في الداتا اسامه الهرماوي 6 175 07-05-19, 10:59 PM
آخر رد: ابراهيم ايبو
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 170 01-05-19, 12:45 PM
آخر رد: DK-x
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 206 25-04-19, 09:28 AM
آخر رد: elgokr
  تلوين صفوف الداتا قريد فيو المتألق9 1 124 24-04-19, 05:07 AM
آخر رد: elgokr
  اريد اضافة بوتون داخل عمود فى الداتا جريد فيو سمير جمال 3 150 10-04-19, 12:24 PM
آخر رد: elgokr

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


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