2D array oder 3xINSERT was macht mehr Sinn?

  • VB.NET
  • .NET 5–6

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

    2D array oder 3xINSERT was macht mehr Sinn?

    Hallo zusammen

    In meinem Projekt gibt es einen Teil, wo ich Verschiedene Eingaben in 3 verschiedene Spalten der DB eintragen muss.

    Im Moment bewerkstellige ich es so, das ich 3 INSERTS machen die wie folgt aussehen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
    3. My.Application.Log.WriteEntry("Neuer Messeintrag wurde gemacht, '" & DateString & "', '" & TimeString & "'", TraceEventType.Information, 1)
    5. Dim cmd As New MySqlCommand("INSERT INTO `DWP`.`feuchtmittelmessung`(tank, datum, leitwert, phwert, temperatur, user, feuchtmittelzusatz, filter1, anmerkung)Values('T1', @datum, @leitwert, @phwert, @temperatur, @user, @feuchtmittelzusatz, '" & Filter1T1 & "', @anmerkung)", con)
    7. If CheckValidInput(txttnk1lwt.Text) = True And
    8. CheckValidInput(txttnk2lwt.Text) = True And
    9. CheckValidInput(txttnk3lwt.Text) = True And
    10. CheckValidInput(txttnk1phw.Text) = True And
    11. CheckValidInput(txttnk2phw.Text) = True And
    12. CheckValidInput(txttnk3phw.Text) = True And
    13. CheckValidInput(txttnk1temp.Text) = True And
    14. CheckValidInput(txttnk2temp.Text) = True And
    15. CheckValidInput(txttnk3temp.Text) = True And
    16. CheckValidDate(DateTimePickerMessungvom.Value) = True Then
    18. Try
    20. cmd.Parameters.AddWithValue("datum", DateTimePickerMessungvom.Value)
    21. cmd.Parameters.AddWithValue("leitwert", txttnk1lwt.Text.Replace(",", "."))
    22. cmd.Parameters.AddWithValue("phwert", txttnk1phw.Text.Replace(",", "."))
    23. cmd.Parameters.AddWithValue("temperatur", txttnk1temp.Text.Replace(",", "."))
    24. cmd.Parameters.AddWithValue("user", txtuser.Text)
    25. cmd.Parameters.AddWithValue("feuchtmittelzusatz", cbtnk1fmz.Text)
    26. cmd.Parameters.AddWithValue("anmerkung", txtanmerktnk1.Text)
    28. Catch myerror As MySqlException
    30. 'fehler meldung und fehlercode anzeigen
    31. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    33. End Try
    35. Close()
    37. cmd.ExecuteNonQuery()
    39. Dim cmd1 As New MySqlCommand("INSERT INTO `DWP`.`feuchtmittelmessung`(tank, datum, leitwert, phwert, temperatur, user, feuchtmittelzusatz, filter1, anmerkung)Values('T2', @datum, @leitwert, @phwert, @temperatur, @user, @feuchtmittelzusatz, '" & Filter1T2 & "', @anmerkung)", con)
    41. Try
    43. cmd1.Parameters.AddWithValue("datum", DateTimePickerMessungvom.Value)
    44. cmd1.Parameters.AddWithValue("leitwert", txttnk2lwt.Text.Replace(",", "."))
    45. cmd1.Parameters.AddWithValue("phwert", txttnk2phw.Text.Replace(",", "."))
    46. cmd1.Parameters.AddWithValue("temperatur", txttnk2temp.Text.Replace(",", "."))
    47. cmd1.Parameters.AddWithValue("user", txtuser.Text)
    48. cmd1.Parameters.AddWithValue("feuchtmittelzusatz", cbtnk2fmz.Text)
    49. cmd1.Parameters.AddWithValue("anmerkung", txtanmerktnk2.Text)
    51. Catch myerror As MySqlException
    53. 'fehler meldung und fehlercode anzeigen
    54. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    56. End Try
    58. Close()
    60. cmd1.ExecuteNonQuery()
    62. Dim cmd2 As New MySqlCommand("INSERT INTO `DWP`.`feuchtmittelmessung`(tank, datum, leitwert, phwert, temperatur, user, feuchtmittelzusatz, filter1, filter2, anmerkung)Values('T3', @datum, @leitwert, @phwert, @temperatur, @user, @feuchtmittelzusatz, '" & Filter1 & "', '" & Filter2 & "', @anmerkung)", con)
    64. Try
    66. cmd2.Parameters.AddWithValue("datum", DateTimePickerMessungvom.Value)
    67. cmd2.Parameters.AddWithValue("leitwert", txttnk3lwt.Text.Replace(",", "."))
    68. cmd2.Parameters.AddWithValue("phwert", txttnk3phw.Text.Replace(",", "."))
    69. cmd2.Parameters.AddWithValue("temperatur", txttnk3temp.Text.Replace(",", "."))
    70. cmd2.Parameters.AddWithValue("user", txtuser.Text)
    71. cmd2.Parameters.AddWithValue("feuchtmittelzusatz", cbtnk3fmz.Text)
    72. cmd2.Parameters.AddWithValue("anmerkung", txtanmerktnk3.Text)
    74. Catch myerror As MySqlException
    76. 'fehler meldung und fehlercode anzeigen
    77. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    79. End Try
    81. Close()
    83. cmd2.ExecuteNonQuery()
    85. MessageBox.Show("Messungen erfolgreich eingetragen", "Information", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
    87. RefreshData()
    89. Else
    91. MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & "Nicht alle Angaben enthalten gültige Werte.", "Eingabefehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    93. 'Textbox mit Fehler auswählen
    94. If CheckValidInput(txttnk1lwt.Text) = False Then
    95. txttnk1lwt.Select()
    96. ElseIf CheckValidInput(txttnk2lwt.Text) = False Then
    97. txttnk2lwt.Select()
    98. ElseIf CheckValidInput(txttnk3lwt.Text) = False Then
    99. txttnk3lwt.Select()
    100. ElseIf CheckValidInput(txttnk1phw.Text) = False Then
    101. txttnk1phw.Select()
    102. ElseIf CheckValidInput(txttnk2phw.Text) = False Then
    103. txttnk2phw.Select()
    104. ElseIf CheckValidInput(txttnk3phw.Text) = False Then
    105. txttnk3phw.Select()
    106. ElseIf CheckValidInput(txttnk1temp.Text) = False Then
    107. txttnk1temp.Select()
    108. ElseIf CheckValidInput(txttnk2temp.Text) = False Then
    109. txttnk2temp.Select()
    110. ElseIf CheckValidInput(txttnk3temp.Text) = False Then
    111. txttnk3temp.Select()
    112. ElseIf CheckValidDate(DateTimePickerMessungvom.Value) = False Then
    113. DateTimePickerMessungvom.Select()
    114. End If
    116. End If
    118. End Sub


    Meine frage ist, würde es Sinn machen das ganze zu "verkürzen" oder "vereinfachen" mit einer 2D ARRAY?

    Oder gibt es eine einfachere Methode als die lange "Wurst" mit den 3 X INSERTS

    Gruß und Danke

    Gebhard

    *Topic verschoben*

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

    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.

Facebook
Telefonspende