13-12-21, 05:29 PM
(آخر تعديل لهذه المشاركة : 13-12-21, 05:29 PM {2} بواسطة nabil.1710.)
وجدة الحل و سوف اضعه كي يستفيد الجميع
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
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
