Excel Datei in Datagrid einlesen, bearbeiten und wieder speichern mit ADO.net

  • WPF

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Lubeca.

    Excel Datei in Datagrid einlesen, bearbeiten und wieder speichern mit ADO.net

    Hallo Zusammen!
    Ich erstelle gerade ein kleines Programm mit WPF und VB in Visual Studio 2012. Im Hauptfenster habe ich eine Tabelle (DataGrid). Die Daten lese ich mittels ADO.net aus einer Excel-Datei ein. Das Datagrid ist völlig leer und die 5 Spalten werden durch das Einlesen der Excel-Tabelle erstellt. Das funktioniert auch gut.
    Dann kann ich eine Zeile markieren und auf den Button "hinzufügen" klicken. Jetzt öffnet sich ein weiteres Fenster wo es für jede markierte Zelle eine Textbox gibt. Hier kann ich nun neue Daten eintragen und mit Klick auf den Button "Sichern" in das Datagrid eintragen. Das klappt auch schon sehr gut.
    Die nächste Funktion ist das Bearbeiten eines Eintrages. Gleiche Prozedur wie Hinzufügen nur mit Übernahme der markierten Daten in die Textboxen. Geht also auch schon.
    Jetzt zu meinem Problem: Wie bekomme ich die geänderten Daten in meine Excel Datei zurück?
    Microsoft hat mir schon einiges an Info geboten und auch hier im Forum sowie in restlichen Internet habe ich verschiedene Ansätze gefunden, die ich auch fleißig alle ausprobiert habe. Doch leider kommen immer neue Fehlermeldungen und ich weiß gar nicht mehr was ich noch falsch mache. Kann mir jemand einen Tipp geben wie ich jetzt neu an diese Prozedur rangehen muss.
    Ich weiß im Code nicht wie die Überschriften der Spalten heißen, da sie ja beim Einlesen erst erstellt werden. Für den Update Befehl brauch ich aber einen parametrisierten Befehl. Nur wie kann der ohne Kenntnis der Überschriften aussehen. Stimmt es, dass ich in Excel keine Zeilen löschen kann. Sollte ich dann alles ganz anders anfangen?

    Hier mal mein Code, den ich zum Einfügen ins Datagrid benutze:

    VB.NET-Quellcode

    1. Public Shared objDatensatz As System.Data.Dataset ' Variable für den Adapter
    2. Public Shared objAdapter As System.Data.OleDbDataAdapter ' Variable für den Adapter
    4. Shared Sub ExcelDateieinbinden(ByVal MeinPfad As String, ByVal TestGrid As DataGrid)
    5. ' lokale Variablendeklaration
    6. Dim objKommando As OleDbCommand ' Variable für Befehl zum Holen der Daten
    7. Dim Verbindung As System.Data.OleDb.OleDbConnection = Nothing ' Variable für die Verbindung
    8. ' Öffnen der Excel-Datei und Auslesen der Daten, zum Speichern im DataSet
    9. Try ' Beginn eines Versuchs
    10. ' Verbindung bestimmen
    11. Verbindung = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & MeinPfad & " ';" & "Extended Properties = Excel 12.0;") 'file1.FileName
    12. ' Verbindung öffnen
    13. Verbindung.Open()
    14. ' Adapter generieren
    15. objAdapter = New System.Data.OleDb.OleDbDataAdapter
    16. ' Befehl zum holen der Daten
    17. objKommando = New OleDbCommand("SELECT * from [Tabelle1$]", Verbindung)
    18. ' Befehl dem Adapter übergeben
    19. objAdapter.SelectCommand = objKommando
    20. ' Neue DatenSet generieren
    21. objDatensatz = New System.Data.DataSet
    22. ' DatenSet füllen mit Werten
    23. objAdapter.Fill(objDatensatz, "Liste der Kommunikationsanlagen")
    24. ' DataGrid "TestGrid" die Daten zuweisen
    25. TestGrid.DataContext = objDatensatz.Tables("Liste der Kommunikationsanlagen").DefaultView
    26. ' Bindung an die Daten erstellen
    27. TestGrid.SetBinding(System.Windows.Controls.DataGrid.ItemsSourceProperty, New System.Windows.Data.Binding())
    28. ' Verbindung schließen
    29. Verbindung.Close()
    30. Catch ex As Exception ' Falls der Ablauf nicht klappt
    31. Verbindung.Close() ' Verbindung schließen
    32. MsgBox("Fehler: " & Err.Number & vbCrLf & "Bitte werden Sie sich an den Systemadministrator", MsgBoxStyle.Critical, "Irgendetwas Stimmt nicht!")
    33. End Try ' Ende des Versuchs
    34. End Sub ' Ende der Prozedur


    Hier mal die Zeile hinzufügen, der Code ändert automatisch das Datagrid:

    VB.NET-Quellcode

    1. Shared Sub Zeileneu(ByVal VarKdnNr As Integer, ByVal VarKdnName As String, ByVal VarAnbz As String, ByVal VarAnnr As String, ByVal VarCboFern As String)
    2. Dim Datentabelle As System.Data.DataTable ' Variable für die Datentabelle
    3. Dim Datenzeile As System.Data.DataRow ' Variable für die Zeile
    4. ' Zugriff auf Tabelle
    5. Datentabelle = objDatensatz.Tables(0)
    6. ' Anfügen eines neuen Datensatzes
    7. Datenzeile = Datentabelle.NewRow
    8. ' Füllen der Zeile/des Datensatzes
    9. Datenzeile(0) = VarKdnNr
    10. Datenzeile(1) = VarKdnName
    11. Datenzeile(2) = VarAnbz
    12. Datenzeile(3) = VarAnnr
    13. Datenzeile(4) = VarCboFern
    14. ' Anfügen der Zeile an Tabelle
    15. Datentabelle.Rows.Add(Datenzeile)
    16. 'objDatensatz.Tables(0).Rows.Add(Datenzeile)
    17. End Sub ' Ende der Prozedur


    Jetzt fehlt mir nur noch der Code zum Übertragen des aktuellen Datagrid in die Excel Datei.
    Bitte helft mir!
    Tschüßi Lubeca

    VB.NET-Quellcode

    1. 'Function "Inhalt Dataset in Excel exportieren"
    2. Public Function dgvToExcel(ByVal dgv As DataGridView, Optional ByVal FillHiddenMode As Boolean = True) As Boolean
    3. Try
    4. Dim Excel As Excel.Application ' Verweis auf Excel-Application
    5. Dim EXMappe As Excel.Workbook ' Excel Arbeitsmappe
    6. Dim EXBlatt As Excel.Worksheet ' Excel Blatt ( Die angezeigte Tabelle)
    7. Dim AZ As Integer ' Nimmt die Zeilenanzahl auf
    9. ' neue Instanz von Excel erstellen und ggf. sofort anzeigen
    10. Excel = New Excel.Application()
    11. Excel.Visible = Not FillHiddenMode
    13. ' neue Mappe hinzufügen
    14. EXMappe = Excel.Workbooks.Add()
    16. ' aktuelles Blatt anzeigen
    17. 'EXBlatt = EXMappe.ActiveSheet
    18. EXBlatt = CType(EXMappe.ActiveSheet, Worksheet)
    19. With dgv
    20. ' Spaltenüberschriften übertragen
    21. For Spalte As Integer = 0 To .Columns.Count - 1
    22. CType(EXBlatt.Cells(1, Spalte + 1), Range).Value() = .Columns(Spalte).HeaderText
    23. 'EXBlatt.Cells(1, Spalte + 1).Value() = .Columns(Spalte).HeaderText --> war original
    24. Next
    26. ' Anzahl Datenzeilen
    27. AZ = .Rows.Count
    28. If .AllowUserToAddRows = True Then
    29. ' Leerzeile abziehen
    30. AZ = AZ - 1
    31. End If
    33. ' Datenzeilen übertragen
    34. For Zeile As Integer = 0 To AZ - 1
    35. For Spalte As Integer = 0 To .Columns.Count - 1
    36. CType(EXBlatt.Cells(Zeile + 2, Spalte + 1), Range).Value() = .Rows(Zeile).Cells(Spalte).Value.ToString
    37. 'EXBlatt.Cells(Zeile + 2, Spalte + 1).Value() = .Rows(Zeile).Cells(Spalte).Value.ToString --> war original
    38. Next
    39. Next
    40. End With
    42. ' Excel jetzt anzeigen
    43. If FillHiddenMode Then Excel.Visible = True
    44. Return True
    46. Catch ex As Exception
    47. ' Fehler
    48. MsgBox("Fehler beim Übertragen der Daten nach Excel!" & vbCrLf & _
    49. ex.Message, MsgBoxStyle.Exclamation)
    50. Return False
    51. End Try
    53. End Function
    55. 'Inhalt Dataset in Excel exportieren
    56. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    57. Me.Cursor = Cursors.WaitCursor
    58. dgvToExcel(DataGridView1)
    59. Me.Cursor = Cursors.Default
    60. End Sub


    Könnte so klappen

    Danke, aber die Lösung ist das noch nicht

    Danke für die Antworten.
    Ich hatte an eine einfache Tabelle gedacht, da es nur 5 Spalten sein sollten und ich mich mit der Erstellung von Access Datenbanken etwas schwer tue. Ohne Access ist das für mich zu kompliziert.

    Hatte schon an ein komplettes Kopieren gedacht, nur hier fehlt mir die Kenntnis, wie ich das Datagrid in die Zwischenablage bekomme, ohne es selber per Maus zu markieren und mit Strg + C zu kopieren. siehe meinen Post in Allgemein: 102413-datagrid-in-zwischenablage-clipboard-kopieren

    Ich habe inzwischen einen sehr langen C# Code gefunden, mit dem jede einzelne Zeile in Text umgewandelt wird und dann der gesamte String in die Excel Datei geschrieben wird. Wenn es funktioniert, wird die Lösung natürlich sofort hier erscheinen, aber bis dahin hoffe ich, dass mir doch jemand eine kurze Lösung nennen kann.

    Tschüßi Lubeca

Facebook
Telefonspende