بتعرف هاذا المتغير فوق ال class
Imports System.Data.OleDb
بعدين تحت ال form class
بتحط
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
وال database.accdb بتغيرها حسب اسم قاعده البيانات الي عندك
وبعدين بتعلم داله حفظ
Sub load_date()
dt.Clear()
da = New OleDbDataAdapter("SELECT *form table1",con(
da.Fill(dt)
End Sub
وبلاخر بتحط الكود بلفورم
load_date()
DataGridView1.DataSource = dt
DataGridView1.ClearSelection()
table1 بتغيرها حسب اسم الجدول عندك
هاذا كود البحث بتحطو بحدث التيكست بوكس
dt.Clear()
da = New OleDbDataAdapter("Select * From table2 Where [تاريخ تعين الدرس] like '%" + TextBox1.Text.Trim + "%'", con)
da.Fill(dt)
تاريخ تعين الدرس بتغيرها حسب اسم العامود الي بدك تبحث فيو
Imports System.Data.OleDb
بعدين تحت ال form class
بتحط
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
وال database.accdb بتغيرها حسب اسم قاعده البيانات الي عندك
وبعدين بتعلم داله حفظ
Sub load_date()
dt.Clear()
da = New OleDbDataAdapter("SELECT *form table1",con(
da.Fill(dt)
End Sub
وبلاخر بتحط الكود بلفورم
load_date()
DataGridView1.DataSource = dt
DataGridView1.ClearSelection()
table1 بتغيرها حسب اسم الجدول عندك
هاذا كود البحث بتحطو بحدث التيكست بوكس
dt.Clear()
da = New OleDbDataAdapter("Select * From table2 Where [تاريخ تعين الدرس] like '%" + TextBox1.Text.Trim + "%'", con)
da.Fill(dt)
تاريخ تعين الدرس بتغيرها حسب اسم العامود الي بدك تبحث فيو
