تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في كود البحث المتعدد
#1
السلام عليكم الاخوة الاعزاء

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

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

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

مع جزيل الشكر


الملفات المرفقة
.rar   Cascaded_Sites_New1.rar (الحجم : 419.82 ك ب / التحميلات : 70)
الرد }}}
تم الشكر بواسطة:
#2
في كود البحث

كود :
       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
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#3
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
الرد }}}
تم الشكر بواسطة:
#4
(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
الرد }}}
تم الشكر بواسطة:



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


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