الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد مثال بسيط للبحث DataGridview

مغلقمُجاب
بدأه الحوت المضيء في 12 فبراير 2013 · 4 رد · 1,989 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم انا من اليوم  وانا ابحث  شيء  عن اظهار نتائج البحث في  DataGridview
 فوجد كلام عنه لكن لم افهم  شيء واذا فهمت  كل مااطبق على مشروع يطلع خطأ

فارجو منكم مثال بسيط للبحث في تكس بوكس واظهار النتجية DataGridview

 

وشكر 

الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك  فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة

#2

السلام عليكم الحوت

هذا كود مثال بسيط  للبحث :

قم باضافة 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

هذاكل ماتحتاجة ان شاء الله

بالتوفيق

1

سبحان الله وبحمده  ...  سبحان الله العظيم

#3

شكر لك لك اخي الكريم كنت اريد ان اقول وجدت الحل انت سبقتني ووضعت الحل  بارك االله فيك علما الحل الذي وجده ليس كاحلك

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

1

الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك  فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة

#4

انا عندي علاقة MANY TO MANY    مع الجداول

 

 

المهم اريد استعلام يظهر لي الناتج القيم طبعا يظهر لي خطا  ياشباب

 

"SELECT * FROM SectionsANDCollegrs,Sections WHERE [CollegeID] = '" & Txtcbocollege.Text & "' SectionsANDCollegrs.SectionID=Sections.SectionID  ORDER BY [sectionName]"

الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك  فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة

#5 أفضل إجابة

تم حل المشكلة الحمد لله

الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك  فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة

هذا الموضوع مغلق.

مواضيع مشابهة