DatePicker mit DatumNullWert-Rückgabe

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

      DatePicker mit DatumNullWert-Rückgabe

      Der DateTimePicker kann leider keinen Nullwert im Value-Wert darstellen und an die Datenbank zurückspeichern. Das habe ich wie folgt gelöst:

      Voraussetzungen für den Code:
      1. Eine Windows-Form foDatum öffnen und im Designer einen MonthCalendar platzieren. Der folgenden Code in die Form einkopieren:

      VB.NET-Quellcode

      1. Public Class foDatum
      2. Private Sub foDatum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      3. ' Die Varabeln Left und Top müssen vorher als Public-Variabeln geschrieben werden. Left und Top kann nicht im Form_Load beschrieben und gerechnet werden, wenn die Form mit form.ShowDialog() geöffnet wird
      4. Me.Left = vfoDatumLeft
      5. Me.Top = vfoDatumTop
      6. Me.Width = 237
      7. Me.Height = 201
      8. End Sub
      10. Private Sub MonthCalendar1_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateSelected
      11. vDatumsWahl = e.Start.ToShortDateString()
      12. Me.Close()
      13. End Sub
      15. Private Sub MonthCalendar1_KeyDown(sender As Object, e As KeyEventArgs) Handles MonthCalendar1.KeyDown
      16. If e.KeyCode = Keys.Escape Then
      17. vDatumsWahl = Nothing
      18. Me.Close()
      19. End If
      20. End Sub
      21. End Class




      2. Ein DataGridView ist initialisiert und mit einer DB-Connection verbunden. Das könnte in etwa so aussehen (es sind nicht alle Variablen definiert):

      VB.NET-Quellcode

      1. ​
      2. Public dbConn As New OleDbConnection
      3. Public daRes As New OleDbDataAdapter
      4. Public dvRes As New DataView
      5. Public dtRes As New DataTable
      6. Public dsRes As New DataSet
      7. Public bsRes As New BindingSource
      8. Public drvRes As DataRowView = Nothing
      10. dbConn.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" + ACCESS-Datenbank-Pfad und Name
      11. dbConn.Open()
      12. daRes = New OleDbDataAdapter("SELECT " & sqlSelect & " FROM " & sqlFrom & " WHERE " & sqlWhere & " ORDER BY " & sqlOrder, dbConn)
      13. Dim cbRes As New OleDbCommandBuilder(daRes)
      14. dtRes = New DataTable("Ressourcen")
      15. daRes.Fill(dtRes)
      16. dbConn.Close()
      18. Dim bsRes As New BindingSource
      19. dvRes = New DataView(dtRes)
      20. bsRes.DataSource = dvRes
      21. DataGridView.DataSource = bsRes


      Beim Click auf eine Zeile des DataGridView wird das DataRowView drvRes initialisiert und mit Daten gefüllt. Diese Daten werden anschliessend in Textfeldern bearbeitet und jeweils per Code zurückgeschrieben, wie das Beispiel unten zeigt. Auf diese Weise habe ich die volle Kontrolle, was wie in die DB zurückgeschrieben wird.

      VB.NET-Quellcode

      1. ​
      2. drvRes = dvRes(grRes.CurrentRow.Index)


      Der Aufruf erfolgt auf diese Weise:

      VB.NET-Quellcode

      1. ​
      2. Private Sub btResDatum_Click(sender As Object, e As EventArgs) Handles btResDatum.Click ' ein Button sonstwo in der Form
      3. teResDatum.Text = DatumsWahl(Me.Left + 95, Me.Top + 500) ' teResDatum.text ist das Textfeld, in welches das Datum zurückgeschrieben wird, die Positionen Left & Top werden mitgegeben, damit der DatePicker am richtigen Ort erscheint. Leider sind zusätzliche Anpassungen unumgänglich
      4. If vNeuRB = False Then ' hier wird geprüft, ob ein neuer Datensatz in der Datenbank geschrieben oder ein aktueller Datensatz verändert werden soll, die vNeuRB-Variable wird gesetzt, wenn ein neuer Datensatz geschrieben werden soll
      5. drvRes.BeginEdit()
      6. If IsDate(teResDatum.Text) = False Then
      7. drvRes("Datum") = DBNull.Value ' Damit wird der Nullwert an die Datenbank-Zwischenspeicherung übergeben
      8. teResDatum.Text = "__.__.____" ' Das Masken-Textfeld muss wieder zurückgeschrieben werden auf die
      9. Else
      10. drvRes("Datum") = teResDatum.Text ' Hier wird der gewählte Datumswert übergeben
      11. End If
      12. drvRes("WriteDate") = Now() ' Hier wird das aktuelle Änderungsdatum für den Datensatz übergeben
      13. drvRes.EndEdit()
      14. Call ResChangeFields() ' Aufruf der definitiven Speicherung in die Datenbank
      15. teResDatum.SelectAll() ' Das Datum wird markiert, falls etwas von Hand geändert werden soll
      16. End If
      17. End Sub
      19. Public Function DatumsWahl(ByVal xPos As Integer, ByVal yPos As Integer)
      20. vfoDatumLeft = xPos
      21. vfoDatumTop = yPos
      22. foDatum.ShowDialog()
      23. DatumsWahl = vDatumsWahl
      24. End Function
      26. Public Sub ResChangeFields()
      27. Dim dt1Res As DataTable = dtRes.GetChanges()
      28. If dt1Res IsNot Nothing Then
      29. Try
      30. If dbConn.State = ConnectionState.Closed Then dbConn.Open()
      31. daRes.Update(dt1Res)
      32. dtRes.AcceptChanges()
      33. If dbConn.State = ConnectionState.Open Then dbConn.Close()
      34. Catch ex As System.Exception
      35. MessageBox.Show(ex.Message, "Speichern fehlgeschlagen!", MessageBoxButtons.OK, MessageBoxIcon.Information)
      36. dtRes.RejectChanges()
      37. If dbConn.State = ConnectionState.Open Then dbConn.Close()
      38. End Try
      39. End If
      40. End Sub


      Schlusskommentar: Vermutlich wäre vieles einfacher möglich. Ich bin mit diesem Weg durchaus zufrieden :)

    Facebook
    Telefonspende