Projektplanung DataSet/DataTable typisiert

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Projektplanung DataSet/DataTable typisiert

    Moin moin

    Ich bin dabei ein kleines Project umzusetzen. Im groben habe ich meine Vorstellungen bzgl des Aufbaus fertig. Anfallende Daten werden letztlich in einer SQLight-DB abgelegt. Das hier kein Passwortschutz möglich ist, ist nicht weiter schlimm, da keine so wichtigen persönlichen Daten gespeichert werden. Zumindest kann ich hier mit 64Bit arbeiten, was leider bei Access 2003 DBs nicht geht.

    Daten Eingabe der Daten und das Anzeigen dieser geht über DGVs auf einem TabControl. Siehe Bild.

    Vorgaben: Drei (3) Mess-Stationen in drei Räumen. Die Werte werden bis jetzt 2-Mal Täglich abgelesen. Das kann sich noch auf 3-Mal Täglich ändern.
    Die DGV zeigen immer den kompletten Monat an. Später sollen Mittelwerte etc berechenbar und Graphische Anzeigen dieser möglich sein.

    Bevor ich nun mit der DB und dem ganzen anderem beginne, steht die Planung des DS und der DT an.

    Ich verfolge dabei 2 Grundideen. Siehe Bild.

    Ein gemeinsames DataSet.
    • Ein DT für alle Messtationen, wobei jede ihre eigne "StationID" bekommt.
    • Für jede Messtation ein eigenes DT.

    • Welche Variante wäre hier zu empfehlen oder gibt es evtl noch eine andere Möglichkeiten?
    • Kommen sich ggf die drei DGV in den DT in die Quere?
    • Kann ich eine Graphische Anzeige usw. aller Daten realisieren, wenn ich mit 3 DT arbeite? (Z.B. Drei Linien auf einem Chat, Temperatur/Tag von jeder Mess-Station)

    Bin für jede Hilfe / Idee offen... Danke :)

    *Topic verschoben*
    Bilder

    • DS_DT1.jpg

      175,65 kB, 808×279, 108 mal angesehen

    • DS_DT2.jpg

      78,89 kB, 444×245, 98 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Eine Tabelle für alle 3 Stationen. Aber
    Tabelle1: ID, Stationsname
    Tabelle2: ID, StationsID, alle Messwerte.
    1:N nennt sich dieses "Datenverhältnis". Du hast z.B. eine Station und zu dieser einen Station hast Du N Messwertpakete. N ist eine beliebige Zahl, die wiedergibt, wieviele Messwertpakete Du für diese Station gesammelt hast.

    Amelie schrieb:

    Kommen sich ggf die drei DGV in den DT in die Quere?
    Die Frage ergibt inhaltlich keinen Sinn, aber ich übersetze mal und sage: nein, da die DGVs eben über die BindingSources so eingestellt werden können, dass nur Daten je einer Station angezeigt werden. Und ein 4. DGV könnte die Daten aller Stationen anzeigen. Oder die Daten aller Stationen der vergangenen sieben Tage. Oder alle Werte, die eine bestimmte Messwertgrenze überschritten haben. Wie Du willst.
    Die grafische Anzeige, z.B. über ein Chart ist kein Problem, da mehrere sog. Series angelegt werden können, wodurch einfach z.B. 3 Kurvenverläufe angezeigt werden. Aber das sollte erst Thema sein, wenn die Grundeinstellungen passen.
    Die Benennung Deiner Tabellen: wenn englisch, dann richtig: Daily, nicht Dayli. Nicht DeutschEnglischMischmasch, sondern entweder oder. Ich bevorzuge für meinen Code englische Begriffe, da die Programmiersprache aus englischen Begrifflichkeiten besteht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed

    Also ich habe nun neue DT erstellt und die Beziehung gemacht. Das gleiche dann mit dem SqlStudio für die Datenbank.
    Ich hoffe das die Einstellungen da so richtig sind.
    Siehe Bilder. :)
    Bilder

    • DB_SqLight1.jpg

      368 kB, 1.035×546, 95 mal angesehen

    • DS_DT3.jpg

      96,3 kB, 580×281, 95 mal angesehen

    • DB_SqLight2.jpg

      291,39 kB, 980×496, 105 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Sieht sinnvoll aus, auch wenn ich das DB-GUI nicht kenne. Aber das ist egal.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dann müsste wohl das mit der Luftfeuchtigkeit auch abgetrennt werden.
    Oder eine Tabelle, bestehend aus Temperatur und Luftfeuchtigkeit.
    Dann braucht es aber auch Zeitpunkte in den abgetrennten Tabellen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    So würd ichs machen:

    Tabelle Tageszeit, Spalte ID, Name, enthält 3 Stammdatensätze: "Morgens", "Mittags", "Abends"
    Tabelle Measurement enthält StationID, TagesZeitID, Temperatur, Luftfeuchte, also je eine Messung: Temp + Feuchte

    Relationen:
    Station->Measurement<-Tageszeit

    (Und ich würds natürlich DatasetOnly machen. SqlLite finde ich ganz unnütz - ist ja auch nur eine Datei.)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Moin moin
    Danke noch für die ganzen zusatzinfos / ideen.
    Also mit SqLight bekomme ich es so nicht hin. Irgendwie sträubt sich da immer etwas, so dass ich nun schon fast von SqLight wegkomme.
    Mit Access 2003 war es relativ schnell gemacht die Tabellen und Beziehungen zu erstellen, ebenso konnte ich damit eine weitere Tabelle erstellen für die Abfragen der Mittelwerte. Der Haken ist, das die nur mit 32Bit geht. Wer weis wie lange das noch unterstützt wird.

    Ich werde es heute mal mit dem reinen DataSet versuchen.
    Zeige später mal was ich so hinbekomme.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Hallo

    So habe mein DataSet und DataTables usw. nun fertig. Dadurch das sich etwas an den Messdaten geändert hat, bin ich mit einem DT ausgekommen.
    Habe das nun so gemacht, das ich die Daten sowohl in einem "XML-File" oder in einer "SqLight-DB" ablegen kann.

    Dazu brauche ich nur diese Klasse hier entsprechend ändern.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SaveLoadXml
    2. Private dataManager As DataManager
    3. Private DsClima As DsClima
    4. Public Event Success(success As Boolean)
    6. 'Private ReadOnly DataBaseName As String = "A:\HomeClimaBackup\Datas2\HomeClima.db"
    7. 'Private DBPath As String
    8. 'Private connectionString As String
    9. Public Sub New(dataManagerInstance As DataManager)
    10. dataManager = dataManagerInstance
    11. 'DBPath = Path.Combine(dataManager.Directory, DataBaseName)
    12. 'connectionString = $"Data Source={DBPath};Version=3;"
    13. End Sub
    15. Public Sub SaveDatasXml(DsClima As DsClima)
    16. Try
    17. DsClima.WriteXml(dataManager.FilePath)
    18. RaiseEvent Success(True)
    19. 'MessageBox.Show($"Die Daten wurden erfolgreich in{Environment.NewLine}{dataManager.FilePath} gespeichert.")
    20. Catch ex As Exception
    21. MessageBox.Show($"Fehler beim Speichern der Daten: {ex.Message}")
    22. End Try
    23. End Sub
    25. Public Sub LoadDataFromXML(DsClima As DsClima)
    26. Try
    27. If File.Exists(dataManager.FilePath) Then
    28. DsClima.Clear()
    29. DsClima.ReadXml(dataManager.FilePath)
    30. Else
    31. MessageBox.Show("Die XML-Datei konnte nicht gefunden werden.")
    32. End If
    33. Catch ex As Exception
    34. MessageBox.Show($"Fehler beim Laden der Daten aus XML: {ex.Message}")
    35. End Try
    36. End Sub
    38. 'Public Sub SaveDatasSql(DsClima As DsClima)
    39. ' Try
    40. ' Using connection As New SQLiteConnection(connectionString)
    41. ' connection.Open()
    43. ' ' Speichere die Daten in der SQLite-Datenbank
    44. ' Using command As New SQLiteCommand("INSERT INTO Messwerte (Station, Datum, Temperatur1, Temperatur2, Temperatur3, Humidity1, Humidity2, Humidity3, Notizen) VALUES (@Station, @Datum, @Temperatur1, @Temperatur2, @Temperatur3, @Humidity1, @Humidity2, @Humidity3, @Notizen)", connection)
    45. ' For Each row As DataRow In DsClima.Tables("Messwerte").Rows
    46. ' 'command.Parameters.AddWithValue("@ID", row("ID"))
    47. ' command.Parameters.AddWithValue("@Station", row("Station"))
    48. ' command.Parameters.AddWithValue("@Datum", row("Datum"))
    49. ' command.Parameters.AddWithValue("@Temperatur1", row("Temperatur1"))
    50. ' command.Parameters.AddWithValue("@Temperatur2", row("Temperatur2"))
    51. ' command.Parameters.AddWithValue("@Temperatur3", row("Temperatur3"))
    52. ' command.Parameters.AddWithValue("@Humidity1", row("Humidity1"))
    53. ' command.Parameters.AddWithValue("@Humidity2", row("Humidity2"))
    54. ' command.Parameters.AddWithValue("@Humidity3", row("Humidity3"))
    55. ' command.Parameters.AddWithValue("@Notizen", row("Notizen"))
    57. ' command.ExecuteNonQuery()
    58. ' command.Parameters.Clear()
    59. ' Next
    60. ' End Using
    62. ' RaiseEvent Success(True)
    63. ' MessageBox.Show("Die Daten wurden erfolgreich in der SQLite-Datenbank gespeichert.")
    64. ' End Using
    65. ' Catch ex As Exception
    66. ' Debug.WriteLine($"Fehler beim Speichern der Daten in SQLite: {ex.Message}")
    67. ' MessageBox.Show($"Fehler beim Speichern der Daten in SQLite: {ex.Message}")
    68. ' End Try
    69. 'End Sub
    71. 'Public Sub UpdateDatasSql(DsClima As DsClima)
    72. ' Try
    73. ' Using connection As New SQLiteConnection(connectionString)
    74. ' connection.Open()
    76. ' ' Aktualisiere die Daten in der SQLite-Datenbank
    77. ' Using command As New SQLiteCommand("UPDATE Messwerte SET Temperatur1 = @Temperatur1, Temperatur2 = @Temperatur2, Temperatur3 = @Temperatur3, Humidity1 = @Humidity1, Humidity2 = @Humidity2, Humidity3 = @Humidity3, Notizen = @Notizen WHERE ID = @ID", connection)
    78. ' For Each row As DataRow In DsClima.Tables("Messwerte").Rows
    79. ' command.Parameters.AddWithValue("@ID", row("ID"))
    80. ' command.Parameters.AddWithValue("@Temperatur1", row("Temperatur1"))
    81. ' command.Parameters.AddWithValue("@Temperatur2", row("Temperatur2"))
    82. ' command.Parameters.AddWithValue("@Temperatur3", row("Temperatur3"))
    83. ' command.Parameters.AddWithValue("@Humidity1", row("Humidity1"))
    84. ' command.Parameters.AddWithValue("@Humidity2", row("Humidity2"))
    85. ' command.Parameters.AddWithValue("@Humidity3", row("Humidity3"))
    86. ' command.Parameters.AddWithValue("@Notizen", row("Notizen"))
    88. ' command.ExecuteNonQuery()
    89. ' command.Parameters.Clear()
    90. ' Next
    91. ' End Using
    93. ' RaiseEvent Success(True)
    94. ' MessageBox.Show("Die Daten wurden erfolgreich in der SQLite-Datenbank aktualisiert.")
    95. ' End Using
    96. ' Catch ex As Exception
    97. ' Debug.WriteLine($"Fehler beim Aktualisieren der Daten in SQLite: {ex.Message}")
    98. ' MessageBox.Show($"Fehler beim Aktualisieren der Daten in SQLite: {ex.Message}")
    99. ' End Try
    100. 'End Sub
    102. 'Public Sub LoadDataFromSQL(DsClima As DsClima)
    103. ' Try
    104. ' Using connection As New SQLiteConnection(connectionString)
    105. ' connection.Open()
    107. ' ' Lade die Daten aus der SQLite-Datenbank
    108. ' Using command As New SQLiteCommand("SELECT * FROM Messwerte", connection)
    109. ' Using reader As SQLiteDataReader = command.ExecuteReader()
    110. ' DsClima.Tables("Messwerte").Load(reader)
    111. ' End Using
    112. ' End Using
    113. ' End Using
    114. ' Catch ex As Exception
    115. ' MessageBox.Show($"Fehler beim Laden der Daten aus SQLite: {ex.Message}")
    116. ' End Try
    117. 'End Sub
    119. 'Private Sub CreateDataTable(connection As SQLiteConnection)
    120. ' ' Erstelle die Tabelle, falls sie noch nicht existiert
    121. ' Using command As New SQLiteCommand("CREATE TABLE IF NOT EXISTS ClimaData (ID INTEGER, Station INTEGER, Datum TEXT, Temperatur1 REAL, Temperatur2 REAL, Temperatur3 REAL, Humidity1 INTEGER, Humidity2 INTEGER, Humidity3 INTEGER)", connection)
    122. ' command.ExecuteNonQuery()
    123. ' End Using
    124. 'End Sub
    126. End Class



    Auch das mit den "Arbeitsblättern" quasi wie ein ExcelSheet habe ich nun in eine separate Klasse ausgelagert.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class SheetFileCreator
    3. Private DataManager As DataManager
    4. Public Sub New(dataManagerInstance As DataManager)
    5. DataManager = dataManagerInstance
    6. End Sub
    8. Public Event Success(success As Boolean)
    9. Private DsClima As New DsClima()
    10. Public Sub CreateDummiFile()
    11. Try
    12. ' Überprüfen, ob die Tabelle bereits im DataSet vorhanden ist
    13. Dim tableName As String = "Messwerte"
    14. If DsClima.Tables.Contains(tableName) Then
    15. DsClima.Tables.Remove(tableName)
    16. End If
    17. ' Je einen Datensatz erstellen für Station1, Station2, Station3
    18. Dim stationTable As New DataTable(tableName)
    20. Dim idColumn As New DataColumn("ID", GetType(Integer))
    21. idColumn.AutoIncrement = True
    22. idColumn.AutoIncrementSeed = 1
    23. idColumn.AutoIncrementStep = 1
    24. stationTable.Columns.Add(idColumn)
    25. stationTable.Columns.Add("Station", GetType(Integer))
    26. stationTable.Columns.Add("Datum", GetType(Date))
    27. stationTable.Columns.Add("Temperatur1", GetType(Double))
    28. stationTable.Columns.Add("Temperatur2", GetType(Double))
    29. stationTable.Columns.Add("Temperatur3", GetType(Double))
    30. stationTable.Columns.Add("Humidity1", GetType(Double))
    31. stationTable.Columns.Add("Humidity2", GetType(Double))
    32. stationTable.Columns.Add("Humidity3", GetType(Double))
    33. stationTable.Columns.Add("Notizen", GetType(String))
    35. For num As Integer = 1 To 3 ' Drei Stationen
    36. ' Das aktuelle Datum
    37. Dim currentDate As Date = DataManager.CurDatum
    38. Dim daysInMonth As Integer = DateTime.DaysInMonth(currentDate.Year, currentDate.Month)
    40. ' Zeilen zur DataTable hinzufügen
    41. For i As Integer = 1 To daysInMonth
    42. Dim newRow As DataRow = stationTable.NewRow()
    43. newRow("Station") = num
    44. newRow("Datum") = CDate(New Date(currentDate.Year, currentDate.Month, i))
    45. ' DataRow zur DataTable hinzufügen
    46. stationTable.Rows.Add(newRow)
    47. Next
    48. Next
    50. ' DataTable zur DataSet hinzufügen
    51. DsClima.Tables.Add(stationTable)
    53. ' Speichern des DataSet in die XML-Datei mit dem richtigen Datum
    54. DsClima.WriteXml(DataManager.FilePath)
    55. Debug.WriteLine($"ok: {DataManager.FilePath}")
    56. RaiseEvent Success(True)
    57. Catch ex As Exception
    58. ' Debug wird später durch einen Logger ersetzt.
    59. Debug.WriteLine($"Fehler: {ex.Message}")
    60. RaiseEvent Success(False)
    61. End Try
    62. End Sub
    63. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh: