تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] سوال حول البحث
#1
السلام عليكم
سوال اذا تسمحون
اريد احد يكولي عله طريقه بحيث من ادخل الاسم لنفرض مثلا اسم (احمد)
بعدين لمه اجي ابحث عنه شون ما اكتب الاسم راح يظهر بالبحث يعني اذا كتبه (أحمد)او (إحمد )او ( احمد )راح يظهر الاسم
تحياتي لكم
الرد
تم الشكر بواسطة: مصطفى
#2
على حسب علمي يجب ان تستخدم دالة الReplace وتستبدل حروف أ و إ بحرف ا ويجب ان تعمل هذه الطريقة عند الاضافة ايضاً لغرض توحيد عملية الادخال

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

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = Asc("أ") Or KeyAscii = Asc("إ") Then KeyAscii = Asc("ا")
End Sub
الرد
تم الشكر بواسطة: hadeel
#3
[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 كيف ستكون البرمجه
ولقد ارفقت لك صوره لكي تكون الصوره واضحه
تحياتي لك


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
السلام عليكم \
اعتذر على المداخلة
Blush  
هذا مثال للاستعلام عن سجل عن طريق صندوق البحث

   
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: hadeel , rnmr
#5
اخي العزيز في حالة ان الادخال في InputBox فانت لاتستطيع اجبار المدخل على ادخال ا بدون همزه ولكن تستطبع تحويل الحرف الذي ادخله اين كان الى ا فقط ضع هذا الكود في سطر البحث الموجود في كودك
كود :
   n = Replace(Replace(n, "إ", "ا"), "أ", "ا")
   ST.MoveFirst
   ST.Find "FourNS='" & n & "'"
الرد
تم الشكر بواسطة:
#6
اخي محمد العبيدي
انا جربت اخر كود ارسلته حضرتك لكن ايضا اكو مشكله انو اذا ادخلت الاسم بدون الهمزه يعني مثللا (احمد)وبحثت عليه بالهمزه (أحمد) سوف يظهر الاسم وتظهر نتائج البحث
لكن اذا كان العكس لا يظهر يقول غير موجود
ارجو المساعده اخي ان امكن
تحياتي لك
الرد
تم الشكر بواسطة:
#7
يمكن حل المشكلة بطريقة سلسة وسهلة جدا عن طريق كود الاستعلام عن البيانات

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 87 07-11-18, 05:53 PM
آخر رد: gedo
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 471 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  سوال حول ترقيم تلقائي m_shrif 1 804 21-01-17, 06:33 PM
آخر رد: Ashraf Elafify
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 776 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سوال؟ تحويل صورة الى ايقونة للبرنامج amer2000 6 745 21-10-16, 03:56 AM
آخر رد: أبو عمر
  [سؤال] سوال؟ عن طباعة الورقة عرض(التقرير) amer2000 21 1,986 15-09-16, 10:00 PM
آخر رد: Amir_alzubidy
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 794 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  سوال هل يمكن فتح متصفح بالفيجوال عن طريق جوجل كروم بدلا من انترنت اكسبلور ahmedhhh2 5 811 05-06-16, 03:10 PM
آخر رد: ahmedhhh2
  سوال حول كتابة حرف ك فوقه ثلاث نقط tichouckt 3 1,185 22-01-16, 12:12 AM
آخر رد: كاظم هاشم البهادلي
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,784 29-12-15, 02:57 AM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم