Abspeichern von Daten(DataGridView)

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Abspeichern von Daten(DataGridView)

    Hi.
    ich brauche dringend Hilfe, beim Abspeichern von Daten. Ich habe mittlerweile ein Programm geschrieben was mir sehr viele dinge berechnet. Diese Ergebnisse sind dann in Variabeln gespeichert, außßerdem lasse ich mir die Ergebnisse in einem DataGridView anzeigen. Jetzt habe ich das Problem das beim schließen des Projekts alle Werte Verloren gehen.
    Ich habe schon danach gegoogelt und in ein paar büchern gestöbert und habe gelesen das man sich die Ergebnisse, die ja nun in einem DataGridView drin stehen per DataSet irgendiwe abspeichern kann, allerdings Unterbricht der Complier mit dem Fehler:"Zeilen können nicht automatisch zur Zeilenauflistung der DataGridView hinzugefügt werden, wenn das Steuerelement datengebunden ist."
    Hat da jemand Lösungsvorschläge?
    Vielen Dank im vorraus
    Gruß Kevik

    Wenn du Daten in eine DataGridView bearbeitest kommt es darauf an wie die Daten in die DataGridView gekommen sind.

    1.) Daten über DataSet laden und in die DataGridView übergeben bedeutet auch die Daten in der DataSet ändern und über DataSet wieder speichern.

    2.) Daten in der DataGridWiewmanuell bearbeiten, ändern ... und so weiter. Mann kann die DAten dann auch manuell auslesen und Speichern
    z.B. mit XML, CSV, Txt usw....

    was hast du vor und um wieviele Daten handelt es sich ca. Woher kommen die Daten ?

    Puuuhhh das ich jetzt gerade kompliziert zu beschreiben.
    Also ich lasse mir Werte per Schleife ausrechnen, die ich dann in "Double" Variabeln abspeichere und gebe sie dann Per DGV aus. Es handelt sich alles in allem um ca. 100 Werte.

    Dim a As Double = Textbox1.Text
    Dim zahl(51) As Double
    Do Until n >=50
    n = n+1
    a/n
    zahl(n) = a/n

    If Len(zahl(n))<=2 Then
    DGV1.Rows.Add(n, zahl(n))
    End If
    Loop

    Also das ist jetzt eine kleines Beispiel davon wie ich die Daten in den DGV reinschreibe.

    ich hatte mal ein ähnliches projekt und habe mir 2 funktionen geschrieben, die das DGV als tabelle in eine html-datei speichern bzw. aus dieser laden.

    fand ich persönlich eine gute lösung, weil man so die daten auch ohne das entsprechende programm ansehen kann.

    muss das ding nur eben finden, dann kann ich die beiden funktionen ja posten, wenn du willst.

    @ lordknoblauch Ja das wäre super.
    @ChaosBernd: Ich hab in deine Ablage geschaut und habe das hier gefunden.
    Jedoch funktioniert das Abspeichern nicht.
    Public Class Form1
    Dim xmldatadoc As Xml.XmlDataDocument
    #Region "XML Document"
    ' Laden
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    xmldatadoc = New Xml.XmlDataDocument
    xmldatadoc.DataSet.ReadXml("H:\Test.xml") ' hier wird das DataSet direk über XML Read geladen
    DataGridView2.DataSource = xmldatadoc.DataSet.Tables(0)
    End Sub
    ' Speichern
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    xmldatadoc.DataSet.WriteXml("H:\Test.xml")
    End Sub
    #End Region
    End Class

    Der Part mit dem die Datei geladen wird, der interessiert mich doch erstmal garnicht. Vorerst will ich nur die Ergebnisse aus dem DGV abspeichern.

    in der hoffnung, dass mir keiner was antut, poste ich mal meinen code (ich war jung und ahnungslos... ;( ) ^^

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub DataGridViewToHTML(ByVal grdView As DataGridView, Optional ByVal StandardName As String = "")
    2. 'speicher-dialog
    3. Dim filesave As SaveFileDialog = New SaveFileDialog
    4. filesave.AddExtension = True
    5. filesave.Filter = "HTML-Dateien (*.html)|*.html"
    6. filesave.FileName = StandardName
    8. If filesave.ShowDialog = DialogResult.OK Then
    9. 'tabelle anfangen
    10. Dim sw As New IO.StreamWriter(filesave.FileName, False)
    11. sw.WriteLine("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 transitional//DE"">")
    12. sw.WriteLine("")
    13. sw.WriteLine("<body bgcolor=""#c0c0c0"">")
    14. sw.WriteLine("<table border=""1"">")
    16. 'spaltenbezeichnung anlegen
    17. sw.WriteLine("<tr>")
    18. For j As Integer = 0 To grdView.ColumnCount - 1
    19. sw.Write("<td><b>")
    20. Dim celltext As String = grdView.Columns.Item(j).HeaderText
    21. If celltext = vbNullString Then celltext = ""
    22. sw.Write(celltext)
    23. sw.WriteLine("</b></td>")
    24. Next
    25. sw.WriteLine("</tr>")
    26. sw.WriteLine("")
    28. 'zellen füllen
    29. For i As Integer = 0 To grdView.RowCount - 1
    30. sw.WriteLine("<tr>")
    31. For j As Integer = 0 To grdView.Columns.Count - 1
    32. sw.Write("<td>")
    33. Dim celltext As String = grdView.Item(j, i).Value
    34. If celltext = vbNullString Then celltext = ""
    35. sw.Write(celltext)
    36. sw.WriteLine("</td>")
    37. Next
    38. sw.WriteLine("</tr>")
    39. sw.WriteLine("")
    40. Next
    42. 'tabelle schließen
    43. sw.WriteLine("</table></body>")
    44. sw.Close()
    45. End If
    46. End Sub


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub HTMLToDatagridview(ByVal DG As DataGridView, Optional ByVal StandardName As String = "")
    2. 'laden-dialog
    3. Dim loadfile As OpenFileDialog = New OpenFileDialog
    4. loadfile.AddExtension = True
    5. loadfile.Filter = "HTML-Dateien (*.html)|*.html"
    6. loadfile.FileName = StandardName
    8. If loadfile.ShowDialog = DialogResult.OK Then
    9. Dim sr1 As New IO.StreamReader(loadfile.FileName)
    10. Dim StrAll As String = ""
    11. Dim strpart As String = ""
    12. Dim firstrun As Boolean = True
    14. Dim i As Integer = 0
    15. Dim j As Integer = 0
    17. 'ermitteln der row.count
    18. Dim rowcount As Integer = 0
    19. Do While (sr1.Peek() <> -1)
    20. StrAll = sr1.ReadLine
    21. If StrAll.Equals("</tr>") Then
    22. rowcount += 1
    23. End If
    24. Loop
    26. 'rows anlegen
    27. For x As Integer = 0 To rowcount - 3
    28. DG.Rows.Add()
    29. Next
    30. sr1.Close()
    32. 'rows füllen
    33. Dim sr2 As New IO.StreamReader(loadfile.FileName)
    34. Try
    35. Do While (sr2.Peek() <> -1)
    36. If firstrun Then
    37. StrAll = sr2.ReadLine()
    38. If StrAll.Contains("</tr>") Then
    39. firstrun = False
    40. End If
    41. Else
    42. StrAll = sr2.ReadLine()
    43. If StrAll.Contains("<td>") Then
    44. If Not StrAll.Equals("<td></td>") Then
    45. strpart = StrAll.Substring(4, StrAll.Length - 9)
    46. DG.Item(i, j).Value = strpart
    47. End If
    48. i += 1
    49. ElseIf StrAll.Contains("</tr>") Then
    50. j += 1
    51. i = 0
    52. End If
    54. If StrAll = "</table>" Then
    55. Exit Do
    56. End If
    57. End If
    58. Loop
    59. Catch ex As ArgumentOutOfRangeException
    60. MessageBox.Show(ex.Message)
    61. End Try
    62. sr2.Close()
    63. End If
    64. End Sub


    zwar peinlich, aber sollte funktionieren 8o

    Gib dem DGV eine DataTable als DataSource.
    Dieser Tabelle weise Spalten mit Deinen Datentypen zu (Integer, String, ...).
    Diese DataTable kannst Du per SaveXML(PFAD) und LoadXML(PFAD) easy handeln.
    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!

    Hallo, ich habe mal den Obigen Code abgeändert und in mein Projekt "importiert"

    nun erscheint der Fehler:

    Ungültige Konvertierung von Typ DBNull in Typ String.

    in der zeile:
    Dim celltext As String = LieferantDataGridView.Item(j, i).Value

Facebook
Telefonspende