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

عندي كود استخدمة للبحث في جداول مرتبطة مع بعض راس براس الجدول الاساسي tb1  والجدول الثاني tb2


الكود يبحث ويفلتر ولكن يبحث في الجدول الاول فقط ويحذف بيانات الجدول الثاني لاتظهر مع ان كود الملا وضعت الجدولين

انا ببحث عن قيمة  بعمودين في الجدول الاول

كود البحث

كود :
 Try
         
           If IsNumeric(TextBox1.Text) = False Then

               Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM tb1 WHERE tb1.clien_mail  LIKE '" & Trim$(TextBox1.Text) & "%' or tb1.model_mail like '" & Trim$(TextBox1.Text) & "%'", con)
               con.Open()
               DataSet1.Clear()
               DataAdapter.Fill(DataSet1, "tb1,tb2")
               con.Close()
               If Me.BindingContext(DataSet1, "tb1,tb2").Count = 0 Then
                   MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث")

                   TextBox1.Text = ""

                   con.Close()

                   Exit Sub
               Else
                   DataSet1.Clear()
                   DataAdapter.Fill(DataSet1, "tb1,tb2")
                   count()

                   Exit Sub

               End If

           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

كود الاتصال وملا ءالبيانات



كود :
  Dim cmd As OleDbCommand = New OleDbCommand("SELECT tb1.ID_mail ,tb1.clien_mail, tb1.model_mail, tb2.probl_acce,tb2.main_acce,tb2.typ_acce  FROM tb1, tb2 where tb1.ID_mail = tb2.ID_acce", con)
       con.Open()
       DataAdapter1 = New OleDbDataAdapter(cmd)
       Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter1)
       DataSet1 = New DataSet()
       DataAdapter1.Fill(DataSet1, "tb1,tb2")
       DataGridView1.DataSource = DataSet1
       DataGridView1.DataMember = "tb1,tb2"
       con.Close()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص البحث العتيق 2 78 , 12:05 AM
آخر رد: جميل4
  [VB.NET] سؤال في عملية البحث والتعديل والحذف Hassan.syria 2 151 27-12-19, 08:48 PM
آخر رد: ابو ليلى
  [VB.NET] البحث بالداتاجريد عن القيمة الاقرب محمد اسماعيل 2 113 21-12-19, 10:19 PM
آخر رد: محمد اسماعيل
  البحث عن كلمة داخل الكود جيولوجي مبتدئ 1 110 19-12-19, 04:51 PM
آخر رد: Rabeea Qbaha
  [ تمّ الحل ] : البحث باسم صنف له عدة نوعيات عبد العزيز البسكري 10 318 14-12-19, 01:27 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] البحث بالداتاجريد عن القيمة الاقرب محمد اسماعيل 0 116 13-12-19, 03:22 AM
آخر رد: محمد اسماعيل
  كتابة نص البحث في الداتاغريد فيو ghias 4 162 08-12-19, 09:06 PM
آخر رد: ghias
  [VB.NET] مشكلة في البحث عن طريق combobox Hassan.syria 5 264 08-12-19, 04:41 PM
آخر رد: hamed.34552
  البحث في الداتا جريد فيو اليوم السابع 3 221 08-12-19, 01:39 PM
آخر رد: 3booody
  اريد كود البحث او الفلتره عن شئ في الداتا جريد فيو ؟ amrmosa673@gmail.com 2 171 06-12-19, 05:45 PM
آخر رد: amrmosa673@gmail.com

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


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