منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] بحث عن سجل ListBox1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] بحث عن سجل ListBox1 (/showthread.php?tid=40545)

بحث عن سجل ListBox1 - محمد بوقزاحة - 22-01-22

السلام عليكم 
ارجو مساعدتي في كود لعرض سجل المستخدمين في 
ListBox1
 والبحث في TEXTBOX وعرض الناتج البجث في ListBox1
   والسلام عليكم ورحمة الله

RE: بحث عن سجل ListBox1 - ابراهيم ايبو - 22-01-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم محمد 
اين تريد ان يتم  البحث ؟ هل في جدول في قاعدة بيانات ؟ ام في لست بوكس ؟ ام في ملف نصي؟
سؤالك غير مفهوم

RE: بحث عن سجل ListBox1 - محمد بوقزاحة - 22-01-22

(22-01-22, 08:33 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم محمد 
اين تريد ان يتم  البحث ؟ هل في جدول في قاعدة بيانات ؟ ام في لست بوكس ؟ ام في ملف نصي؟
سؤالك غير مفهوم

البحث في قاعدة البيانات 

ListBox1
او 
ListView1
البحث في قاعدة البيانات 

ListBox1
او 
ListView1

RE: بحث عن سجل ListBox1 - ابراهيم ايبو - 22-01-22

اخي محمد 
ضع مثالك ليصار الى العمل عليه

RE: بحث عن سجل ListBox1 - محمد بوقزاحة - 22-01-22

المثال المرفق
 vb.net 2010
sql2019   database
باك اب مرفق مع المثال

RE: بحث عن سجل ListBox1 - ابراهيم ايبو - 22-01-22

السلام عليكم ورحمة الله وبركاته
اخي محمد 
ضع هذه الدالة في كلاس الفورم 1 تحت دالة جلب البيانات
كود :
   Sub SearshFile()
       ListBox1.Items.Clear()
       Dim SQL = "Select * from  Custmer where NAMES like N'%" & TextBox1.Text & "%'"
       Dim ADP = New SqlClient.SqlDataAdapter(SQL, CLS_CON__.SQLCON)
       Dim DS = New DataSet
       ADP.Fill(DS)
       Dim DT = DS.Tables(0)
       For I = 0 To DT.Rows.Count - 1
           ListBox1.Items.Add(New MyList(DT.Rows(I).Item("NAMES"), DT.Rows(I).Item("ID")))
       Next

   End Sub
الان ننادي عليها في حدث تغيير المحتوى للتكست بوكس1
كود :
 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       SearshFile()
   End Sub


RE: بحث عن سجل ListBox1 - محمد بوقزاحة - 22-01-22

شكرا اخي الكريم
اشتغل الكود 100ب%

RE: بحث عن سجل ListBox1 - ابراهيم ايبو - 23-01-22

الحمد لله والشكر لله 
ولك أيضا أخي محمد