+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23172)
البحث بقاعدة البيانات - محمد اسماعيل - 01-01-18
السلام عليكم
عندي كود استخدمة للبحث في جداول مرتبطة مع بعض راس براس الجدول الاساسي 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()RE: البحث بقاعدة البيانات - محمد اسماعيل - 02-01-18
مفيش رد واحد
RE: البحث بقاعدة البيانات - karimx - 02-01-18
أرسل لنا قاعدة البيانات للإطلاع على الجداول لو سمحت
RE: البحث بقاعدة البيانات - محمد اسماعيل - 02-01-18
(02-01-18, 09:02 PM)karimx كتب : أرسل لنا قاعدة البيانات للإطلاع على الجداول لو سمحت
اشكرك علي ردك ولكن البرنامج كامل يصعب وضعة
الكود معي يبحث بالجدول الاول وفي الحقول المطلوبة
المشكلة عند البحث يحذف كل بيانات الجدول الثاني ولا يظهر منها شيء معي اني مش ببحث في حقولها يعني الاعمدة الخاصة بالجدول الثاني تصبح فارغة مع وجود رؤس الاعمدة باسماؤها
وعند الملا اقوم بملاء بيانات الجدولين ولكن لاشيء ايضا تظل فارغة