+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] كيف يتم برمجة البحث في برنامج المرفق ؟؟ (/showthread.php?tid=686)
كيف يتم برمجة البحث في برنامج المرفق ؟؟ - Microformt - 25-10-13
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف يتم برمجة البحث في برنامج المرفق ؟؟
علماً انني استخدم برمجة بيسك 2008
نامل من الله المساعده
RE: كيف يتم برمجة البحث في برنامج المرفق ؟؟ - سعود - 25-10-13
هل باي طريقة للبحث ام محددة بطريقة الربط؟؟
لانك مستخدم Bindingsource
RE: كيف يتم برمجة البحث في برنامج المرفق ؟؟ - العزابي - 25-10-13
طبعاً للبحث .. فيه طرق شي بفلتر وشي لا
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
كود :
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 & "%'"تحياتي
RE: كيف يتم برمجة البحث في برنامج المرفق ؟؟ - Microformt - 25-10-13
(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 & "%'"
تحياتي
اخي العزيز
لكم مني الف شكر وتقدير والله يحفظكم ويرعاكم
RE: كيف يتم برمجة البحث في برنامج المرفق ؟؟ - Microformt - 26-10-13
(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 & "%'"
تحياتي
--------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
هناك مشكله انه عند إدخال اي رقم يظهر نتيجة البحث اي سجل يوجد به رقم واحد
السوال هنا
كيف اجعل البحث يكون دقيق في البحث ؟؟
وكيف اجعل البحث عندما يكون السجل غير موجود يظهر رسالة ان السجل غير موجد بقاعدة البيانات؟؟
نا من الله المساعده والله يحفظكم ويرعاكم