[alma2]

كود :

Imports System.Data.OleDb

Public Class Form1

    ' جملة الربط
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

    Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

    Dim dt As New DataTable        ' مكان التخزين

    Sub Load_Data()
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1", con)
        da.Fill(dt)
    End Sub
    Sub save_Data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub

    ' جملة تحميل الجدول الي الداتا جريد فيو

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()
        DataGridView1.DataSource = dt

    End Sub

    ' مفتاح الاضافة

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        dt.Rows.Add()
        Dim pos As String = dt.Rows.Count - 1
        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
        'dt.Rows(pos).Item(4) = DateTimePicker1.Value
        ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
        dt.Rows(pos).Item(4) = DateTimePicker1.Value
        dt.Rows(pos).Item(5) = Val(TextBox4.Text)
        dt.Rows(pos).Item(6) = TextBox5.Text


    End Sub


    ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim pos As String = BindingContext(dt).Position

        TextBox1.Text = dt.Rows(pos).Item(1)
        TextBox2.Text = dt.Rows(pos).Item(2)
        TextBox3.Text = dt.Rows(pos).Item(3)
        DateTimePicker1.Value = dt.Rows(pos).Item(4)
        TextBox4.Text = dt.Rows(pos).Item(5)
        TextBox5.Text = dt.Rows(pos).Item(6)
    End Sub
    ' كود التعديل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim pos As String = BindingContext(dt).Position

        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        dt.Rows(pos).Item(4) = DateTimePicker1.Value
        dt.Rows(pos).Item(5) = Val(TextBox4.Text)
        dt.Rows(pos).Item(6) = TextBox5.Text


    End Sub
    ' كود الحذف
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Rows(BindingContext(dt).Position).Delete()

    End Sub
    ' كود البحث عن الاسم
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Name Like'%" + TextBox6.Text.Trim + "%'", con)
        da.Fill(dt)

    End Sub
    '' كود البحث عن العنوان
    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub
    ' كود البحث عن رقم  التليفون
    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub

    ' كود البحث عن  ألتاريخ
    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Date = #" + DateTimePicker2.Text + "#", con)
        da.Fill(dt)
    End Sub

    ' كود البحث عن  المرتب

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Salary =" & Val(TextBox10.Text), con)
        da.Fill(dt)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.Value = Now

    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        save_Data()
    End Sub

End Class