[elgokr]

طبق التالى فى الملف المشروع

فى السطر الخاص ..

كود :

Private Sub Retrieve2()

قم بتحويله الى التالى

كود :

Private Sub Retrieve2(ByVal NAME As String)

الخطوة التالية

فى السطر التالى

كود :

Dim sql As String = "SELECT * FROM hqom"

قم بتحويله الى الكود التالى

كود :

Dim sql As String = "SELECT * FROM hqom WHERE name_1 LIKE '% " & NAME & " %'"

الخطوة التالية

فى عملية اللود خاصة الفورم ( Private Sub Form1_Load)

ستجد لديك الكود التالى

كود :

Retrieve2()

قم بتحويله الى

كود :

Retrieve2("")

الخطوة التالية

تعال عند ListView1 وقم بانشاء Event باسم SelectedIndexChanged

ليصبح الكود الكلى له 

كود :

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
       For aa As Integer = 0 To ListView1.SelectedItems.Count - 1
           Retrieve2(ListView1.SelectedItems.Item(aa).SubItems(1).Text.ToString())
       Next
   End Sub

الان عند تشغيل المشروع

ستجد انه يقوم  ListView2 بتححميل جميع محتوى قاعدة البيانات

من ثم عند تحديد اسم محدد من ListView1 يقوم بتحويل نتائج ListView2 الى ما يخص الاسم المحدد فقط

جرب وقل الناتج الذى تم معك

تحياتى لك