استعلام مركب في الاكسس

[atefkhalf2004 2]

السادة الافاضل
جملة select count تعد عدد السجلات
كيف يتم عدد الذكور وايضا عدد الاناث وعدد الناجحين وعدد الراسبين وذلك في جملة واحدة
select count (id) from table1 where kind="male
select count (id) from table1 where kind="female
select count (id) from table1 where kind="pass"
select count (id) from table1 where kind="fale

كيف يتم تجميع هذه الجمل في جملة واحدة
حتي يتم طباعة التقرير او عرضهم في جريد

شكرا

[VB Helper 751]

جرب الاستعلام التالي

select (select count (id) from table1 where kind='male') as Males, (select count (id) from table1 where kind='female') as Females, (select count (id) from table1 where kind='pass') as Pass, (select count (id) from table1 where kind='fale') As Fail

 

[atefkhalf2004 2]

لم ينفذ معي

فكرت في حل

اقسم الاستعلام حتي اصل الي الحل

select (select count (id) from table1  where  kind='mal' ) as males, (select count(id) from talbe1 where kind='femail' ) as femals

لكن لم يفي بالحل

ما الحل

[VB Helper 751]

ارجو ارفاق رساله الخطأ ممكن يكون خطأ باسم الجدول او الحقل, لأنه الحل جربته مسبقا

[atefkhalf2004 2]

If Conn.State = ConnectionState.Open Then Conn.Close()
        'ds.Clear()
        Dim ds6 As New DataSet
        ds6.Clear()
        Dim sqlstr6 As String = "select (select count (id) from student   where kind='ذكر') as Males, (select count (id) from student where kind='انثي') as Females "
        Dim dt6 As New OleDbDataAdapter(sqlstr6, Conn)
        dt6.Fill(ds6, sqlstr6)
        Conn.Close()
        MsgBox(ds6.Tables("").Rows(0).Item("Males").ToString)

تم تعديل 20 Feb 2016 بواسطه atefkhalf2004
اضافة

[atefkhalf2004 2]

حاولت ارفع القاعدة لم استطع

[VB Helper 751]

اذا كنت تستخدم اللغه العربيه في ادخال البيانات ارجو اضاف الحرف N قبل القيم في جمله الـ Select

تم تعديل 21 Feb 2016 بواسطه VB Helper

[atefkhalf2004 2]

السيد الفاضل

برجاء جملة ال  select    حتي  يظهر الاعداد

[VB Helper 751]

عذرا افتكر قاعده البيانات سيكول سيرفر, خليك على الجمله الاولى, لكن يبدوا في خطأ عندك في الكود, حاول استخدام ds6.Tables(0)