Sehr viele Werte in DB-Tabelle speichern

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Gerrit.

    Sehr viele Werte in DB-Tabelle speichern

    Guten Morgen liebes Forum

    Ich habe in einer Form bis jetzt mehr als 17 Werte die ich in eine Tabelle (tbl_messung) speichern möchte.
    Beispiel:

    ph-Wert, Leitwert, Temperatur, Bearbeiter, reinigung, datum, uhrzeit aus Tank1 und Tank2 und Tank3

    Also im prinzip 3 mal die gleichen Werte für 3 verschiedene Tanks.

    Ich würde das jetzt so realisieren: (als Beispiel)

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    3. Module WriteMeasurement
    5. Public Function SchreibeMessung(myDate, myTime, myLeitwertTank1, myphWertTank1, myTemperaturTank1, myFilterTank1, myReinigungTank1, myLeitwertTank2, myphWertTank2, myTemperaturTank2, myFilterTank2, myReinigungTank2, myLeitwertTank3, myphWertTank3, myTemperaturTank3, myFilterTank3, myReinigungTank3)
    7. 'mysql kommando definieren
    8. Dim myQuerySchreibeMessung As New MySqlCommand(MySqlInsertMessung(myDate, myTime, myLeitwertTank1, myphWertTank1, myTemperaturTank1, myFilterTank1, myReinigungTank1, myLeitwertTank2, myphWertTank2, myTemperaturTank2, myFilterTank2, myReinigungTank2, myLeitwertTank3, myphWertTank3, myTemperaturTank3, myFilterTank3, myReinigungTank3), con)
    9. Dim myResultSchreibeMessung As Object
    11. Dim schreibeMessungError As Boolean = False
    13. 'mysql kommando ausführen
    14. myResultSchreibeMessung = myQuerySchreibeMessung.ExecuteScalar()
    16. 'wenn abfrage ohne ergebnis fehler melden
    17. If IsDBNull(myResultSchreibeMessung) Then
    19. 'wenn abfrage ohne ergebnis
    20. schreibeMessungError = True
    22. End If
    24. Return schreibeMessungError
    26. End Function
    28. End Module


    Meine Frage:

    Wäre das so eine gute Lösung mit der langen "Wurst" an Einträgen?
    Und wenn hier noch mehrere Einträge dazu kämen, wird das nicht zu lange? Also die "Public Function SchreibeMessung" wäre ja ziemlich lange.

    Grüße und Danke

    Gebhard

    CodeTags korrigiert ~VaporiZed

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

    ich empfehle, mit typisiertem Dataset zu arbeiten, sowie mit DataAdaptern.
    Ein DataAdapter enthält ein vorkonfiguriertes Set der CRUD-Commands, also Select Update Insert Delete.
    DataAdapter kann man so programmieren, dass sie sich automatisch selbst konfigurieren, sodass sie zu Datenbank und Dataset passen.
    Weiters kann man einen "Dataset-Adapter" programmieren, der sämtliche Datenzugriffe, also Select Update Insert Delete, für alle Tabellen auf jeweils einen Einzeiler reduziert.

    Ohne so eine Infrastruktur
    • programmiert man sich dumm und dämlich
    • fehleranfällig
    • ungeschützt gegen SqlInjection-Angriffe.
    Aber ist 'ne Menge zu lernen, zunächstmal wie man ein typDataset nutzen kann - such mal im Datenbank-Tutorial-Bereich nach "vier Views" - da habich einige Video-Tuts eingestellt.

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Allein Zeile#5 ist ja ne Datentypkatastrophe.
    Mir scheint, dass in so vielen Parametern mehrere Objekte drinstecken, die auch gern als solche behandelt und übergeben werden wollen.
    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.

    Hallo

    und Danke für eure Antworten und hinweise.

    Um es kurz zu machen für einen Eintrag in eine DB wie im Bild unten gibt es einfachere Methoden wie von euch beschrieben.

    Um nicht unverschämt zu sein gibt es beispiele im Netz die so etwas schon einmal behandelt haben?

    Ich möchte so viel wie möglich selber machen/lernen bin aber sehr dankbar über die Hilfe aus diesem Forum.

    Grüß Gebhard

    Ok, der Screenshot schreit nach UserControl (UC)-Einsatz, der sinnvoll wäre. Und jedes UC sollte eine Tank-Klasseninstanz beherbergen/verwalten.
    Falls Du mit den Begriffen was anfangen kannst und wüsstest, wie das umzusetzen ist.
    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.

    Hallo VaporiZed

    Ich habe einen Beitrag von 2011 einem User Namens X-Zat gefunden der "[HOW TO] Eigene Klassen erstellen, verwalten und verwenden" erklärt.
    Sehe ich mir an.
    Bezüglich UserControl habe ich noch nichts gefunden.

    Aber Danke für deinen Tipp.

    Gruß Gebhard

    Ein UserControl ist ein zusammengesetztes Control. Da kannst Du dann eben ein paar Labels und TextBoxen und Buttons usw. draufhauen. Und dann eben drei dieser UserControls auf Dein Form hauen. Und schon hast Du drei gleich aussehende "Blöcke" für Tank1, Tank2 und Tank3. Erleichtert die Datenverarbeitung sehr. Weil nicht alles auf dem MainForm ist. Anordnen lassen die sich dann auf dem MainForm ganz gut z.B. mit einem FlowLayoutPanel oder TableLayooutPanel.
    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.

    Typhoon schrieb:

    Um es kurz zu machen für einen Eintrag in eine DB wie im Bild unten gibt es einfachere Methoden wie von euch beschrieben.
    Glaub ich nicht.
    Und wenn doch dann allenfalls mit unzureichender Leistungsfähigkeit.
    Was nützt es, Einträge machen zu können, wenn fehlt, sie wieder abrufen zu können?
    Und bei Fehl-Eingaben muss man auch Ändern können, oder Löschen.

    Typhoon schrieb:

    Um nicht unverschämt zu sein gibt es beispiele im Netz die so etwas schon einmal behandelt haben?
    Ich hab paar Tuts zum Thema gemacht (auf eines hab ich dich ja schon hingewiesen), allerdings beschäftige ich mich an keiner Stelle nur mit "Einträge machen".
    Wie gesagt: Wenn man nicht auch Abrufen, Ändern und Löschen kann ist die Technologie unvollständig.

    Ich würde das anders lösen:

    Ein DataSet erstellen, danach ein Datenmodell. Da gäbe es bei mir eine Tank-Tabelle und eine Messung-Tabelle, die mit der Tank-Tabelle verknüpft ist.
    Deine Form als Dialog aufrufen und beim Schließen mit OK (DialogResult = OK) würden bei mir dann 3 MessungRows hinzugefügt, mit jeweils
    den Werten, die eingetragen wurden. Mit dem Abspeichern kümmert sich der DataAdapter automatisch um die Übertragung an die Datenbank.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Moinsen!

    Mal als Tip: Beschäftige Dich mal mit der Trennung von Oberfläche, Geschäftslogik und Datenzugriffslogik. Macht sich auch bei vermeintlich kleinen Projekten gut (merke: kleine Projekte neigen gerne zum wachsen ;) )

    Datasets kann man machen, ich bevorzuge aber lieber SPs in der jeweiligen Datenbank. Ein handgeschriebenes SQL ist zwar etwas aufwendiger, liefert aber bei nicht trivialen Zugriffen i.d.R. die besseren Ergebnisse.

    Aber zunächst: Beschäftige Dich mal mit sauberer Typisierung, der Erstellung und Verwendung von Klassen und einem sauberen Programmaufbau. Meiner Meinung nach gibt es z.B. nur sehr wenige Gründe, Module in einem VB-Programm zu haben (z.B. wenn man "My" erweitern möchte)

    Viele Grüße

    Gerrit

    Hallo zusammen

    Danke für eure Tipps und Hinweise.

    @VaporiZed, tragl

    Ich habe mir das Thema DataSet bzw. UserControl einmal angeschaut. Leider bin ich nicht schlau geworden. Liegt ganz sicher an mir.

    @Gerrit

    Ein handgeschriebenes SQL ist zwar etwas aufwendiger, liefert aber bei nicht trivialen Zugriffen i.d.R. die besseren Ergebnisse.


    Da ich schon eine Vorlage diesbezüglich habe bin ich deiner Meinung.

    Ich habe jetzt ein "Grundstock" gebaut der funktioniert. 3 Werte werden in die DB geschrieben mit Datum als Primärschlüssel.
    Wäre es möglich, das Du (Gerrit) einmal über "code" darüberfliegt und gegebenenfalls Verbesserungsvorschläge machen kann?

    Beschäftige Dich mal mit sauberer Typisierung, der Erstellung und Verwendung von Klassen und einem sauberen Programmaufbau.


    Das ist bis jetzt meine Mappe.



    Grüße und ein schönes Wochenende euch allen!!

    Gebhard

    Moinsen,

    Typhoon schrieb:

    Ich habe jetzt ein "Grundstock" gebaut der funktioniert. 3 Werte werden in die DB geschrieben mit Datum als Primärschlüssel.


    Wenn Du schon um Verbesserungen bittest... ^^

    Bist Du Dir sicher, daß es NIE vorkommen kann, daß es zwei Meßwerte mit gleichem Zeitstempel geben kann? Wenn nicht, dann ist Dein Primärschlüssel ungeeignet. Weiterhin: Sind Deine Zeitstempel UTC oder Ortszeit? Wenn Ortszeit: Probleme sind im Frühjahr und Herbst vorprogrammiert. Kleiner Tip von mir: Ich nutze als Primärschlüssel fast immer einen fortlaufenden Integer. Weitere Einschränkungen laufen dann über eindeutige Indizes etc. Ist zwar u.U. ein Feld mehr, macht aber die Verwaltung und auch das Debuggen einfacher.

    Typhoon schrieb:

    Wäre es möglich, das Du (Gerrit) einmal über "code" darüberfliegt und gegebenenfalls Verbesserungsvorschläge machen kann?


    Möglich schon. Ich stecke aber gerade in einem ziemlich großen Projekt. Mal sehen, wie es mit der Zeit aussieht. Außerdem (wenn ich's nicht übersehen habe: Wo ist der Code?)

    Typhoon schrieb:

    Beschäftige Dich mal mit sauberer Typisierung, der Erstellung und Verwendung von Klassen und einem sauberen Programmaufbau.


    Das ist bis jetzt meine Mappe.


    Äh --- nein. Typisierung hat nichts mit dem Aufbau Deiner Projektmappe zu tun sondern damit, alle Variablen und Parameter sauber mit einem passenden Datentyp zu definieren und implizite Typumwandlung zu vermeiden (Grundeinstellung: OPTION EXPLICIT ON, OPTION STRICT ON)

    Hier mal ein kleiner Vorgeschmack an Hand einer katastrophalen Codezeile Deines Eingangsbeitrages (hab ich mal ungetestet auf die Schnelle zusammengeschreibselt)

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Aufzhäung der mögl. Filterwechsel (brauchen wir gleich noch weiter unten)
    3. ''' </summary>
    4. ''' <remarks></remarks>
    5. Public Enum TankFilterEnum As Integer
    6. KeinWechsel = 0
    8. FilterKlein = 1
    10. FilterGross = 2
    11. End Enum
    13. ''' <summary>
    14. ''' Datenklasse mit Meßwerten eines Tanks (brauchen wir gleich noch weiter unten).
    15. ''' </summary>
    16. ''' <remarks>
    17. ''' Ist hier nur rudimentär, kann man noch aufbohren zum direkten Schreiben/Lesen etc.
    18. ''' </remarks>
    19. Public Class clsMesswert
    21. Private _TankNr As Int32 = 0
    23. Private _Zeitpunkt As DateTime
    25. Private _Leitwert As Decimal
    27. Private _phWert As Decimal
    29. Private _Temperatur As Decimal
    31. Private _FilterWechsel As TankFilterEnum = TankFilterEnum.KeinWechsel
    33. Private _Reingung As DateTime
    35. ''' <summary>
    36. ''' Nummer des Tanks
    37. ''' </summary>
    38. ''' <value></value>
    39. ''' <returns></returns>
    40. ''' <remarks></remarks>
    41. Public Property TankNr() As Int32
    42. Get
    43. Return _TankNr
    44. End Get
    45. Set(ByVal value As Int32)
    46. If value < 0 Then
    47. value = 0
    48. End If
    49. _TankNr = value
    50. End Set
    51. End Property
    53. ''' <summary>
    54. ''' Zeitpunkt der Messung als UTC
    55. ''' </summary>
    56. ''' <value></value>
    57. ''' <returns></returns>
    58. ''' <remarks></remarks>
    59. Public Property ZeitpunktUTC() As DateTime
    60. Get
    61. Return ZeitpunktUTC
    62. End Get
    63. Set(ByVal value As DateTime)
    64. Select Case value.Kind
    65. Case DateTimeKind.Unspecified
    66. value = DateTime.SpecifyKind(value, DateTimeKind.Local).ToUniversalTime
    67. Case DateTimeKind.Local
    68. value = value.ToUniversalTime
    69. End Select
    70. _Zeitpunkt = value
    71. End Set
    72. End Property
    74. ''' <summary>
    75. ''' Leitwert der Flüssigkeit zum Meßzeitpunkt
    76. ''' </summary>
    77. ''' <value></value>
    78. ''' <returns></returns>
    79. ''' <remarks></remarks>
    80. Public Property Leitwert() As Decimal
    81. Get
    82. Return _Leitwert
    83. End Get
    84. Set(ByVal value As Decimal)
    85. Select Case value
    86. Case Is < 0D 'Hier zulässige Eingabegrenzen festlegen (Minimum)
    87. value = 0D
    88. Case Is > 99.99D 'Hier zulässige Eingabegrenzen festlegen (Maximum)
    89. value = 99.99D
    90. End Select
    91. _Leitwert = value
    92. End Set
    93. End Property
    95. ''' <summary>
    96. ''' PH-Wert der Flüssigkeit zum Meßzeitpunkt
    97. ''' </summary>
    98. ''' <value></value>
    99. ''' <returns></returns>
    100. ''' <remarks></remarks>
    101. Public Property PhWert() As Decimal
    102. Get
    103. Return _phWert
    104. End Get
    105. Set(ByVal value As Decimal)
    106. Select Case value
    107. Case Is < 0D 'Hier zulässige Eingabegrenzen festlegen (Minimum)
    108. value = 0D
    109. Case Is > 14D 'Hier zulässige Eingabegrenzen festlegen (Maximum)
    110. value = 14D
    111. End Select
    112. _phWert = value
    114. End Set
    115. End Property
    117. ''' <summary>
    118. ''' Temperatur der Flüssigkeit zum Meßzeitpunkt in Grad Celsius
    119. ''' </summary>
    120. ''' <value></value>
    121. ''' <returns></returns>
    122. ''' <remarks></remarks>
    123. Public Property Temperatur() As Decimal
    124. Get
    125. Return _Temperatur
    126. End Get
    127. Set(ByVal value As Decimal)
    128. Select Case value
    129. Case Is < -273.14D 'Hier zulässige Eingabegrenzen festlegen (Minimum)
    130. value = - 273.14D
    131. Case Is > 250D 'Hier zulässige Eingabegrenzen festlegen (Maximum)
    132. value = 250D
    133. End Select
    134. _Temperatur = value
    136. End Set
    137. End Property
    139. Public Property Filterwechsel() As TankFilterEnum
    140. Get
    141. Return _FilterWechsel
    142. End Get
    143. Set(ByVal value As TankFilterEnum)
    144. _FilterWechsel = value
    145. End Set
    146. End Property
    148. ''' <summary>
    149. ''' Zeitpunkt der letzten Reinigung (Jahr &lt;2010 = keine Reingung)
    150. ''' </summary>
    151. ''' <value></value>
    152. ''' <returns></returns>
    153. ''' <remarks></remarks>
    154. Public Property ReinigungUTC() As DateTime
    155. Get
    156. Return _Reingung
    157. End Get
    158. Set(ByVal value As DateTime)
    159. Select Case value.Kind
    160. Case DateTimeKind.Unspecified
    161. value = DateTime.SpecifyKind(value, DateTimeKind.Local).ToUniversalTime
    162. Case DateTimeKind.Local
    163. value = value.ToUniversalTime
    164. End Select
    165. _Reingung = value
    166. End Set
    167. End Property
    169. End Class
    171. Public Class Beispiel
    173. 'Das ist Mist.
    174. 'Public Function SchreibeMessung(ByVal myDate, ByVal myTime, ByVal myLeitwertTank1, ByVal myphWertTank1, ByVal myTemperaturTank1, ByVal myFilterTank1, ByVal myReinigungTank1, ByVal myLeitwertTank2, ByVal myphWertTank2, ByVal myTemperaturTank2, ByVal myFilterTank2, ByVal myReinigungTank2, ByVal myLeitwertTank3, ByVal myphWertTank3, ByVal myTemperaturTank3, ByVal myFilterTank3, ByVal myReinigungTank3)
    176. 'End Function
    178. ''' <summary>
    179. ''' Schreibt eine Messung in die Datenbank
    180. ''' </summary>
    181. ''' <param name="myDate">Datum der Messung</param>
    182. ''' <param name="myTime">Uhrzeit der Messung (warum zwei Variablen?)</param>
    183. ''' <param name="myLeitwertTank1">Leitwert</param>
    184. ''' <param name="myphWertTank1">Ph-Wert</param>
    185. ''' <param name="myTemperaturTank1">Temperatur</param>
    186. ''' <param name="myFilterTank1">Filterwechsel (0 = keiner, 1 = klein, 2 = groß)</param>
    187. ''' <param name="myReinigungTank1">Zeitpunkt der letzten Reinigung</param>
    188. ''' <param name="myLeitwertTank2">Leitwert</param>
    189. ''' <param name="myphWertTank2">Ph-Wert</param>
    190. ''' <param name="myTemperaturTank2">Temperatur</param>
    191. ''' <param name="myFilterTank2">Filterwechsel (0 = keiner, 1 = klein, 2 = groß)</param>
    192. ''' <param name="myReinigungTank2">Zeitpunkt der letzten Reinigung</param>
    193. ''' <param name="myLeitwertTank3">Leitwert</param>
    194. ''' <param name="myphWertTank3">Ph-Wert</param>
    195. ''' <param name="myTemperaturTank3">Temperatur</param>
    196. ''' <param name="myFilterTank3">Filterwechsel (0 = keiner, 1 = klein, 2 = groß)</param>
    197. ''' <param name="myReinigungTank3">Zeitpunkt der letzten Reinigung</param>
    198. ''' <returns></returns>
    199. ''' <remarks></remarks>
    200. Public Function SchreibeMessung( _
    201. ByVal myDate As DateTime _
    202. , ByVal myTime As DateTime _
    203. , ByVal myLeitwertTank1 As Decimal _
    204. , ByVal myphWertTank1 As Decimal _
    205. , ByVal myTemperaturTank1 As Decimal _
    206. , ByVal myFilterTank1 As Int32 _
    207. , ByVal myReinigungTank1 As DateTime _
    208. , ByVal myLeitwertTank2 As Decimal _
    209. , ByVal myphWertTank2 As Decimal _
    210. , ByVal myTemperaturTank2 As Decimal _
    211. , ByVal myFilterTank2 As Int32 _
    212. , ByVal myReinigungTank2 As DateTime _
    213. , ByVal myLeitwertTank3 As Decimal _
    214. , ByVal myphWertTank3 As Decimal _
    215. , ByVal myTemperaturTank3 As Decimal _
    216. , ByVal myFilterTank3 As Int32 _
    217. , ByVal myReinigungTank3 As DateTime _
    218. ) As Boolean
    220. 'So wie man Deine Funktion sauber Typisiert aufbauen müßte
    221. 'Ob die Variablentypen so passen kann ich nicht sagen.
    223. End Function
    225. ''' <summary>
    226. ''' Schriebt eine Meßreihe in die Datenbank
    227. ''' </summary>
    228. ''' <param name="Messwerte">Meßwerte der einzelnen Tanks. Schlüssel ist die Tanknummer!</param>
    229. ''' <returns>WAHR wenn fehlerfreie Ausführung, ansonsten FALSCH</returns>
    230. ''' <remarks>Hier nur zur Demonstrataion</remarks>
    231. Public Function SchreibeMessung( _
    232. ByVal Messwerte As Dictionary(Of Int32, clsMesswert) _
    233. ) As Boolean
    235. 'So wie man es eleganter machen kann.
    237. 'Anmerkung: Der Schlüssel (Int32) ist die Tanknummer
    239. SchreibeMessung = True
    241. If Messwerte Is Nothing Then
    242. Return False
    243. End If
    244. For Each KPV As KeyValuePair(Of Int32, clsMesswert) In Messwerte
    245. 'Hier verarbeiten
    246. Next
    248. End Function
    250. End Class


    Code sollte immer sauber kommentiert sein. ;)

    Viele Grüße

    Gerrit

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Gerrit“ ()

Facebook
Telefonspende