منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(10-02-20, 11:55 PM)ggtt17121985 كتب : [ -> ]

السلام عليكم
شكرا على الفيديو اخي العزيز .

بعد ما طبقت الكود ظهر لي خطاء .
ارجو حل المشكلة .

(13-12-21, 04:01 AM)E100 كتب : [ -> ]

الخطاء ماذال موجود

وجدة الحل و سوف اضعه كي يستفيد الجميع

---

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

اختصار الكود