Extraction with query

[viki1967]

Hi everyone.

I have this table :

Need extraction query:

***************************************

where SG = PP

Field IR ==> IRE ==> 4 rows
Field IR ==> IRE ==> 3 rows x Uo = 91
Field IR ==> IRE ==> 1 row x Uo = 93

Field IR ==> MAN ==> 3 rows
Field IR ==> MAN ==> 2 rows x Uo = 95
Field IR ==> MAN ==> 1 row x Uo = 96

Field IR ==> VAS ==> 1 row
Field IR ==> VAS ==> 1 row x Uo = 93

Field IR ==> IMI ==> 4 rows
Field IR ==> IMI ==> 1 row x Uo = 93
Field IR ==> IMI ==> 2 rows x Uo = 91
Field IR ==> IMI ==> 1 row x Uo = 96

***************************************

where SG = AS

Field SG ==> 4 rows
Field SG ==> 1 row x Uo = 95
Field SG ==> 2 rows x Uo = 93
Field SG ==> 1 row x Uo = 96

***************************************

It's possible with single query ?

Regards
Viki

[viki1967]

Your help please...

[viki1967]

OK, that is the solution... :

 
<%
 
sDatabaseConnection = "DRIVER={MySQL ODBC 3.51 Driver};"_
                            & "SERVER=localhost;"_
                            & "DATABASE=test;"_
                            & "UID=root;PWD=XXXXXX; OPTION=35;"
 
Set connCount = Server.Createobject("ADODB.Connection")
connCount.open sDatabaseConnection                                                                        
 
   Query = " SELECT "
   Query = Query & " ir, "
   Query = Query & " uo, "
   Query = Query & " count(*) as tot_uo "
   Query = Query & " FROM tbl_fraser "
   Query = Query & " GROUP BY ir, uo "
   Query = Query & " ORDER BY ir ASC "
 
   response.write query & "<br><br>"
 
   Set Rs = Server.CreateObject("ADODB.Recordset")
   Rs.Open Query, connCount
 
    if not Rs.eof then
    count = 0
 
         strUoCount = 0
            Rs.MoveFirst()
                  strIR = Rs("ir")
                        Do While Not Rs.EOF
 
 
                        if strIR <> Rs("ir") then                        
                              stampa = "TOT ir ----> '" & strIR & "'---->" & strUoCount & "<br>" & stampa & "<br>"
                                    Response.Write stampa
                                          strUoCount = 0
                              stampa = ""
                              strIR = Rs("ir")
                        end if
 
                              strUoCount = strUOCount + cLng(Rs("tot_uo"))
                              stampa = stampa & "IR ---->'" & Rs("ir") & "'----> UO ---->'" & Rs("uo") & "'---->" & Rs("tot_uo") & "<br>"
           Rs.MoveNext()
 
                       if Rs.EOF then
                             stampa = "TOT ir ----> '" & strIR & "'---->" & strUoCount & "<br>" & stampa & "<br>"
                             Response.Write stampa
                       end if
 
           Loop
 
   end if
 
Rs.Close
Set Rs = Nothing
 
 
connCount.Close
Set connCount = Nothing
 
%>