الساده الكرام
السلام عليكم ورحمة وبركاته
كيف يتم برمجة البحث في برنامج المرفق ؟؟
علماً انني استخدم برمجة بيسك 2008
نامل من الله المساعده
هل باي طريقة للبحث ام محددة بطريقة الربط؟؟
لانك مستخدم Bindingsource
طبعاً للبحث .. فيه طرق شي بفلتر وشي لا
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
كود :
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 & "%'"
تحياتي
(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 & "%'"
تحياتي
---------------
اخي العزيز
لكم مني الف شكر وتقدير والله يحفظكم ويرعاكم
(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 & "%'"
تحياتي
--------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
هناك مشكله انه عند إدخال اي رقم يظهر نتيجة البحث اي سجل يوجد به رقم واحد
السوال هنا
كيف اجعل البحث يكون دقيق في البحث ؟؟
وكيف اجعل البحث عندما يكون السجل غير موجود يظهر رسالة ان السجل غير موجد بقاعدة البيانات؟؟
نا من الله المساعده والله يحفظكم ويرعاكم