تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حصر عدد الرتب في التكست بوكس
#1
السلام عليكم

اخواني الكرام

أريد جميع الرتب الموجودة في قاعدة البيانات حتى اعرف عددها وتم توضيح ذلك في المشروع المرفق.

شاكر و مقدر لكم


الملفات المرفقة
.rar   WindowsLocasin.rar (الحجم : 118.92 ك ب / التحميلات : 44)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Using cm As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='جندي'"Conn)
 
           If Conn.State ConnectionState.Closed Then Conn.Open()
 
           TextBox4.Text cm.ExecuteScalar
            If Conn
.State ConnectionState.Open Then Conn.Close()
 
       End Using

        Using cm 
As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='جندي أول'"Conn)
 
           If Conn.State ConnectionState.Closed Then Conn.Open()
 
           TextBox5.Text cm.ExecuteScalar
            If Conn
.State ConnectionState.Open Then Conn.Close()
 
       End Using


        Using cm 
As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='عريف'"Conn)
 
           If Conn.State ConnectionState.Closed Then Conn.Open()
 
           TextBox6.Text cm.ExecuteScalar
            If Conn
.State ConnectionState.Open Then Conn.Close()
 
       End Using

        TextBox7
.Text Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text


الملفات المرفقة
.zip   WindowsLocasin.zip (الحجم : 252.47 ك ب / التحميلات : 42)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
#3
ضع هذا الكود فى نهاية كود تحميل النموذج 


كود :
       TextBox4.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي'")
       TextBox5.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي أول'")
       TextBox6.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='عريف'")
       TextBox7.Text = DataSet1.Tables("Embo2018").Rows.Count
الرد }}}
#4
إذا أردت أن تكون الأمور ديناميكية فيجب أن تكون بهذا الشكل
أي بمعنى لن نقوم بتحديد رتبة في الكود , بل سنجلب كل رتبة موجودة في قاعدة البيانات , وبناءاً عليها مجموع تكرار هذة الرتبة

   



جملة الأستعلام جعلتها في سطر واحد لأنة لو قسمتها على أسطر سيظهر لديك خطأ
   



لدي في الـ Visual Studio 2017 أستطيع أن أكتب الجملة بهذا الشكل : هي نفس الجملة في الأعلى ولكن فقط موضوع ترتيب شكل الكود
   


الملفات المرفقة
.rar   WindowsLocasin v2.rar (الحجم : 1.73 م ب / التحميلات : 52)
الرد }}}
#5
ما شاء الله الاخوة ما قصرت

مبارك عليكم شهر رمضان
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: سعود , أبووسم
#6
اكواد الاتصال المتصل ساحبة تفكيري كلهSmile
 برضو كدا يمشي
PHP كود :
       TextBox4.Text DataSet1.Tables(0).Select("[rotba]='جندي'").Length
        TextBox5
.Text DataSet1.Tables(0).Select("[rotba]='جندي أول'").Length
        TextBox6
.Text DataSet1.Tables(0).Select("[rotba]='عريف'").Length 
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , أبووسم , عبد العزيز البسكري
#7
جزاكم الله كل خير ، و الله يعجز لساني عن الثناء عليكم لوقفتكم الواحدة والتي تثلج الصدر لتواجدي في هذا المنتدى القيم ،

اسأل الله ان يحرم وجوهكم و وجه من أسس هذا المنتدى عن النار و أن يوفقكم لما يحب ويرضى
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة: سعود , عبدالله الدوسري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تكست بوكس EMADW 3 454 09-05-25, 05:09 PM
آخر رد: princelovelorn
  كود لتغير لون الخط فى التكست بوكس خالد كامل1 1 345 31-01-25, 06:22 PM
آخر رد: أبو خالد الشكري
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,802 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  مساعدة في استيراد البيانات من الليست بوكس fireswored1 4 483 22-01-25, 08:43 PM
آخر رد: fireswored1
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,115 23-12-24, 03:59 PM
آخر رد: aljzazy
  [VB.NET] جيك بوكس muaamar 3 392 23-11-24, 09:00 PM
آخر رد: rdxdz
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 563 07-11-24, 09:15 PM
آخر رد: modymody300894
  كيفيه التعامل مع ملفات الدروب بوكس عن طريق api ackore 3 468 22-08-24, 06:13 AM
آخر رد: ackore
  [VB.NET] تجاهل التشكيل من الأسماء عند البحث في التيكست بوكس Khalil chiha 3 535 01-08-24, 10:28 PM
آخر رد: Khalil chiha
  [سؤال] بخصوص الفلترة كومبو بوكس في الفيجوال ستوديو؟ Mena Sabet 2 563 06-05-24, 02:22 AM
آخر رد: Mena Sabet

التنقل السريع :


يقوم بقرائة الموضوع: