[khaled12345]

(23-05-17, 12:26 AM)alma2 كتب : أضف Button2 لالغاء البحث بحيث يعيد تعبئة جميع الأسماء في الجدول


=======================================================================================
بارك الله في حضرتك  الكود يعمل تمام

وايضا عملت الكود ده ومشي الحال

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

RichTextBox1.Clear()

Load_Data()

End Sub

الف مليون شكر لحضرتك استاذي الغالي

كود :

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