[khaled12345]

السلام عليكم ورحمة الله الاخوة الاحباب

في الملف الرفق تم البحث من خلال  RichText Box  ,

وذلك بمساعدة الاستاذ الفاضل alam 2

وبعدها حاولت وضع button  لازالة محتويات ال RichText Box

وفعلا الدات تمسح منه ولكن لا يعود الجدول في الداتا جريد فيو

فلذلك اضطر اغلق البرنامج وافتحة مرة اخري

فرجاء بحث المرفقات

مع الشكر الجزيل

[khaled12345]

(22-05-17, 09:41 PM)khaled12345 كتب : السلام عليكم ورحمة الله الاخوة الاحباب

في الملف الرفق تم البحث من خلال  RichText Box  ,

وذلك بمساعدة الاستاذ الفاضل alam 2

وبعدها حاولت وضع button  لازالة محتويات ال RichText Box

وفعلا الدات تمسح منه ولكن لا يعود الجدول في الداتا جريد فيو

فلذلك اضطر اغلق البرنامج وافتحة مرة اخري

فرجاء بحث المرفقات

مع الشكر الجزيل

شكرا يا شباب عملتها الحمد لله

[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

[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