ألسلام عليكم الاخوة الاحباب
من المشاركة السابقه حبيت اجعلها موضوع منفصل
حتي لا اتشتت
نفس المشروع اللي فات يس فيه مشكلة في البحث
برجاء فحص المرفق
مع جزيل الشكر
السبب انك وضعت كود البحث في مربع نص والمطلوب في مربع نص اخر
دقق في الكود وتعرف
كود :
' جملة البحث
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
(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 لمربع نص كتبت كود استعلام لمحتوى مربع نص اخر
............