Datagridview(tabelle) daten per Button speichern

  • VB.NET

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

    Datagridview(tabelle) daten per Button speichern

    Hallo,

    ich brauche umbedingt hilfe

    Ich habe in VB2008 eine Tabelle(DataGridView) erstellt mit Mitarbeiter , Werkzeug , usw..

    wenn ich jetz mit einer Combobox unter Mitarbeiter den name auswähle dann möchte ich das abspeichern mit einem button dann kann ich immer wieder nachschauen .. damit ich weiss (zbs: Frank hatte nen hammer).

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

    Aufwendig: jede Zelle in dden Settings speichern und später wieder Auslesen ;)


    Mfg, jmb.96 :)
    "People assume that time is a strict progression of cause to effect, but actually, from a non-linear, non-subjective viewpoint, it's more like a big ball of wibbly wobbly, ...timey wimey ...stuff."

    Aller Anfang ist schwer.

    Speichert eine DataGridView in eine CSV Datei, wobei es hier egal ist wieviele Colums es gibt.
    Also Automatisch
    Mach mal einen Button "Speichern" und dann rufst du die Routine Damit auf das hier rein damit:
    Dann solltest du noch "Datei" deklarieren. Also so wie deine Datei dann heisen soll.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' DatagridView speichern
    2. Private Sub DataGrid_Speichern()
    3. Dim Liste As String = Nothing
    4. ' Anzahl der Zeilen
    5. Dim count As Integer = DataGridView1.Rows.Count - 1
    6. For i = 0 To count - 1
    7. ' Anzahl der Spalten
    8. Dim ColumCount As Integer = DataGridView1.ColumnCount - 1
    9. Dim Eintrag As String = Nothing
    10. For g = 0 To ColumCount
    11. If Not g = ColumCount Then
    12. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value) & "#"
    13. Else
    14. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value)
    15. End If
    16. Next g
    17. Liste += Eintrag & vbCrLf
    18. Next i
    19. Try
    20. IO.File.WriteAllText(Datei, Liste)
    21. Catch ex As Exception
    22. MessageBox.Show("beim speichern ist ein fehler aufgetreten ")
    23. End Try
    24. End Sub


    Befass dich damit.
    Wenn ich heute noch zeit finde gibt dann auch die laden Routine.

    danke für die schnelle antwort

    aber wenn ich den text jetzt in mein Button_2 [Speichern] einfüge dann sieht das so aus und was meinen sie mit Deklariert.



    ---------------------------------------------------------------------------------------

    ok das Private Sub hab ich behoben hab dadrüber einfach End Sub gemacht ..

    was bedeutet wurde nicht deklariert? wie deklariere ich den name und wo ?

    bitte um Hilfe ...

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

    Sehe ich das richtig?

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. ' DatagridView speichern
    3. Private Sub DataGrid_Speichern()
    4. 'Dim ...
    5. '...
    6. End Sub

    ???
    Wenn ja, mach bitte

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. End Sub
    3. Private Sub DataGrid_Speichern()
    4. End Sub

    draus.
    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!

    Poste Deinen Quelltext als Quelltext (Button "VB"), dann geht das alles sehr viel schneller.
    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!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    3. End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Form2.Show()
    5. End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    7. If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    8. PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
    9. PrintDocument1.Print()
    10. End If
    11. End SubPrivate Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPagee.Graphics.DrawString(DataGridView1.Text, New Font("Arial", 13, FontStyle.Regular), Brushes.Black, 10, 10)
    13. End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    14. End SubPrivate Sub DataGrid_Speichern()
    15. End Sub
    16. Dim Liste As String = Nothing
    17. ' Anzahl der ZeilenDim count As Integer = DataGridView1.Rows.Count - 1
    18. For i = 0 To count - 1
    19. ' Anzahl der SpaltenDim ColumCount As Integer = DataGridView1.ColumnCount - 1
    20. Dim Eintrag As String = NothingFor g = 0 To ColumCount
    21. If Not g = ColumCount Then
    22. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value) & "#"
    23. ElseEintrag += CStr(DataGridView1.Rows(i).Cells(g).Value)
    24. End IfNext g
    25. Liste += Eintrag & vbCrLfNext i
    26. Try
    27. IO.File.WriteAllText(Datei, Liste)Catch ex As Exception
    28. MessageBox.Show("beim speichern ist ein fehler aufgetreten ")
    29. End Try
    30. End SubPrivate Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
    31. End Sub
    32. End Class

    Ich hab mal den Code korrigiert.
    Wo
    '@@@@@ hier Deinen Wert eintragen
    steht, musst Du Deine speziellen Werte eintragen.
    Und überzeuge Dich bitte, ob der Code am Bildschirm so aussieht, wie bei Dir ("Vorschau")
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Public Class Form1
    5. Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    6. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. 'Form2.Show()
    9. End Sub
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. End Sub
    12. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    13. If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    14. PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
    15. PrintDocument1.Print()
    16. End If
    17. End Sub
    18. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    19. e.Graphics.DrawString(DataGridView1.Text, New Font("Arial", 13, FontStyle.Regular), Brushes.Black, 10, 10)
    21. End Sub
    22. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    23. End Sub
    24. Private Sub DataGrid_Speichern()
    25. Dim Liste As String = Nothing
    26. Dim count As Integer = 10 '@@@@@ hier Deinen Wert eintragen
    27. Dim ColumCount As Integer = 5 '@@@@@ hier Deinen Wert eintragen
    28. Dim Datei As String = "c:\temp\mydoc.txt" '@@@@@ hier Deinen Wert eintragen
    29. ' Anzahl der ZeilenDim count As Integer = DataGridView1.Rows.Count - 1
    30. For i = 0 To count - 1
    31. ' Anzahl der SpaltenDim ColumCount As Integer = DataGridView1.ColumnCount - 1
    32. Dim Eintrag As String = Nothing
    33. For g = 0 To ColumCount
    34. If Not g = ColumCount Then
    35. Eintrag &= CStr(DataGridView1.Rows(i).Cells(g).Value) & "#"
    36. Else
    37. Eintrag &= CStr(DataGridView1.Rows(i).Cells(g).Value)
    38. End If
    39. Next g
    40. Liste &= Eintrag & vbCrLf
    41. Next i
    42. Try
    43. IO.File.WriteAllText(Datei, Liste)
    44. Catch ex As Exception
    45. MessageBox.Show("beim speichern ist ein fehler aufgetreten ")
    46. End Try
    47. End Sub
    48. Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
    49. End Sub
    51. End Class
    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!

    @RodFromGermany

    RodFromGermany schrieb:

    Dim count As Integer = 10 '@@@@@ hier Deinen Wert eintragen
    Dim ColumCount As Integer = 5 '@@@@@ hier Deinen Wert eintragen

    Das finde ich nicht so schön. Damit wir er nicht zurecht kommen.

    Ich habe hier mal ein kleines Beispiel mit Laden und Speichern gemacht.
    Damit sollte es verständlich sein:

    @kevinbusy

    mach mal eine Form mit einem DataGridView, einem Button für Speichern und einen Button für das Laden.
    Das Verzeichnis "C:\Temp" sollte bei dir vorhanden sein.
    Kopier den kompletten Text in dein Projekt.

    Wichtig:
    Deine DataGridVie sollte bereit die Columns enthaltne.
    Nachdem das Projekt gestartet ist, trägst du einige Werte in die DGV ein.
    Dann drückst du auf deinen Button Speichern.

    Beende das Projekt,
    nach erneutem Starten kannst du dann auf den Button Laden Klicken.
    Nun sollten alle Einträge wieder angezeigt werden.

    Spoiler anzeigen


    Der komplette Code für das Projekt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Imports System.IO
    4. Public Class Form1
    5. Dim Datei As String = "C:\Temp\Test.CSV"
    7. ' Button 1 ist für das Laden
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. DataGrid_Laden()
    10. End Sub
    11. ' Button 2 ist für das Speichern
    12. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    13. DataGrid_Speichern()
    14. End Sub
    16. ' DatagridView speichern
    17. Private Sub DataGrid_Speichern()
    18. Dim Liste As String = Nothing
    19. ' Anzahl der Zeilen
    20. Dim count As Integer = DataGridView1.Rows.Count - 1
    21. For i = 0 To count - 1
    22. ' Anzahl der Spalten
    23. Dim ColumCount As Integer = DataGridView1.ColumnCount - 1
    24. Dim Eintrag As String = Nothing
    25. For g = 0 To ColumCount
    26. If Not g = ColumCount Then
    27. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value) & ";"
    28. Else
    29. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value)
    30. End If
    31. Next g
    32. Liste += Eintrag & vbCrLf
    33. Next i
    34. Try
    35. IO.File.WriteAllText(Datei, Liste)
    36. Catch ex As Exception
    37. MessageBox.Show("beim speichern ist ein fehler aufgetreten ")
    38. End Try
    39. End Sub
    41. ' DataGridView aus datei lesen und in Grid anzeigen
    42. Private Sub DataGrid_Laden()
    43. If File.Exists(Datei) Then
    44. Dim lines() As String = Nothing
    45. DataGridView1.Rows.Clear()
    46. Me.Cursor = Cursors.AppStarting
    47. 'DataGridView1.AllowUserToAddRows = True
    48. Try
    49. lines = IO.File.ReadAllLines(Datei)
    50. Catch ex As Exception
    51. Me.Cursor = Cursors.Default
    52. Exit Sub
    53. End Try
    54. Dim Menge As Integer = lines.GetLength(Menge) - 1 ' Anzahl der Zeilen ermitteln
    55. For i = 0 To Menge
    56. Dim Eintrag As String = lines(i)
    57. Dim parts() As String = Split(Eintrag, ";")
    59. Dim RowCount As Integer = DataGridView1.RowCount - 1
    60. DataGridView1.Rows.Add()
    61. DataGridView1.BeginEdit(CBool(RowCount))
    63. Dim SplittCount As Integer = parts.Length - 1 ' Anzahl der Einträge in Splitt
    64. If SplittCount >= 0 Then
    65. For g = 0 To SplittCount
    66. DataGridView1.Rows(RowCount).Cells(g).Value = parts(g)
    67. Next g
    68. End If
    69. Next i
    70. DataGridView1.Update()
    71. DataGridView1.EndEdit()
    72. 'DataGridView1.AllowUserToAddRows = False
    73. Me.Cursor = Cursors.Default
    74. End If
    75. End Sub
    78. End Class

Facebook
Telefonspende