[0theghost0]

السلام عليكم فكرة البحث الى في الرابط مش شغالة عندي 100% راح اعطيك الكود الى حصلته واتمنى التعديل عليك عندك القاعدة والباقي فقط محتاج الى الكود يكون صحيح بلا اخطاء لو سمحت انا شغال على vb.net 2015 بعض الاكواد القديمة لايدعمها

---

هذا هو الكود

كود :

Imports System.Data.OleDb
Public Class Form8

    Sub FillLstv()
        ListView1.Items.Clear()
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        Dim da As New OleDbDataAdapter("Select * from Rent where Cus_Name Like '%" & TextBox1.Text.Trim() & "%' or Cus_Private_Number Like '%" & TextBox2.Text.Trim() & "%'", cn)

        Dim dt As New DataTable
        da.Fill(dt)

        For Each dr As DataRow In dt.Rows
            Dim itm As New ListViewItem(dr("Cus_Name").ToString())
            itm.SubItems.Add(dr("Cus_Private_Number").ToString())
            itm.SubItems.Add(dr("Cus_Address").ToString())
            itm.SubItems.Add(dr("Cus_Telephone_Number").ToString())
            itm.SubItems.Add(dr("Equ_Name").ToString())
            itm.SubItems.Add(dr("Equ_Qantity").ToString())
            itm.SubItems.Add(dr("Equ_Price").ToString())
            itm.SubItems.Add(dr("Rent_Date").ToString())
            ListView1.Items.Add(itm)
        Next
    End Sub
    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillLstv()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FillLstv()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        FillLstv()
    End Sub
End Class

اتمنى التعديل عليه بحيث استطيع البحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف