can someone give me on how to use select sum with many fields...
thanks
here is my code but i dont know why it doesnt work...help pls
Dim Reader As PgSqlDataReader
Reader = db.GetSQLReader(String.Format("Select distinct urr_urinenget,sy_snm from urr inner join sy on sy.scd = urr_scd where urr_urinenget between {0} and {1} and urr_scd ={2} group by urr_urinenget,sy_snm", TDataCenter.db.TDataCenter.SingleQuatedStr(Date_from_new), TDataCenter.db.TDataCenter.SingleQuatedStr(Date_to_new), TDataCenter.db.TDataCenter.SingleQuatedStr(csd_code)))
Try
If Reader.RowCount > 0 Then
While Reader.Read
get_date = Reader.GetString("urr_urinenget").ToString()
product = Reader.GetString("sy_snm").ToString()
Dim objReader2 As PgSqlDataReader
objReader2 = db.GetSQLReader(String.Format("Select urr_urinenget,sum(urr_zurgsuu),sum(urr_zurgkin),sum(urr_curgsuu),sum(urr_curgkin),sum(urr_gurgsuu),sum(urr_gurgkin),sum(urr_turgsuu),sum(urr_turgkin) from urr where urr_urinenget={0} and urr_scd ={1} group by urr_urinenget ", TDataCenter.db.TDataCenter.SingleQuatedStr(get_date), TDataCenter.db.TDataCenter.SingleQuatedStr(csd_code)))
Try
If objReader2.RowCount > 0 Then
While objReader2.Read
'|||| New row
details_Row = details_Syouhinbetujunnbetu.NewRow
'|||| Assign values to column
Dim get_dd As String = objReader2.GetString("urr_urinenget").Trim()
Dim get_four_date As String = ""
Dim get_two_date As String = ""
' year
get_four_date = get_dd.Substring(0, 4)
' month
get_two_date = get_dd.Substring(4)
details_Row("urr_urinenget") = get_four_date + "年" + get_two_date + "月"
details_Row("urr_zurgsuu") = objReader2.GetString("urr_zurgsuu").Trim()
details_Row("urr_zurgkin") = objReader2.GetString("urr_zurgkin").Trim()
details_Row("urr_curgsuu") = objReader2.GetString("urr_curgsuu").Trim()
details_Row("urr_curgkin") = objReader2.GetString("urr_curgkin").Trim()
details_Row("urr_gurgsuu") = objReader2.GetString("urr_gurgsuu").Trim()
details_Row("urr_gurgkin") = objReader2.GetString("urr_gurgkin").Trim()
details_Row("urr_turgsuu") = objReader2.GetString("urr_turgsuu").Trim()
details_Row("urr_turgkin") = objReader2.GetString("urr_turgkin").Trim()
details_Syouhinbetujunnbetu.Rows.Add(details_Row)
End While
End If
Catch ex As Exception
Finally
objReader2.Close()
End Try
End While
End If
if all the fields have agreegate functions then the query is
select sum(a),sum(b) from tablex
if there is a field which do not need agreegation it has to be used for grouping
select sum(a),sum(b),c from tablex group by c
Let me know if you need any further clarifications
No comments:
Post a Comment