المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
25-10-13, 04:19 PM
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف يتم برمجة البحث في برنامج المرفق ؟؟
علماً انني استخدم برمجة بيسك 2008
نامل من الله المساعده
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18798 مرات في 4415 مشاركات
هل باي طريقة للبحث ام محددة بطريقة الربط؟؟
لانك مستخدم Bindingsource
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(25-10-13, 09:37 PM)العزابي كتب : طبعاً للبحث .. فيه طرق شي بفلتر وشي لا
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
كود :
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان بودك إعطاء رسالة للمستخدم عند الضغط على زر البحث ولاتوجد قيمة أضف الكود التالي في البوتون
كود :
If TextBox4.Text.Trim = "" Then
MsgBox("الرجاء ادخال قيمة للبحث عنها", 16 + 524288, "البحث عن قيمة")
TextBox4.Text = ""
TextBox4.Focus()
Exit Sub
End If
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان تريد البحث بالنص وليس رقم
كود :
BindingSource1.Filter = "Name like '%" & TextBox4.Text & "%'"
تحياتي
---------------
اخي العزيز
لكم مني الف شكر وتقدير والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(25-10-13, 09:37 PM)العزابي كتب : طبعاً للبحث .. فيه طرق شي بفلتر وشي لا
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
كود :
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان بودك إعطاء رسالة للمستخدم عند الضغط على زر البحث ولاتوجد قيمة أضف الكود التالي في البوتون
كود :
If TextBox4.Text.Trim = "" Then
MsgBox("الرجاء ادخال قيمة للبحث عنها", 16 + 524288, "البحث عن قيمة")
TextBox4.Text = ""
TextBox4.Focus()
Exit Sub
End If
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان تريد البحث بالنص وليس رقم
كود :
BindingSource1.Filter = "Name like '%" & TextBox4.Text & "%'"
تحياتي
--------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
هناك مشكله انه عند إدخال اي رقم يظهر نتيجة البحث اي سجل يوجد به رقم واحد
السوال هنا
كيف اجعل البحث يكون دقيق في البحث ؟؟
وكيف اجعل البحث عندما يكون السجل غير موجود يظهر رسالة ان السجل غير موجد بقاعدة البيانات؟؟
نا من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ