منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] سوال حول البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [vb6.0] سوال حول البحث (/showthread.php?tid=11119)

سوال حول البحث - hadeel - 09-01-15

السلام عليكم
سوال اذا تسمحون
اريد احد يكولي عله طريقه بحيث من ادخل الاسم لنفرض مثلا اسم (احمد)
بعدين لمه اجي ابحث عنه شون ما اكتب الاسم راح يظهر بالبحث يعني اذا كتبه (أحمد)او (إحمد )او ( احمد )راح يظهر الاسم
تحياتي لكم

RE: سوال حول البحث - محمد العبيدي - 16-01-15

على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال

او انك تضع الكود التالي في الاداة Text لمنع المستخدم من ادخال الحروف أ و إ 

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = Asc("أ") Or KeyAscii = Asc("إ") Then KeyAscii = Asc("ا")
End Sub


RE: سوال حول البحث - hadeel - 16-01-15

[quote='محمد العبيدي' pid='52899' dateline='1421423173']
على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال

او انك تضع الكود التالي في الاداة Text لمنع المستخدم من ادخال الحروف أ و إ 


كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = Asc("أ") Or KeyAscii = Asc("إ") Then KeyAscii = Asc("ا")
End Sub


[/qu اولا اشكرك اخي كثيرا الحقيقه دورت عالحل كثيرا لكن لم اجد الحل اشكرك
لكن اخي هسه هذا الكود اذا كان الادخال في تكست بوكس لكن اني عندي الادخال في inputbox كيف ستكون البرمجه
ولقد ارفقت لك صوره لكي تكون الصوره واضحه
تحياتي لك

RE: سوال حول البحث - محمد العبيدي - 17-01-15

اخي العزيز في حالة ان الادخال في InputBox فانت لاتستطيع اجبار المدخل على ادخال ا بدون همزه ولكن تستطبع تحويل الحرف الذي ادخله اين كان الى ا فقط ضع هذا الكود في سطر البحث الموجود في كودك
كود :
   n = Replace(Replace(n, "إ", "ا"), "أ", "ا")
   ST.MoveFirst
   ST.Find "FourNS='" & n & "'"


RE: سوال حول البحث - hadeel - 01-02-15

اخي محمد العبيدي
انا جربت اخر كود ارسلته حضرتك لكن ايضا اكو مشكله انو اذا ادخلت الاسم بدون الهمزه يعني مثللا (احمد)وبحثت عليه بالهمزه (أحمد) سوف يظهر الاسم وتظهر نتائج البحث
لكن اذا كان العكس لا يظهر يقول غير موجود
ارجو المساعده اخي ان امكن
تحياتي لك

RE: سوال حول البحث - مصطفى - 02-02-15

يمكن حل المشكلة بطريقة سلسة وسهلة جدا عن طريق كود الاستعلام عن البيانات

'^(أ|إ|ا|آ)' REGEXP اسم الحقل المراد البحث عنه where اسم الجدول select * from
وحاظر لاي سوال