السلام عليكم ورحمة الله الاخوة الاحباب
في الملف الرفق تم البحث من خلال RichText Box ,
وذلك بمساعدة الاستاذ الفاضل alam 2
وبعدها حاولت وضع button لازالة محتويات ال RichText Box
وفعلا الدات تمسح منه ولكن لا يعود الجدول في الداتا جريد فيو
فلذلك اضطر اغلق البرنامج وافتحة مرة اخري
فرجاء بحث المرفقات
مع الشكر الجزيل
(22-05-17, 09:41 PM)khaled12345 كتب : [ -> ]السلام عليكم ورحمة الله الاخوة الاحباب
في الملف الرفق تم البحث من خلال RichText Box ,
وذلك بمساعدة الاستاذ الفاضل alam 2
وبعدها حاولت وضع button لازالة محتويات ال RichText Box
وفعلا الدات تمسح منه ولكن لا يعود الجدول في الداتا جريد فيو
فلذلك اضطر اغلق البرنامج وافتحة مرة اخري
فرجاء بحث المرفقات
مع الشكر الجزيل
شكرا يا شباب عملتها الحمد لله
أضف 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