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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : بحث بين رقمين (/showthread.php?tid=1278)

الصفحات: 1 2

بحث بين رقمين - superwoofer - 18-12-13

rs.Open "SELECT * FROM table1 WHERE rr between #" & text1 & " # and #" & text2 & "#" & " order by rr", db, 1, 3




ارجو التعديل علي هذا الكود للبحث بين رقمين

RE: بحث بين رقمين - superwoofer - 18-12-13

????????????????/

RE: بحث بين رقمين - ناجي إبراهيم - 18-12-13

السلام عليكم...

كود :
rs.Open "SELECT * FROM table1 WHERE rr BETWEEN " & Text1.Text & " AND " & Text2.Text & " ORDER BY rr", db, 1, 3

* الخطأ كان استخدام علامات # مع القيم الرقمية. العلامة # تستعمل فقط مع التواريخ في Access.
* لا فرق بين الحروف الكبيرة و الصغيرة في عبارات SQL (أنا فقط أحب كتابتها بحروف كبيرة).

نرجو الاستفادة و السلام.

RE: بحث بين رقمين - superwoofer - 18-12-13

يوجد خطا في الكود استاذنا

RE: بحث بين رقمين - VB_Coder - 18-12-13

السلام عليكم

- هذا إضافة طفيفه على كود أخي العزيز ناجي إبراهيم , ربما يكون الخطأ من عدم وضع ASC في نهاية الجملة أو ربما من عدم وضع Val حول التكست بوكس إذا كان الحقل نوعه رقمي , ربما :

كود :
rs.Open "SELECT * FROM table1 WHERE rr BETWEEN " & Val(Trim$(Text1.Text)) & " AND " & Val(Trim$(Text2.Text)) & " ORDER BY rr ASC", db, 1, 3

- تحياتي .

RE: بحث بين رقمين - ناجي إبراهيم - 18-12-13

السلام عليكم...

(18-12-13, 05:16 PM)superwoofer كتب : يوجد خطا في الكود استاذنا

من المفترض أن تذكر ما هو الخطأ أو رسالة الخطأ، و في أي سطر يحدث.

-----------------------------------------------------------------------------------------

أهلاً أخي VB_Coder...
= إذا لم تحدد ASC أو DESC فإنه يتم استعمال ASC بشكل افتراضي.
= لا تحتاج إلى استعمال Val (التي تحول الـ String إلى عدد) لأنك تريد أصلاً وضع محتوى الـ TextBox ضمن String.
= استعمال Trim ربما يكون ضرورياً لإزالة الفراغات الزائدة.

و الله أعلم.

سلام.

RE: بحث بين رقمين - superwoofer - 18-12-13

مرفق المثال يا استاذنا ياريت نلاقي حل

RE: بحث بين رقمين - VB_Coder - 18-12-13

السلام عليكم

- أنت لم تقم بالإتصال بقاعدة البيانات في المثال المرفق , لذلك ضع هذا في حدث ال From_Load في المثال وإن شاء الله سيعمل معك :

كود :
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"

- تحياتي .

RE: بحث بين رقمين - superwoofer - 18-12-13

جزاك الله خير استاذنا VB_Coder
المشكلة عندي ان قيمة الحقل text وقمت بتعديلها ل number في قاعدة البيانات علما اني متصل بقاعدة البيانات في البرنامج الاصلي وتم حل المشكلة عند تغير القيمة ل number ربنا يزيدك علم

RE: بحث بين رقمين - superwoofer - 19-12-13

معلش كنت عايز كود زرار داخل الفورم عند الضغط عليه يرجع الفورم الي بداية الدخول زي
form.show