+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview (/showthread.php?tid=33360)
البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - ggtt17121985 - 10-02-20
RE: البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - nabil.1710 - 12-12-21
(10-02-20, 11:55 PM)ggtt17121985 كتب :
السلام عليكم
شكرا على الفيديو اخي العزيز .
بعد ما طبقت الكود ظهر لي خطاء .
ارجو حل المشكلة .
RE: البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - E100 - 13-12-21
RE: البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - nabil.1710 - 13-12-21
(13-12-21, 04:01 AM)E100 كتب :
الخطاء ماذال موجود
RE: البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - nabil.1710 - 13-12-21
وجدة الحل و سوف اضعه كي يستفيد الجميع
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\searchs.mdb")
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Dim cmd1 As New OleDbCommand("select [id],[names] from [namesss] where [names] like '%" + ComboBox1.Text + "%'", conn)
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
da.SelectCommand = cmd1
dt.Clear()
da.Fill(dt)
NamesssDataGridView.DataSource = dt
conn.Close()
NamesssDataGridView.Columns(0).HeaderText = "id"
NamesssDataGridView.Columns(1).HeaderText = "names"
conn.Close()
End Sub
RE: البحث بأي جزء في الكلمة باستخدام الحدث TextChanged لأداة Textbox في Datagridview - E100 - 14-12-21
اختصار الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\searchs.mdb")
Dim da As New OleDbDataAdapter("select [id],[names] from [namesss] where [names] like '%" + ComboBox1.Text + "%'", conn)
Dim dt As New DataTable
da.Fill(dt)
NamesssDataGridView.DataSource = dt
End Sub