منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : المساعدة في كود البحث المتعدد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم الاخوة الاعزاء

 الرجاء المساعدة في كود البحث المتعدد

حيث ان البحث المفروض ان يكون من عدة اعمدة موجودة في الجدول

الرجاء فحص المرفقات

مع جزيل الشكر
في كود البحث

كود :
       da = New OleDbDataAdapter("SELECT * FROM ERC_Cascaded_Sites where ID LIKE '%" & TextBox3.Text &
               "%' or 2G_CID like '%" & TextBox3.Text &
                 "%' or 3G_CID like '%" & TextBox3.Text &
                  "%' or FDD_CID like '%" & TextBox3.Text &
                   "%' or TDD_CID like '%" & TextBox3.Text &
                "%'", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
       TextBox2.Text = DataGridView1.Rows.Count - 1
Dim dt As New DataTable
dt.Clear()
Dim da As New OleDbDataAdapter(" SELECT * from users where user_name & pass_word like '%" & TextBox1.Text & "%'", con)
da.Fill(dt)
Me.DataGridView1.DataSource = dt
(06-01-18, 01:33 PM)وائل القطاوي كتب : [ -> ]Dim dt As New DataTable
dt.Clear()
Dim da As New OleDbDataAdapter(" SELECT * from users where user_name & pass_word like '%" & TextBox1.Text & "%'", con)
da.Fill(dt)
Me.DataGridView1.DataSource = dt

السلام عليكم ورحمة الله وبركاته

الشكر الجزيل لاستاذي وائل القطاوي واستاذي محمود صالح

الحمد لله الكود يعمل وهذا هو الكود  الذي استخدمته
===========================================================================

Dim sql As String = "SELECT * FROM [ERC_Cascaded_Sites] WHERE [SITE ID] LIKE '%" & TextBox3.Text & "%' Or [2G_CID] LIKE '%" & TextBox3.Text & "%' Or [3G_CID] LIKE '%" & TextBox3.Text & "%' Or [FDD_CID] LIKE '%" & TextBox3.Text & "%' Or [TDD_CID] LIKE '%" & TextBox3.Text & "%' Or [WiFi_CID] LIKE '%" & TextBox3.Text & "%'"


Using da As New OleDbDataAdapter(sql, con)

Dim dt As New DataTable

da.Fill(dt)

DataGridView1.DataSource = dt

End Using