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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث بالأسم الأول فقط (/showthread.php?tid=49821)

البحث بالأسم الأول فقط - heem1986 - 02-08-24

[صورة مرفقة: 737389268.png]السلام عليكم أريد البحث فى قاعد بيانات sql بالأسم الأول فقط بمحنى لديه عميل بأسم محمد حسن وعميل آخر بأسم محمد سيد فأريد عند كتابة محمد يظهر جميع العملاء التى تبدأ أسمائهم بمحمد مع العلم  ولا أريد بحرف م بمحنى أنه بمجرد كتابة حرف م يتم جلب كل الأسماء التى تبدأ بحرف ال م فأنا اريد فقط الجلب بالأسم الأول وليس بالحرف الأول

[صورة مرفقة: view?usp=drive_link]

 

RE: البحث بالأسم الأول فقط - Taha Okla - 02-08-24

وعليكم السلام
لا تجعل البحث يبدأ بمجرد الكتابة
بل أجعل البحث بعد الضغط على زر معين.. 
يعني بعد ما تكتب ما تريد البحث عنه  أضغط على زر ووقتها يبدأ البحث..

RE: البحث بالأسم الأول فقط - heem1986 - 02-08-24

(02-08-24, 08:10 PM)Taha Okla كتب : وعليكم السلام
لا تجعل البحث يبدأ بمجرد الكتابة
بل أجعل البحث بعد الضغط على زر معين.. 
يعني بعد ما تكتب ما تريد البحث عنه  أضغط على زر ووقتها يبدأ البحث..

للأسف أحتاج البحث المباشر من خلال الكتابة فى التيكست بوكس بدون أستخدام زر بحث 
وهذا الكود الذى استخدمه حالياً ولكن بمجرد كتابة أول حرف تظهر كل الأسماء التى تبدأ بنفس الحرف فأريد البحث بأول كلمة وليس أول حرف 
PHP كود :
"select DISTINCT(sname) from syana_add where fra='" & mod_con.fra & "'and sname like '" & sname.text & "%' GROUP by sname" 

ومرفق صورة لنتائج البحث

RE: البحث بالأسم الأول فقط - Taha Okla - 02-08-24

سجل في بداية الكود (حدث التكست بوكس الذي تبحث بواسطته) الكود التالي:

كود :
If Len(sname.Text) <= 1 Then Exit Sub
If Strings.Right(sname.Text, 1) <> " " Then Exit Sub

بهذا اذا انتهيت من الكتابة وبمجرد الضغط على زر المسافة (يعني بعد الانتهاء من كتابة الاسم الأول)
من أجل البدء الاسم التالي سيقوم ببدء البحث
وإذا لم تضغط على المسافة فلن يبدأ بالبحث ..

واذا بدأت بكتابة الاسم الثاني سيتوقف البحث ولن يغير شيء حتى تنتهي من الاسم الثاني وتضغط على زر المسافة
وحينها سيبدأ من جديد بالبحث عن الاسم المكتوب( كل اسم يبدأ بـ (الأول مع الثاني)) و هكذا ..

RE: البحث بالأسم الأول فقط - heem1986 - 02-08-24

(02-08-24, 11:20 PM)Taha Okla كتب : سجل في بداية الكود (حدث التكست بوكس الذي تبحث بواسطته) الكود التالي:

كود :
If Len(sname.Text) <= 1 Then Exit Sub
If Strings.Right(sname.Text, 1) <> " " Then Exit Sub

بهذا اذا انتهيت من الكتابة وبمجرد الضغط على زر المسافة (يعني بعد الانتهاء من كتابة الاسم الأول)
من أجل البدء الاسم التالي سيقوم ببدء البحث
وإذا لم تضغط على المسافة فلن يبدأ بالبحث ..

واذا بدأت بكتابة الاسم الثاني سيتوقف البحث ولن يغير شيء حتى تنتهي من الاسم الثاني وتضغط على زر المسافة
وحينها سيبدأ من جديد بالبحث عن الاسم المكتوب( كل اسم يبدأ بـ (الأول مع الثاني)) و هكذا ..

جزاك الله خيراً كنت محتاجها من خلال أمر select لأن المشكلة عندى بالنسخة الأندرويد للبرنامج الذى اعمل فى برمجته وليس نسخة سطح المكتب ولأن الأدوات المتواجدة بالبرنامج الذى استخدمه فى برمجة تطبيق الأندرويد لا يدعم هذا الكود فإننى أبحث عن جلب النتائج بكود sql

RE: البحث بالأسم الأول فقط - Zuhare - 03-08-24

اضف مسافه بعد المطلوب مثل هذا مثلا
كود :
"select DISTINCT(sname) from syana_add where fra='" & mod_con.fra & "'and sname like '" & sname.text & " %' GROUP by sname"


RE: البحث بالأسم الأول فقط - heem1986 - 03-08-24

(03-08-24, 02:26 PM)Zuhare كتب : اضف مسافه بعد المطلوب مثل هذا مثلا
كود :
"select DISTINCT(sname) from syana_add where fra='" & mod_con.fra & "'and sname like '" & sname.text & " %' GROUP by sname"

جزاك الله كل الخير ظبط معايا فعلاً
أشكر كثيراً العاملين على المنتدى وأذكر بالشكر لكل من قام بالرد عليها ومساعتى كلاً من Taha Okla و Zuhare