السلام عليكم انا من اليوم وانا ابحث شيء عن اظهار نتائج البحث في DataGridview
فوجد كلام عنه لكن لم افهم شيء واذا فهمت كل مااطبق على مشروع يطلع خطأ
فارجو منكم مثال بسيط للبحث في تكس بوكس واظهار النتجية DataGridview
وشكر
السلام عليكم انا من اليوم وانا ابحث شيء عن اظهار نتائج البحث في DataGridview
فوجد كلام عنه لكن لم افهم شيء واذا فهمت كل مااطبق على مشروع يطلع خطأ
فارجو منكم مثال بسيط للبحث في تكس بوكس واظهار النتجية DataGridview
وشكر
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
السلام عليكم الحوت
هذا كود مثال بسيط للبحث :
قم باضافة 3 ادوات فقط
Button
Text
DataGrid
-------------------------------------------------------------------------------
الان ضع في حدث التحميل او Load الكود التالي وهو خاص بتحميل البيانات من جدول معين واظهار البيانات في DataGrid مع الانتباة لتسمية الجدول والحقول حسب القاعدة الخاصة بك
Try
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.Open()
SQL = "select * from customers"
Dim DA As New SqlDataAdapter(SQL, Conn)
DA.Fill(DS, "customers")
DB.DataSource = DS
DB.DataMember = "customers"
DataGridView1.DataSource = DB
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Tryوالان قم بإنشاء إجراء فرعي او Private Sub حتي نضع فية كود البحث مرة واحدة فقط ثم نقوم بإستدعائة في كل مرة كالتالي
المرة الاولي اذا رغبت ان يتم البحث عند كتابة المستخدم داخل TextBox
المرة الثانية اذا رغبت ان يتم البحث عند الضغط علي Button
اكتب الكود التالي وهو عبارة عن Private Sub كامل فقط قم بتغيير اسم الحقل الذي تريد بالحث فية
Private Sub Find_UserName()
DB.Filter = "customer_name like '" & Text_UserName.Text & "%'"
End Subهذاكل ماتحتاجة ان شاء الله
بالتوفيق
سبحان الله وبحمده ... سبحان الله العظيم
شكر لك لك اخي الكريم كنت اريد ان اقول وجدت الحل انت سبقتني ووضعت الحل بارك االله فيك علما الحل الذي وجده ليس كاحلك
CMD.CommandText = "SELECT * FROM Sections WHERE [sectionID] = '" & Txtcbocollege.Text & "' ORDER BY [sectionName]" If DR IsNot Nothing Then DR.Close() DR = CMD.ExecuteReader DT.Clear() DT.Load(DR) Dgv.DataSource = DT
تم تعديل هذه المشاركة بواسطة الحوت المضيء في 13 فبراير 2013 في 12:18
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
انا عندي علاقة MANY TO MANY مع الجداول
المهم اريد استعلام يظهر لي الناتج القيم طبعا يظهر لي خطا ياشباب
"SELECT * FROM SectionsANDCollegrs,Sections WHERE [CollegeID] = '" & Txtcbocollege.Text & "' SectionsANDCollegrs.SectionID=Sections.SectionID ORDER BY [sectionName]"
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
تم حل المشكلة الحمد لله
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
هذا الموضوع مغلق.