[hassan]

(27-03-16, 06:33 AM)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

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

اخي عملت لك مشروع بحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف

الكود الي ذكرته انت حاولت اعدل عليه لاكن ما جاب نتائج دقيقه 

عملت لك هاذا المشروع في المرفقات 

على حسب طلبك 


شكرا لك