DatatColumn Datatyp nachträglich ändern oder XML Datum in DateTime konvertieren

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

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Kim.

    DatatColumn Datatyp nachträglich ändern oder XML Datum in DateTime konvertieren

    Hallo Zusammen,

    Ich habe leider Anfangs ein falschen DataTyp für die Datumspalte in einer DataTable genommen und möchte diesen Fehler jetzt gerne korrigieren.

    Ich würde diese Spalte später gerne Filtern und auch Sortieren, da wird es als Datum als String ziemlich schwierig.

    Ich kann auch eine neue DataTable erstellen nur kann ich die gespeicherte XML dann nicht lesen, da er das Format (01.01.2001 14:00:00) nicht als DateTime Format erkennt.

    Wie kann ich in XML gespeicherte Werte Konvertieren? oder muss ich hier ganz anders vorgehen?

    Vielen Dank

    Beste Grüße

    Kim

    ... nur kann ich die gespeicherte XML dann nicht lesen, da er das Format (01.01.2001 14:00:00) nicht als DateTime Format erkennt


    Was kriegst du für eine Fehlermeldung wenn du versucht das zu konvertieren? Convert.ToDateTime("01.01.2001 14:00:00")

    Bei mir geht das.
    Bilder

    • DateTime.PNG

      4,69 kB, 455×49, 71 mal angesehen

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    du könntest deiner DataTable eine zusätzliche spalte angedeihen lassen mit datentyp Date
    Dataset einlesen
    alle zeilen durchgehen, und von der String-Spalte eine Date-Konvertierung in die Date-Spalte eintragen.
    abspeichern.

    Dann mit Notepad++ - textersatz Datei öffnen und alle String-Datum-Einträge löschen
    dann mit Notepad++ - textersatz alle Datum-Einträge umbenennen

    vorher Backup machen.

    Entweder so wie @ErfinderDesRades geschrieben hat oder mit zwei unabhängigen Klassen arbeiten und diese untereinander mappen. aus Erfahrung weiß ich, dass man gerade wenn man alte Strukturen zu neuen umbauen will oftmals die alte Struktur nicht anfassen kann. Wie greifst du auf die Daten zu? XMLDocument, Klassenserialisierung, per Text einlesen (bitte nicht!!!).
    Bei XML-Serialisierung würde ich mit zwei Klassen arbeiten, bei XMLDocument ist der Ansatz von @ErfinderDesRades deutlich einfacher und du kannst dir das Mapping sparen.

    EDIT: Gerade nochmal deinen Startpost gelesen. Liest du die Daten aus der XML ins DataTable ein? Also mit ReadXml und WriteXML?

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Okay :D

    Dann haben wir es ja jetzt.

    So in diesem Fall würde ich aber ganz anders vorgehen. DataTable benutze ich allenfalls zum Auslesen. Danach ziehe ich die Daten direkt in ein DataModel und arbeite damit weiter.

    Wenn du willst baue ich dir gerne ein DataModel, dass direkt auch dein Problem behebt. Aber dafür müsste ich wissen wie deine XML-Struktur aussieht. Also welche Felder du hast.

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Super Danke das ist nett.

    Die Spalten "Datum" und "Zeitstempel" müsste ich als DateTime haben. Anfangs wurden hier leider alle Spalten als String angegeben.
    Bilder

    • 1.jpg

      37,12 kB, 673×546, 61 mal angesehen

    • 2.jpg

      83,79 kB, 1.552×389, 56 mal angesehen

    Du legst dir 2 Klassen an

    Neue Entität

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Xml.Serialization
    4. Namespace Entities
    6. <Serializable(),
    7. DebuggerStepThrough(),
    8. DesignerCategory("code"),
    9. XmlType(AnonymousType:=True),
    10. XmlRoot([Namespace]:="", IsNullable:=False, ElementName:="VERW_DataSet")>
    11. Public Class VERW_DataSet
    12. Inherits List(Of VERW_Übersicht)
    14. End Class
    16. <Serializable(),
    17. DebuggerStepThrough(),
    18. DesignerCategory("code"),
    19. XmlType(AnonymousType:=True),
    20. XmlRoot([Namespace]:="", IsNullable:=False)>
    21. Public Class VERW_Übersicht
    23. <XmlElement(ElementName:="Datum", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
    24. Public Property Datum As Nullable(Of Date)
    26. <XmlElement(ElementName:="Artikel", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
    27. Public Property Artikel As String
    29. <XmlElement(ElementName:="Bezeichnung", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
    30. Public Property Bezeichnung As String
    32. <XmlElement(ElementName:="Charge", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
    33. Public Property Charge As String
    35. <XmlElement(ElementName:="Menge", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
    36. Public Property Menge As Nullable(Of Integer)
    38. <XmlElement(ElementName:="Behälter", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
    39. Public Property Behälter As String
    41. <XmlElement(ElementName:="Ausbuchen", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
    42. Public Property Ausbuchen As String
    44. <XmlElement(ElementName:="Zeitstempel", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
    45. Public Property Zeitstempel As Nullable(Of Date)
    47. End Class
    49. End Namespace



    Alte Entität

    VB.NET-Quellcode

    1. Namespace EntitiesObsolet
    3. <Serializable(),
    4. DebuggerStepThrough(),
    5. DesignerCategory("code"),
    6. XmlType(AnonymousType:=True),
    7. XmlRoot(IsNullable:=False, ElementName:="VERW_DataSet")>
    8. Public Class VERW_DataSet
    9. Inherits List(Of VERW_Übersicht)
    11. End Class
    13. <Serializable(),
    14. DebuggerStepThrough(),
    15. DesignerCategory("code"),
    16. XmlType(AnonymousType:=True),
    17. XmlRoot(IsNullable:=False)>
    18. Public Class VERW_Übersicht
    20. <XmlElement(ElementName:="Datum", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
    21. Public Property Datum As String
    23. <XmlElement(ElementName:="Artikel", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
    24. Public Property Artikel As String
    26. <XmlElement(ElementName:="Bezeichnung", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
    27. Public Property Bezeichnung As String
    29. <XmlElement(ElementName:="Charge", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=4)>
    30. Public Property Charge As String
    32. <XmlElement(ElementName:="Menge", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=5)>
    33. Public Property Menge As String
    35. <XmlElement(ElementName:="Behälter", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=6)>
    36. Public Property Behälter As String
    38. <XmlElement(ElementName:="Ausbuchen", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=7)>
    39. Public Property Ausbuchen As String
    41. <XmlElement(ElementName:="Zeitstempel", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=8)>
    42. Public Property Zeitstempel As String
    44. End Class
    46. End Namespace



    Serializer

    VB.NET-Quellcode

    1. Private Sub Write(Data As Entities.VERW_DataSet, Filename As String)
    3. If Not Directory.Exists(Path.GetDirectoryName(Filename)) Then
    4. Directory.CreateDirectory(Path.GetDirectoryName(Filename))
    5. End If
    6. If File.Exists(Filename) Then
    7. File.Delete(Filename)
    8. End If
    10. Dim Serializer As XmlSerializer = New XmlSerializer(Data.GetType)
    11. Dim XStream As StreamWriter
    12. Dim EmptyNamespace As New XmlSerializerNamespaces()
    13. EmptyNamespace.Add("", "")
    15. Using FileStream As New FileStream(Filename, FileMode.Create)
    16. XStream = New StreamWriter(FileStream, Encoding.UTF8)
    17. Serializer.Serialize(XStream, Data, EmptyNamespace)
    18. FileStream.Close()
    19. End Using
    20. End Sub
    22. Private Sub Read(ByRef Data As Entities.VERW_DataSet, Filename As String)
    23. If File.Exists(Filename) Then
    24. Dim Serializer As XmlSerializer = New XmlSerializer(Data.GetType)
    25. Dim EmptyNamespace As New XmlSerializerNamespaces()
    26. EmptyNamespace.Add("", "")
    28. Using FileStream As New FileStream(Filename, FileMode.Open)
    29. Data = TryCast(Serializer.Deserialize(FileStream), Entities.VERW_DataSet)
    30. FileStream.Close()
    31. End Using
    32. End If
    33. End Sub
    35. Private Sub MigrateOldDate(FromFilePath As String, ToFilePath As String)
    37. Dim VERWOld As New EntitiesObsolet.VERW_DataSet
    38. Dim VERWNew As New Entities.VERW_DataSet
    39. Dim Serializer As XmlSerializer = New XmlSerializer(VERWOld.GetType)
    40. Dim EmptyNamespace As New XmlSerializerNamespaces()
    41. EmptyNamespace.Add("", "")
    43. Using FileStream As New FileStream(FromFilePath, FileMode.Open)
    44. VERWOld = TryCast(Serializer.Deserialize(FileStream), EntitiesObsolet.VERW_DataSet)
    45. FileStream.Close()
    46. End Using
    48. VERWNew = New Entities.VERW_DataSet
    49. VERWNew.AddRange(VERWOld.Select(Function(n) New Entities.VERW_Übersicht With {.Artikel = n.Artikel,
    50. .Datum = Convert.ToDateTime(n.Datum),
    51. .Ausbuchen = n.Ausbuchen,
    52. .Behälter = n.Behälter,
    53. .Bezeichnung = n.Bezeichnung,
    54. .Charge = n.Charge,
    57. .Menge = If(Integer.TryParse(n.Menge, Nothing), CInt(n.Menge),
    58. Nothing),
    60. .Zeitstempel =
    61. Convert.ToDateTime(n.Zeitstempel)}).ToList)
    63. Write(VERWNew, ToFilePath)
    65. End Sub



    Beispielform mit 3 Button einem Datagrid:

    Beispielform

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Text
    3. Imports System.Xml.Serialization
    5. Public Class frmVERWAnsicht
    7. Private VERW_DataSet As New Entities.VERW_DataSet
    9. Private Sub VERWAnsicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    11. FormatAccountansicht()
    13. End Sub
    15. Private Sub FormatAccountansicht()
    17. dgvVERW.Columns.Clear()
    18. dgvVERW.DataSource = Nothing
    19. dgvVERW.AutoGenerateColumns = False
    20. dgvVERW.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
    21. dgvVERW.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
    22. dgvVERW.AllowUserToResizeColumns = True
    23. dgvVERW.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    24. dgvVERW.AllowUserToAddRows = False
    25. dgvVERW.AllowUserToDeleteRows = False
    26. dgvVERW.SelectionMode = DataGridViewSelectionMode.CellSelect
    27. dgvVERW.MultiSelect = False
    28. dgvVERW.ScrollBars = ScrollBars.Both
    30. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Datum", .DataPropertyName = "Datum"})
    31. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Artikel", .DataPropertyName = "Artikel"})
    32. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Bezeichnung", .DataPropertyName = "Bezeichnung"})
    33. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Charge", .DataPropertyName = "Charge"})
    34. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Menge", .DataPropertyName = "Menge"})
    35. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Behälter", .DataPropertyName = "Behälter"})
    36. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Ausbuchen", .DataPropertyName = "Ausbuchen"})
    37. dgvVERW.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Zeitstempel", .DataPropertyName = "Zeitstempel"})
    39. With dgvVERW.Columns("Datum")
    40. .ReadOnly = False
    41. .Visible = True
    42. .Width = 120
    43. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    44. .HeaderText = "Datum"
    45. .SortMode = DataGridViewColumnSortMode.Automatic
    46. .DefaultCellStyle.Format = "dd.MM.yyyy HH:mm:ss"
    47. End With
    49. With dgvVERW.Columns("Artikel")
    50. .ReadOnly = False
    51. .Visible = True
    52. .Width = 240
    53. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    54. .HeaderText = "Artikel"
    55. .SortMode = DataGridViewColumnSortMode.Automatic
    56. End With
    58. With dgvVERW.Columns("Bezeichnung")
    59. .ReadOnly = False
    60. .Visible = True
    61. .Width = 120
    62. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    63. .HeaderText = "Bezeichnung"
    64. .SortMode = DataGridViewColumnSortMode.Automatic
    65. End With
    67. With dgvVERW.Columns("Charge")
    68. .ReadOnly = False
    69. .Visible = True
    70. .Width = 120
    71. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    72. .HeaderText = "Charge"
    73. .SortMode = DataGridViewColumnSortMode.Automatic
    74. End With
    76. With dgvVERW.Columns("Menge")
    77. .ReadOnly = False
    78. .Visible = True
    79. .Width = 120
    80. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    81. .HeaderText = "Menge"
    82. .SortMode = DataGridViewColumnSortMode.Automatic
    83. End With
    85. With dgvVERW.Columns("Behälter")
    86. .ReadOnly = False
    87. .Visible = True
    88. .Width = 120
    89. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    90. .HeaderText = "Behälter"
    91. .SortMode = DataGridViewColumnSortMode.Automatic
    92. End With
    94. With dgvVERW.Columns("Ausbuchen")
    95. .ReadOnly = False
    96. .Visible = True
    97. .Width = 120
    98. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    99. .HeaderText = "Ausbuchen"
    100. .SortMode = DataGridViewColumnSortMode.Automatic
    101. End With
    103. With dgvVERW.Columns("Zeitstempel")
    104. .ReadOnly = False
    105. .Visible = True
    106. .Width = 120
    107. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    108. .HeaderText = "Zeitstempel"
    109. .SortMode = DataGridViewColumnSortMode.Automatic
    110. .DefaultCellStyle.Format = "dd.MM.yyyy HH:mm:ss"
    111. End With
    112. End Sub
    114. Private Sub Write(Data As Entities.VERW_DataSet, Filename As String)
    116. If Not Directory.Exists(Path.GetDirectoryName(Filename)) Then
    117. Directory.CreateDirectory(Path.GetDirectoryName(Filename))
    118. End If
    119. If File.Exists(Filename) Then
    120. File.Delete(Filename)
    121. End If
    123. Dim Serializer As XmlSerializer = New XmlSerializer(Data.GetType)
    124. Dim XStream As StreamWriter
    125. Dim EmptyNamespace As New XmlSerializerNamespaces()
    126. EmptyNamespace.Add("", "")
    128. Using FileStream As New FileStream(Filename, FileMode.Create)
    129. XStream = New StreamWriter(FileStream, Encoding.UTF8)
    130. Serializer.Serialize(XStream, Data, EmptyNamespace)
    131. FileStream.Close()
    132. End Using
    133. End Sub
    135. Private Sub Read(ByRef Data As Entities.VERW_DataSet, Filename As String)
    136. If File.Exists(Filename) Then
    137. Dim Serializer As XmlSerializer = New XmlSerializer(Data.GetType)
    138. Dim EmptyNamespace As New XmlSerializerNamespaces()
    139. EmptyNamespace.Add("", "")
    141. Using FileStream As New FileStream(Filename, FileMode.Open)
    142. Data = TryCast(Serializer.Deserialize(FileStream), Entities.VERW_DataSet)
    143. FileStream.Close()
    144. End Using
    145. End If
    146. End Sub
    148. Private Sub MigrateOldDate(FromFilePath As String, ToFilePath As String)
    150. Dim VERWOld As New EntitiesObsolet.VERW_DataSet
    151. Dim VERWNew As New Entities.VERW_DataSet
    152. Dim Serializer As XmlSerializer = New XmlSerializer(VERWOld.GetType)
    153. Dim EmptyNamespace As New XmlSerializerNamespaces()
    154. EmptyNamespace.Add("", "")
    156. Using FileStream As New FileStream(FromFilePath, FileMode.Open)
    157. VERWOld = TryCast(Serializer.Deserialize(FileStream), EntitiesObsolet.VERW_DataSet)
    158. FileStream.Close()
    159. End Using
    161. VERWNew = New Entities.VERW_DataSet
    162. VERWNew.AddRange(VERWOld.Select(Function(n) New Entities.VERW_Übersicht With {.Artikel = n.Artikel,
    163. .Datum = Convert.ToDateTime(n.Datum),
    164. .Ausbuchen = n.Ausbuchen,
    165. .Behälter = n.Behälter,
    166. .Bezeichnung = n.Bezeichnung,
    167. .Charge = n.Charge,
    170. .Menge = If(Integer.TryParse(n.Menge, Nothing), CInt(n.Menge),
    171. Nothing),
    173. .Zeitstempel =
    174. Convert.ToDateTime(n.Zeitstempel)}).ToList)
    176. Write(VERWNew, ToFilePath)
    178. End Sub
    180. Private Sub BtnImport_Click(sender As Object, e As EventArgs) Handles BtnImport.Click
    181. Read(VERW_DataSet, Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "VERWDataSet", "VERW.xml"))
    182. dgvVERW.DataSource = Nothing
    183. dgvVERW.DataSource = VERW_DataSet
    184. End Sub
    186. Private Sub BtnExport_Click(sender As Object, e As EventArgs) Handles BtnExport.Click
    187. Write(VERW_DataSet, Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "VERWDataSet", "VERW.xml"))
    188. End Sub
    190. Private Sub BtnNew_Click(sender As Object, e As EventArgs) Handles BtnNew.Click
    191. If VERW_DataSet Is Nothing Then
    192. VERW_DataSet = New Entities.VERW_DataSet
    193. End If
    195. VERW_DataSet.Add(New Entities.VERW_Übersicht)
    196. dgvVERW.DataSource = Nothing
    197. dgvVERW.DataSource = VERW_DataSet
    199. End Sub
    200. End Class



    Die Methode um die Dateien in ein neues Verzeichnis zu Migrieren habe ich dir bereits geschrieben. Wird aus der Beispielform aber nicht aufgerufen, da ich keine Testdaten habe. Musst du dann selbst ausprobieren.

    Die Klasse ist eine generische Liste. Dementsprechend kannst du alle Elemente per LINQ / Lambda-Expressions filtern und sortieren. Viel Spaß!

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

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

Facebook
Telefonspende