21-05-18, 05:18 PM
طبق التالى فى الملف المشروع
فى السطر الخاص ..كود :
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 الى ما يخص الاسم المحدد فقط
جرب وقل الناتج الذى تم معك
تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

