+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : بحث بين رقمين داخل الجدول (/showthread.php?tid=22318)
بحث بين رقمين داخل الجدول - hannileo - 30-10-17
السلام عليكم ورحمة الله وبركاته
اخواني الكرام عندي مشكلة صغيرة ارجو منكم اعطائي الحل لها
عندي جدول واريد عمل بحث بين رقمين داخل هذا الجدول عند وضع الرقم الاول داخل مربع text1 والرقم الثاني داخل مربع text2 والضغط على زر بحث
لنفرض وضعت بحث بين 50 الى 80 فانه يظهر لدي الارقام 6 و 7 و 8 بالاضافة الى الارقام التي بحثت عنها
كود زر بحث
كود :
Adodc1.RecordSource = "select * from Ais where bus_no >= '" & Val(Trim$(Text1.Text)) & "' and bus_no <= '" & Val(Trim$(Text2.Text)) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Ifهل هناك خطأ بالكود ام هناك اضافات يجب وضعها داخل الكود ليعمل بشكل افضل
ملاحظة مهمة ::: استخدم اداة Adodc في اتصال بقاعدة البيانات .
وشكرا جزيلاً لحهودكم
RE: بحث بين رقمين داخل الجدول - hannileo - 31-10-17
(30-10-17, 06:10 PM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله
الطريقة صحيحة
لكن للأفضل تحويل نوع حقل الرقم
من نص الى رقم من قاعدة البيانات
وبالنسبة لجملة الاستعلام ازل علامة
'
تحياتي لك استاذ امير وأشكرك جزيل الشكر على اهتمامك
لكن للاسف لم يتغير شي بعد تحويل نوع الحقل الى رقم
وبالنسبة الى ازالة علامة الفاصلة '
فقط اصبح يظهر رسالة خطأ عن تشغيل الامر
على كل حال لقد عملت مثال بسيط بالمرفقات يبين المشكلة ارجو منك ان تساعدني بحلها
بارك الله بك وبجهودك وشكراً
RE: بحث بين رقمين داخل الجدول - Ahmed_Mansoor - 31-10-17
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , كما ذكر لك أخي أمير يجب تحويل نوع الحقل BusNo إلى رقم ثم إزالة علامات التنصيص من جملة الإستعلام , لتصبح بهذا الشكل :
PHP كود :
Adodc1.RecordSource = "select * from Data where BusNo>=" & Val(Trim$(Text1.Text)) & " and BusNo<=" & Val(Trim$(Text2.Text))
RE: بحث بين رقمين داخل الجدول - hannileo - 31-10-17
(31-10-17, 10:56 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , كما ذكر لك أخي أمير يجب تحويل نوع الحقل BusNo إلى رقم ثم إزالة علامات التنصيص من جملة الإستعلام , لتصبح بهذا الشكل :
PHP كود :
Adodc1.RecordSource = "select * from Data where BusNo>=" & Val(Trim$(Text1.Text)) & " and BusNo<=" & Val(Trim$(Text2.Text))
اعجز عن شكركم اساتذتنا
لامثيل لكم بالكرم والاخلاق بارك الله بكم وجعل عملكم في ميزان حسناتكم
ورزقكم من حيث لاتحتسبون