Problem mit DataGridView und XML Laden/Speichern

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

Es gibt 34 Antworten in diesem Thema. Der letzte Beitrag () ist von Yanbel.

    Problem mit DataGridView und XML Laden/Speichern

    Hallo,

    ich habe ein Problem, ich habe ein Tool erstellt, welches Daten in XML Speichern soll, diese "Daten" sollen in einen DataGridView geladen werden, Änderungen gespeichert werden.. Die xml Datei soll eigentlich ins Programmverzeichnis erstellt/geladen werden.. (Was auch nicht Klappt)
    Wenn ich den Code, ausführe bekomme ich beim Laden und oder Speichern den Fehler das das Stammelement nicht gefunden wird. Und das die Datei gerade von einen anderen Prozess verwendet wird. (Mit XML hab ich noch nie gearbeitet..) HILFE..

    An bei der Code den ich bis her habe..

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim dt As New DataTable
    5. Dim filestream As IO.FileStream
    7. Const xmldaten As String = "C:\Temp\passwortliste.xml"
    8. Private Sub CreateData()
    9. With dt
    10. .TableName = "testdaten"
    11. .Columns.Add("ID")
    12. .Columns.Add("Account")
    13. .Columns.Add("WebseitenURL")
    14. .Columns.Add("Benutzername")
    15. .Columns.Add("Passwort")
    16. .PrimaryKey = { .Columns("ID")}
    18. End With
    20. dt.WriteXml(xmldaten, XmlWriteMode.WriteSchema)
    21. End Sub
    22. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    24. If Not IO.File.Exists(xmldaten) Then CreateData()
    25. End Sub
    26. Private Sub Btnload_Click(sender As Object, e As System.EventArgs) Handles Btnload.Click
    28. Try
    29. dt.Clear()
    30. dt.ReadXml(xmldaten)
    31. dt.AcceptChanges()
    32. dgv.DataSource = dt
    33. Catch ex As Exception
    34. MsgBox(ex.Message)
    35. End Try
    37. End Sub
    38. Private Sub BtnSave_Click(sender As Object, e As System.EventArgs) Handles Btnsave.Click
    40. Try
    41. If Not Writexmltofile() Then
    42. If MsgBox("Änderungen konnten nicht gespeichert werden." &
    43. vbCrLf &
    44. "Trotzdem speichern?",
    45. MsgBoxStyle.Exclamation Or MsgBoxStyle.OkCancel) =
    46. MsgBoxResult.Cancel Then Exit Sub
    48. dt.WriteXml(xmldaten, 0)
    49. End If
    50. Catch ex As Exception
    51. MsgBox(ex.Message)
    52. End Try
    54. End Sub
    55. Public Function Writexmltofile() As Boolean
    58. Dim fs As IO.FileStream = IO.File.Open(xmldaten, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.Read)
    60. Dim dt_current As New DataTable
    61. dt_current.ReadXml(fs)
    64. With dt_current
    65. If .Columns.Count <> dt.Columns.Count Then Return False
    66. For c As Integer = 0 To .Columns.Count - 1
    67. If Not dt.Columns.IndexOf(.Columns(c).ColumnName) = c Then
    68. fs.Close() 'Spaltenschema inzwischen geändert
    69. Return False
    70. End If
    71. Next c
    73. Dim pcn As String = dt.PrimaryKey(0).ColumnName
    75. For r As Integer = 0 To .Rows.Count - 1
    76. Dim row_user As DataRow =
    77. dt.Rows.Find(.Rows(r)(pcn))
    79. If row_user IsNot Nothing Then
    80. For c As Integer = 0 To .Columns.Count - 1
    81. Dim cc As Integer =
    82. dt.Columns.IndexOf(.Columns(c).ColumnName)
    83. If Not .Rows(r)(c).Equals _
    84. (row_user(cc, DataRowVersion.Original)) Then
    85. fs.Close() 'Zeileninhalt inzwischen extern geändert
    86. Return False
    87. End If
    89. If Not row_user.RowState = DataRowState.Unchanged Then
    91. .Rows(r)(c) = row_user(cc, DataRowVersion.Current)
    92. End If
    93. Next c
    94. Else
    95. fs.Close() : Return False
    96. End If
    97. Next r
    99. For r As Integer = 0 To dt.Rows.Count - 1
    100. If dt.Rows(r).RowState = DataRowState.Added Then
    101. .Rows.Add(dt.Rows(r).ItemArray)
    102. End If
    103. Next r
    105. fs.Close()
    106. .WriteXml(xmldaten, XmlWriteMode.WriteSchema)
    107. dt.AcceptChanges()
    108. End With
    110. Return True
    112. End Function

    Für jede Hilfe bin ich Dankbar. :)

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

    @Andy2002 Deine Herangehensweise ist falsch.
    Erstell eine DataTable und binde die als DataSource an das DGV.
    Schau Dir mal dies an:
    Differenz in Prozent ausrechnen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    1. bitte CodeTags verwenden
    2. Der Code stammt wohl aus dem vb@archiv (da hat sich sogar @ErfinderDesRades am Thread mit beteiligt) - das ist insofern wichtig, weil wir dann anders Deine Fähigkeiten einschätzen können. Wär das nicht klar gewesen, dass der Code von woanders her kommt, hätten wir dauernd irgendwelche Fragen gestellt, warum Du dies und das so gemacht hast und effektiv hättest Du uns gar nichts dazu sagen können.
    3. Probier es mal ohne VB6-Namespace, siehe empfohlene VS-Einstellungen
    4. Bei mir funktioniert der Code - auch wenn er meinen Augen schmerzt. Ich musste nur den Pfad ändern, indem ich von "C:\Temp\passwortliste.xml" auf "passwortliste.xml" umgestellt habe und es somit im Projektverzeichnis abspeichere.

    ##########

    RodFromGermany schrieb:

    Erstell eine DataTable und binde die als DataSource an das DGV.
    Macht er doch. Zeile#3, ab #9, #32
    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.

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

    Ja teile davon sind aus dem Forum, andere teile selbst geschrieben, andere teile aus dem Visual Basic Buch, uvm..

    Also wenn ich auf Option Strict On setze, kann ich nicht Speichern.
    Mache ich off, dann erstellt er beim Laden immer neue Columns, und läd nicht den Inhalt..
    hmm

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

    Andy2002 schrieb:

    wenn ich auf Option Strict On setze, kann ich nicht Speichern.
    Was'n das für ne Aussage? Der Code ist Option Strict On-"kompatibel". Wenn Du es dazuschalten würdest, würde der Compiler zur Designzeit (also während des Programmschreibens) Fehler anmeckern, falls welche vorhanden sind. Aber zur Laufzeit (wenn Du das Programm startest) gäbe es keinen Unterschied. Daher kann Deine Aussage so nicht den Tatsachen entsprechen.
    Zum anderen: Entfern den Mist von Try-Catch, denn: Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst.
    Und wenn dann irgendwelche Exceptions kommen, dann poste deren genauer Wortlaut und wir können sicherlich weiterhelfen. Aber durch diese Sinnloskonstrukte verhinderst Du sinnvolle Fehlermeldungsoptionen.
    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 schrieb:

    Entfern den Mist von Try-Catch
    Das heißt: Alles, was im Try-Bereich ist beibehalten, das Try und alles von Catch bis End Try raus. Du zeigst einen Screenshot einer MessageBox. Und das sagt mir, dass Du den Kram noch drin hast. Das ist vermutlich beim Speichern aufgetreten, oder?
    Dann mach mal erstmal folgendes:
    Lösch die passwortliste.xml im von Dir geposteten Verzeichnis.

    Das hier

    VB.NET-Quellcode

    1. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. If Not IO.File.Exists(xmldaten) Then CreateData()
    3. End Sub

    ersetzt Du durch

    VB.NET-Quellcode

    1. Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    2. If Not IO.File.Exists(xmldaten) Then CreateData()
    3. End Sub

    Und zwar, weil Exceptions im FormLoad-EventHandler beim Debuggen gern verschluckt werden. Hatte ich neulich erst, als ne LINQ-Abfrage scheiterte, aber das beim Debuggen nicht angezeigt wurde, sondern erst in der fertigen Exe. Hat mich sinnlos Zeit gekostet, den Fehler zu finden. Das Beheben war hingegen schnell.

    In der Laden-Sub schmeißt Du das Try-Catch weg, damit wir sehen, was abgeht.

    Und

    VB.NET-Quellcode

    1. Try
    2. If Not Writexmltofile() Then
    3. If MsgBox("Änderungen konnten nicht gespeichert werden." &
    4. vbCrLf &
    5. "Trotzdem speichern?",
    6. MsgBoxStyle.Exclamation Or MsgBoxStyle.OkCancel) =
    7. MsgBoxResult.Cancel Then Exit Sub
    8. dt.WriteXml(xmldaten, 0)
    9. End If
    10. Catch ex As Exception
    11. MsgBox(ex.Message)
    12. End Try

    ersetzt Du durch

    VB.NET-Quellcode

    1. dt.WriteXml(xmldaten)

    in der Speichern-Sub.

    Und dann schauen wir nochmal.
    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.

    Jou.

    Andy2002 schrieb:

    VB.NET-Quellcode

    1. Dim fs As IO.FileStream = IO.File.Open(xmldaten, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.Read)
    2. ' ...
    3. fs.Close()

    Das ganze packst Du in einen Using-Block.
    docs.microsoft.com/de-de/dotne…tatements/using-statement
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Andy2002 Verstehe die Meldung. ;)

    VB.NET-Quellcode

    1. Dim dt = New DataTable()
    machst Du

    VB.NET-Quellcode

    1. Dim dt = New DataTable("Name der Tabelle")
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wo soll das hin??

    VB.NET-Quellcode

    1. ​Dim dt = New DataTable("Name der Tabelle")


    Sie wird doch hier benannt..

    VB.NET-Quellcode

    1. ​Private Sub CreateData()
    2. With dt
    3. .TableName = "testdaten"
    4. .Columns.Add("ID")
    5. .Columns.Add("Account")
    6. .Columns.Add("WebseitenURL")
    7. .Columns.Add("Benutzername")
    8. .Columns.Add("Passwort")
    9. .PrimaryKey = { .Columns("ID")}
    11. End With
    13. dt.WriteXml(xmldaten, XmlWriteMode.WriteSchema)
    14. End Sub


    Und auch hier wird Ja eine Tabelle direkt benannt..

    VB.NET-Quellcode

    1. ​Public Function Writexmltofile() As Boolean
    3. 'aktuelle Daten neu lesen und sperren
    4. Dim fs As IO.FileStream = IO.File.Open(xmldaten, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.Read)
    6. Dim dt_current As New DataTable
    7. dt_current.ReadXml(fs)
    9. 'aktuelle Daten abgleichen
    10. With dt_current
    11. If .Columns.Count <> dt.Columns.Count Then Return False
    12. For c As Integer = 0 To .Columns.Count - 1
    13. If Not dt.Columns.IndexOf(.Columns(c).ColumnName) = c Then
    14. fs.Close() 'Spaltenschema inzwischen geändert
    15. Return False
    16. End If
    17. Next c
    19. Dim pcn As String = dt.PrimaryKey(0).ColumnName
    21. For r As Integer = 0 To .Rows.Count - 1
    22. Dim row_user As DataRow =
    23. dt.Rows.Find(.Rows(r)(pcn))
    25. If row_user IsNot Nothing Then
    26. For c As Integer = 0 To .Columns.Count - 1
    27. Dim cc As Integer =
    28. dt.Columns.IndexOf(.Columns(c).ColumnName)
    29. If Not .Rows(r)(c).Equals _
    30. (row_user(cc, DataRowVersion.Original)) Then
    31. fs.Close() 'Zeileninhalt inzwischen extern geändert
    32. Return False
    33. End If
    35. If Not row_user.RowState = DataRowState.Unchanged Then
    36. 'geänderten Wert in frisch geladene Table übertragen
    37. .Rows(r)(c) = row_user(cc, DataRowVersion.Current)
    38. End If
    39. Next c
    40. Else
    41. fs.Close() : Return False 'Schlüssel geändert oder
    42. 'inzwischen neue Zeile erstellt
    43. End If
    44. Next r
    46. For r As Integer = 0 To dt.Rows.Count - 1
    47. If dt.Rows(r).RowState = DataRowState.Added Then
    48. .Rows.Add(dt.Rows(r).ItemArray) 'neu erstellte Zeile anfügen
    49. End If
    50. Next r
    52. fs.Close()
    53. .WriteXml(xmldaten, XmlWriteMode.WriteSchema)
    54. dt.AcceptChanges()
    55. End With
    57. Return True
    59. End Function

    Andy2002 schrieb:

    Und auch hier wird Ja eine Tabelle direkt benannt..
    Hier?

    Andy2002 schrieb:

    VB.NET-Quellcode

    1. Dim dt_current As New DataTable
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn die Exception kommt, fahr mit der Maus über dt und lass Dir den Inhalt anzeigen. Vielleicht zeigt sich ja, dass die dt doch noch nicht initialisiert wurde. Kannst Du dt mal "aufklappen" und nen Screenshot schicken? Also sowas:

    Du hast Post#8 noch nicht ganz beachtet, siehe dort die letzten beiden Codeblöcke.

    ##########

    Wenn in der writexmltofile die Datei ausgelesen wird und dadurch die ganzen Daten der DataTable gesetzt werden, dann hast Du ein Problem, wenn der XML-Inhalt geschrottet wurde, weil dann das Auslesen murks ergibt. Daher solltest Du diese Sub nicht verwenden, sondern einfach nur dt.WriteXML(DeinDateipfad). Denn solange Du nicht genau weißt, was in der Sub passiert, solltest Du sie nicht verwenden.
    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.

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

    Also ich habe jetzt keinen Fehler mehr wenn ich Speichern drücke. Aber die Datei die erstellt wird (passwortliste.xml) hat nun keinen Inhalt.. Es steht nur:

    XML-Quellcode

    1. <?xml version="1.0" encoding="ISO-8859-1"?><DocumentElement/>
    Im Dokument..

    Ich habe Folgendes gemacht..

    VB.NET-Quellcode

    1. Dim dt = New DataTable("testdaten")


    Die Function writexmltofile hab ich jetzt raus genommen, trotzdem wird mir kein Inhalt erzeugt..

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim dt As New DataTable("testdaten")
    5. Dim filestream As IO.FileStream
    7. Const xmldaten As String = "passwortliste.xml"
    8. Private Sub CreateData()
    9. With dt
    10. .TableName = "testdaten"
    11. .Columns.Add("ID")
    12. .Columns.Add("Account")
    13. .Columns.Add("WebseitenURL")
    14. .Columns.Add("Benutzername")
    15. .Columns.Add("Passwort")
    16. .PrimaryKey = { .Columns("ID")}
    18. End With
    20. dt.WriteXml(xmldaten, XmlWriteMode.WriteSchema)
    21. End Sub
    23. Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    24. If Not IO.File.Exists(xmldaten) Then CreateData()
    25. End Sub
    26. Private Sub Btnload_Click(sender As Object, e As System.EventArgs) Handles Btnload.Click
    28. 'dt.Clear()
    29. dt.ReadXml(xmldaten)
    30. dt.AcceptChanges()
    31. dgv.DataSource = dt
    33. End Sub
    34. Private Sub BtnSave_Click(sender As Object, e As System.EventArgs) Handles Btnsave.Click
    36. dt.WriteXml(xmldaten)
    38. End Sub​

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Andy2002“ ()

    Andy2002 schrieb:

    trotzdem wird mir kein Inhalt erzeugt
    Wieso erzeugt? Reinschreiben ins DGV musst Du schon selber. Nur zur Sicherheit: da irgendwas Inhaltliches erzeugen hat der Erstcode auch nicht gemacht.
    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.

    Andy2002 schrieb:

    trotzdem wird mir kein Inhalt erzeugt..
    In Post #2 hab ich Dir einen Link zu einem funktionierenden Beispiel gepostet.
    Lesen bildet. Testen auch.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja ich Schreibe die Daten in die dgv über das Programm rein.. Also in jede Spalte der Zeile steht was.. Dann klicke ich auf den Button btnsave, -> Die Passwortliste.xml wird erstellt.. (Ist jedoch leer!) Und Laden klappt so auch nicht.

    @Andy2002 Hast Du das Beispiel von Post #2 mal angesehen und laufen lassen?
    Offensichtlich nicht.
    Das sieht mir doch stark nach Beratungsresistenz aus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moooment mal. Schreibst Du in die erste Zeile rein und während Du noch in der 1. Zeile bist, drückst Du auf [Speichern]? Dann schau doch mal bitte, was in der DataTable konkret drin steht. Denn wenn Du die 1. Zeile nicht verlässt, werden die Änderungen nicht in die DataTable übernommen. Aber halt. Ich hab Dich ja schon gebeten, einen DataTableContent zu posten. Und: Wenn Du die DataTable gespeichert hast, was steht dann in der Datei? Du könntest noch Dein Projekt per [+Erweiterte Antwort] posten, vielleicht ist so der Fehler zu finden.
    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.