[vb6.0] كود بحث - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : [vb6.0] كود بحث (/showthread.php?tid=12097)

كود بحث - علي انور - 18-04-15 السلام عليكم عندي بحث عن عدة كتب او اسماء هذا كود بحث xx = Text6.Text Adodc1.RecordSource = "select * from main where book Like '%" & xx & "%' " Adodc1.CommandType = adCmdText Adodc1.Refresh هل استطيع في البحث ان اكتب ه=ة و ا=أ و ي = ى مثلا اريد ابحث عن احمد بعضها مكتوب احمد في الاكسل والبعض الاخر مكتوب أحمد في الاكسل واريد نتيجة البحث يطلع احمد وأحمد هل يوجد كود لهذا واريد اظهار نتائج البحث عدد الاسماء المستخرجة من datagrid هل يوجد كود مع تحياتي RE: كود بحث - محمد العبيدي - 18-04-15 اخي العزيز يمكنك ان توحد الكتابه في الداته بيس يعني عند الادخال تعمل تعديل للاسم وتحول كل أ الی ا او انو اتحط كود في التكست بوكس الي تكتب فيه الاسم بحيث تمنع اليوزر ايدخل حرف أ وتسمحله ب ا وعند البحث نفس الحاله اتعدل عله الاسم الي ديبحث عنه المستخدم وتحول كل أ ال ا ثم تبحث بالجمله الي كتبته RE: كود بحث - علي انور - 18-04-15 مشكور اخي على الرد بس اني عندي 23000 كتاب وهذه الطريقة صعبة جدا هل يوجد طريقة اسهل واني جدا ممنون يا اخي الغالي RE: كود بحث - محمد العبيدي - 18-04-15 اخي العزيز هاي الطريقه حتكون للادخالات الجديده فقط اما الادخال القديم فيمكنك التعديل عليه من داخل الداته بيس عن طريق الreplace