Monatsverbräuche aus DGV-Daten ermitteln, später Tagesverbräuche

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Kasi.

    Monatsverbräuche aus DGV-Daten ermitteln, später Tagesverbräuche

    Hallo,

    ich habe mal wieder ein Problem...
    In meinem Projekt möchte ich die monatlichen Stromverbräuche mehrerer Messstellen ausgeben. Ich zeichne aktuell in verschiedenen Intervallen die Verbräuche auf und schreibe sie in eine MySQL-Datenbank.
    Um nun den monatlichen Stromverbrauch einer Anlage zu ermitteln filtere ich nach Datum (z.B. SELECT 'Zaehlerstand' FROM `Stromverbrauch`.`Anlage_01` WHERE 'Zeitstempel' BETWEEN '2022-10-01 00:00:00' AND '2022-10-01 23:59:59';), binde die Daten an ein DGV und subtrahiere vom Wert der letzten Zeile, den Wert der ersten Zeile.

    Nun zu meiner Frage.
    Aktuell binde ich Monat für Monat an das DGV. Kann ich mir die Daten relativ elegant auch aus einem DGV, ohne jedes Mal neu zu binden? Ich weiß, dass ich dann theoretisch immer das Datum vergleichen müsste, aber vielleicht ist es ja relativ einfach möglich?
    Ich frage in Hinblick darauf, dass ich die Verbräuche auch mal tagesweise ausgeben möchte.

    für eine Übersicht kann du PIVOT verwenden (Access als DB)
    hier ein Bsp.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Data.OleDb
    4. Public Class Form2
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    8. Dim FrozenColumsCount As Integer = 3
    9. ''für Jahre Monate
    10. Dim sql As String = <sql>
    11. TRANSFORM Sum(tbl_Tanken.GetankteLiter) AS SummevonGetankteLiter
    12. SELECT Format([TankDatum],"yyyy") AS [in Jahr],
    13. tbl_Tanken.KFZ, Sum(tbl_Tanken.GetankteLiter) AS Gesamt
    14. FROM tbl_Tanken
    15. GROUP BY Format([TankDatum],"yyyy"), tbl_Tanken.KFZ
    16. PIVOT Format([TankDatum],"mmm") In ("Jan","Feb","Mrz","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Dez");
    17. </sql>.Value
    20. ''für Jahre-Monate-Tage
    21. 'Dim sql As String = <sql>
    22. ' TRANSFORM Sum(tbl_Tanken.GetankteLiter) AS SummevonGetankteLiter
    23. ' SELECT Format([TankDatum],"yyyy") AS [in Jahr], Format([TankDatum],"mm") AS [in Monat], Sum(tbl_Tanken.GetankteLiter) AS Gesamt
    24. ' FROM tbl_Tanken
    25. ' GROUP BY Format([TankDatum],"yyyy"), Format([TankDatum],"mm")
    26. ' ORDER BY Format([TankDatum],"mm")
    27. 'PIVOT Format([TankDatum],"dd") In ("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31");
    28. '</sql>.Value
    30. Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=E:\Adressen.mdb")
    31. Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
    32. con.Open()
    33. Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
    34. Dim myDataSet As DataSet = New DataSet()
    35. myDA.Fill(myDataSet, "MyTable")
    36. DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView
    37. DataGridView1.AllowUserToAddRows = False
    38. con.Close()
    39. con = Nothing
    40. With DataGridView1
    41. For i As Integer = 3 To .Columns.Count - 1
    42. .Columns(i).Width = 50
    43. .Columns(i).DefaultCellStyle.Format = "c"
    44. Next
    45. End With
    46. 'Freeze
    47. For i As Integer = 0 To FrozenColumsCount - 1
    48. DataGridView1.Columns(i).Frozen = True
    49. Next
    50. End Sub
    53. End Class


    so sieht die Übersicht dann aus

Facebook
Telefonspende