+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : (تم الحل) في جملة do while (/showthread.php?tid=14211)
الصفحات:
1
2
RE: في جملة do while - awidan76 - 26-12-15
هذا المرفق من مكان ماوقفنا
RE: في جملة do while - awidan76 - 26-12-15
هذا ملف ورد فيه المطلوب مع الصوره
RE: في جملة do while - Ahmed_Mansoor - 27-12-15
أهلا أخي الكريم , الإستعلامات التي تم وضعها في متغيرات هي أصلا لابد أن تكون داخل جملة الإستعلام الأساسيه ولكن لطولها وضعتها في متغيرات على اساس ماتتلخبط وتتضح لديك الأكواد وكل جملة إستعلام تأتي بناتج جمع لعدد الطلاب وعدد الذكور منهم وعدد الإناث منهم , لذلك التاريخ لابد أن يكون في جميع الإستعلام لأنها إحصائيه واحده . وبالنسبه لكود الزر هو نفس الكود الموجود في حدث الـChange إذا لا ترغب به فأمسحه وأترك كود الـChange سيقوم بالعمل عند كتابة أي قيمة في التكست1 .
RE: في جملة do while - awidan76 - 27-12-15
لكن اخي الملف الذي ارفقته انت بعد التعديل لم ياتي باي قيم ابدا ولا اي حركه
بحاول انا فيه وبشوف اين الخطا
اماانت علمتني ان الصبر مفتاح الفرج ، لم اكن متوقع ابدا انك ستصبر عليا وتواصل معي والتعديل علي برنامجي الي هنا
فعلا انت انسان فريد من نوعك جزاك الله خير الله يجعله في ميزان حسناتك
اريدك ان تعلم امرين:
الامر الاول انك علمتني الكثير واستفذت منك الكثير ولك جزيل الشكر
والامر الثاني ان هذا البرنامج سيفك كربه اخيك awidan76 وسااخبر ماهي في رساله خاصه
جزاك الله خيرا اخي احمد منصور
جزاك الله خيرامحمد يحي
جزاك الله خيرا sniper.ps
علما بان اخي سنايبر لما اتواصل معه ابدا في هذا المنتدي الجديد لااعلم متي سيدخل ،
الف شكر لكم
RE: في جملة do while - awidan76 - 28-12-15
اولا الشكر والتقدير دائما وابدا للاخ احمد منصور علي المساعده المستحيله والصبر التي قامه بهما في تعليمي
حد يخلصنا,بقى لي كود استعلام واحد فقط
الله يستر عليكم ويحفظكم ويسعدكم وينور طريقكم في كل خطوه
اريد الثلاثة الاكواد التاليه في استعلام واحد باي طريقه تحبونها
كود :
(1)Count(stuid) as Total From stuTable where stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(2)Count(stuid) From stuTable Where stusex='f' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(3)Count(stuid) From stuTable Where stusex='m' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
RS2.Open "SELECT (frist cod As Total)(the Second cod As Totalfemal)(the third cod As Totalmale) where(نفس الثلاثة الشروط اعلاه),Db, adOpenStatic, adLockOptimisticRE: في جملة do while - awidan76 - 28-12-15
Are there?
(fixed) في جملة do while - awidan76 - 01-01-16
اخي الغالي احمد منصور
اعلمك ان المرفق الذي ارسلته انت اشتغل 100%
والخلل كان من تنسيق تاريخ الوندوز7 الخاص بي
الله يحفظك اخي
Ahmed_mansoor
انت استاذي وانا افتخر
///////// تم حل المشكله بواسطه ahmed _ mansoor ////////