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

تكملة كود البحث في فيجوال 2010

بدأه belal_musallam في 24 أكتوبر 2011 · 3 رد · 5,508 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارجو من الاخوة الافاضل افادتي بالكود المانسب في حال لم يتم العثور على اني نتائج للبحث في قاعدة البيانات ...

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click

If RadioButton1.Checked Then

ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("company_name like '%" & TextBox1.Text & "%'")

ElseIf RadioButton2.Checked Then

ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("products like '%" & TextBox1.Text & "%'")

ElseIf ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

MsgBox('لايوجدأي نتائج للبحث ... الرجاء المحاولة مرة أخرى')

End If

End Sub

#2
belal_musallam كتب:

If RadioButton1.Checked Then

ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("company_name like '%" & TextBox1.Text & "%'")

ElseIf RadioButton2.Checked Then

ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("products like '%" & TextBox1.Text & "%'")

ElseIf ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

MsgBox('لايوجدأي نتائج للبحث ... الرجاء المحاولة مرة أخرى')

End If

اخي الكريم بعد الانتهاء من الشروط يبقى الاتحمال الاخير وهو ان المستخدم لم يتخار احد الخياران وبتالي سيصبح الكود كتالي

If RadioButton1.Checked Then
 ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("company_name like '%" & TextBox1.Text & "%'")
ElseIf RadioButton2.Checked Then
            ProductsDataGridView.DataSource = Me.DbDataSet1.products.Select("products like '%" & TextBox1.Text & "%'")
          else  
            MsgBox(الرجاء اختيار طريقة البحث)
exit sub
        End If

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#3

اخي الكريم

هذا مثال بسيط على عملية البحث لتعم الفائدة لك وللاخرين باذن الله

بالمرفقات

بالتوفيق

ArabTeam Access Exapmle.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#4
عبدالرحمن المرشود كتب:

اخي الكريم

هذا مثال بسيط على عملية البحث لتعم الفائدة لك وللاخرين باذن الله

بالمرفقات

بالتوفيق

بارك الله فيك يا اخ عبد الرحمن واود منك ومن الاخوة في الموقع والمبرمجين افادتي بخصوص كيفية ربط الجزء الخاص باظهار عدد السجلات في قاعدة البيانات والموجود في navigator بنتجية البحث بحيث يظهر لي عدد السجلات التي نتجت من عملية البحث، كذلك ماهو الكود اللازم لعمل تحديث لقاعدة البيانات والكود الخاص بترتيب البيانات تصاعدي وتنازلي بعد تحديد العامود المراد ترتيبه ( مثلما نفعل في الاكسل او الاكسس او غيرها من تطبيقات الاوفيس)

اتمنى ان اكون قد وفقت في ايضاح الصورة والسؤال

وبارك الله فيكم

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