تقييم الموضوع :
  • 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()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود البحث في الكرد فيو moh developer 1 95 15-10-20, 05:46 PM
آخر رد: abdou
Exclamation [سؤال] جملة البحث abarrak 4 126 14-10-20, 03:00 PM
آخر رد: abarrak
  أريد كود البحث بال combobox Hazem Kamel 3 220 13-10-20, 01:17 AM
آخر رد: Hazem Kamel
  الحذف من جدولين khaled Mohammed 3 151 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 356 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل في عملية البحث abu7shihab 4 336 11-09-20, 08:20 PM
آخر رد: T 1
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 592 07-09-20, 12:28 AM
آخر رد: محمد العامر
  طريقة عرض بيانات جدولين في الداتا قريد ZaerAllail 7 382 05-09-20, 01:44 PM
آخر رد: Anas Mahmoud
  السلام عليكم ممكن توضيح بسيط بخصوص البحث داخل الليست بوكس اليوم السابع 5 415 21-08-20, 01:40 PM
آخر رد: اليوم السابع
  [VB.NET] ملأ جدولين من فورم واحد larbihamri 12 726 14-08-20, 01:07 AM
آخر رد: خالد كامل1

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


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