[khaled12345]

ألسلام عليكم الاخوة الاحباب

من المشاركة السابقه حبيت اجعلها موضوع منفصل

حتي لا اتشتت

نفس المشروع اللي فات يس فيه مشكلة في البحث

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

مع جزيل الشكر

[سعود]

السبب انك وضعت كود البحث في مربع نص والمطلوب في مربع نص اخر
دقق في الكود وتعرف

---

كود :

' جملة البحث
   Private Sub SearchByName(ByVal t As String)
       Dim sql As String = "SELECT * FROM table1 WHERE tName LIKE '%" & t & "%'"
       Dim da As New OleDb.OleDbDataAdapter(sql, con)
       Dim dt As New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt

   End Sub
   '=======================================================================================================================
   '  تكست البحث

   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
       SearchByName(sender.text)
   End Sub

---

ترى صححت الخطا

---

طبعا الطريقة الاولى صحيحة 

كود :

       Using da = New OleDbDataAdapter(sql, con)
           Using dt = New DataTable
               da.Fill(dt)
               Me.DataGridView1.DataSource = dt
           End Using
       End Using

[khaled12345]

(16-07-17, 01:23 AM)سعود كتب : السبب انك وضعت كود البحث في مربع نص  والمطلوب في مربع نص اخر
دقق  في الكود وتعرف

---

كود :

' جملة البحث
   Private Sub SearchByName(ByVal t As String)
       Dim sql As String = "SELECT * FROM table1 WHERE tName LIKE '%" & t & "%'"
       Dim da As New OleDb.OleDbDataAdapter(sql, con)
       Dim dt As New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt

   End Sub
   '=======================================================================================================================
   '  تكست البحث

   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
       SearchByName(sender.text)
   End Sub

---

ترى صححت الخطا

---

طبعا الطريقة الاولى صحيحة 

كود :

       Using da = New OleDbDataAdapter(sql, con)
           Using dt = New DataTable
               da.Fill(dt)
               Me.DataGridView1.DataSource = dt
           End Using
       End Using

 

السلام عليكم اخي سعود


اضفتها ولكن للاسف : :

فلو سمحت ضبطها في المرفق افضل

لو سمحت يعني

[سعود]

اسم الجدول في الاستعلام  هذا اول خطا
 ثاني شي ضمن حدث  textchange لمربع نص كتبت كود استعلام لمحتوى مربع نص اخر

---

............

[khaled12345]

(16-07-17, 06:01 PM)سعود كتب : اسم الجدول في الاستعلام  هذا اول خطا
 ثاني شي ضمن حدث  textchange لمربع نص كتبت كود استعلام لمحتوى مربع نص اخر

---

............

 ربنا يبارك فيك يا هندسة

[سعود]

إقتباس : ربنا يبارك فيك يا هندسة Smile

واياك ياطيب