+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] البحث في جدولين (/showthread.php?tid=23120)
البحث في جدولين - محمد اسماعيل - 29-12-17
السلام عليكم
عندي كود استخدمة للبحث في جداول مرتبطة مع بعض راس براس الجدول الاساسي 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()