[alma2]

أضف Button2 لالغاء البحث بحيث يعيد تعبئة جميع الأسماء في الجدول

كود :

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 DISTINCT [Name] FROM [Table1] ORDER BY [Name]", con)
        da.Fill(dt)
        For Each r As DataRow In dt.Rows
            Me.ListBox1.Items.Add(r("Name"))
        Next

        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 ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Name Like'%" + ListBox1.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.ListBox1.SelectedIndex = -1
    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