[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 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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        save_Data()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Try
            Dim names As New List(Of String)
            For Each i In RichTextBox1.Lines
                names.Add("'" & i & "'")
            Next
            Dim sql As String = "Select * From [Table1] WHERE [Name] IN (" & String.Join(",", names) & ") "
            dt.Clear()
            da = New OleDbDataAdapter(sql, con)
            da.Fill(dt)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
        Try
            Dim salary As New List(Of String)
            For Each i In RichTextBox2.Lines
                salary.Add(i)
            Next
            Dim sql As String = "Select * From [Table1] WHERE [salary] IN (" & String.Join(",", salary) & ") "
            dt.Clear()
            da = New OleDbDataAdapter(sql, con)
            da.Fill(dt)
        Catch ex As Exception
        End Try
    End Sub
End Class