DataGridView - Add Item in importierter Excel Tabelle

  • VB.NET
  • .NET (FX) 4.0

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Patty98.

    DataGridView - Add Item in importierter Excel Tabelle

    Hey, wie der Titel schon sagt möchte ich eine Excel Tabelle Importieren (5 Spalten) (Was ich auch hingekriegt habe).
    Jetzt habe ich 5 TextBoxen, aus denen ich mit einem klick eine Reihe des DataGridViews befüllen möchte. (krieg ich nicht hin)

    Nach langem herumgebastel und gegoogle habe ich keine Ahnung wie das richtig funktioniert. ?(

    Hat von euch einer eine Idee ?

    Danke schonmal. LG

    Habe ich versucht dann kommt:

    InvalidOperationException wurde nicht behandelt.

    Zeilen können nicht automatisch zur Zeilenauflistung der DataGridView hinzugefügt werden, wenn das Steuerelement datengebunden ist.

    Spoiler anzeigen
    System.InvalidOperationException wurde nicht behandelt.
    HResult=-2146233079
    Message=Zeilen können nicht automatisch zur Zeilenauflistung der DataGridView hinzugefügt werden, wenn das Steuerelement datengebunden ist.
    Source=System.Windows.Forms
    StackTrace:
    bei System.Windows.Forms.DataGridViewRowCollection.Add(Object[] values)
    bei Neuer_Versuch.Form1.Button1_Click(Object sender, EventArgs e) in c:\users\patrick\documents\visual studio 2010\Projects\Neuer Versuch\Neuer Versuch\Form1.vb:Zeile 79.
    bei System.Windows.Forms.Control.OnClick(EventArgs e)
    bei System.Windows.Forms.Button.OnClick(EventArgs e)
    bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
    bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
    bei System.Windows.Forms.Control.WndProc(Message& m)
    bei System.Windows.Forms.ButtonBase.WndProc(Message& m)
    bei System.Windows.Forms.Button.WndProc(Message& m)
    bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
    bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    bei System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
    bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
    bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
    bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
    bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
    bei System.Windows.Forms.Application.Run(ApplicationContext context)
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    bei Neuer_Versuch.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
    bei System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
    bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
    bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
    bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
    bei System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
    bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
    bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    bei System.Threading.ThreadHelper.ThreadStart()
    InnerException:



    So importiere ich die Tabelle :

    VB.NET-Quellcode

    1. ​ Private Sub ComboBox1_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    3. Try
    5. Dim fileName As String = ComboBox1.Text
    6. Dim MyConnection As System.Data.OleDb.OleDbConnection
    7. Dim dataSet As System.Data.DataSet
    8. Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
    9. Dim path As String = Application.StartupPath & "\Tabellen\" & fileName & ".xlsx"
    10. Dim sTable As String = ComboBox1.Text + "$"
    13. MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0;")
    14. MyCommand = New System.Data.OleDb.OleDbDataAdapter("Select * from [Tabelle1$]", MyConnection)
    16. dataSet = New System.Data.DataSet
    17. MyCommand.Fill(dataSet)
    18. DataGridView1.DataSource = dataSet.Tables(0)
    20. MyConnection.Close()
    21. Catch ex As Exception
    22. MsgBox(ex.Message.ToString)
    23. End Try
    25. End Sub



    Export:

    VB.NET-Quellcode

    1. ​ Dim strings(ComboBox1.Items.Count - 1) As String
    2. ComboBox1.Items.CopyTo(strings, 0)
    3. My.Settings.ComboItems.Clear()
    4. My.Settings.ComboItems.AddRange(strings)
    6. Dim fileName As String = ComboBox1.Text
    7. Dim xls_Appl As Object ' Excel Anwendung
    8. Dim xls_Mappe As Object ' Excel Arbeitsmappe (Datei)
    9. Dim xls_Blatt As Object ' Excel Blatt (Tabelle)
    10. Dim Anzahlzeilen As Integer
    11. xls_Appl = CreateObject("Excel.Application") ' Excel Instanz bilden
    12. xls_Appl.Visible = False
    13. xls_Mappe = xls_Appl.Workbooks.Add() ' Tabelle hinzufügen
    14. xls_Blatt = xls_Mappe.ActiveSheet ' Tabelle auswählen
    15. xls_Blatt.Columns("A:Z").ColumnWidth = 10
    16. xls_Blatt.Columns("A").ColumnWidth = 15
    17. xls_Blatt.Columns("B").ColumnWidth = 7
    18. xls_Blatt.Columns("C").ColumnWidth = 20
    19. xls_Blatt.Columns("D").ColumnWidth = 20
    20. With DataGridView1
    21. For Spalte As Integer = 0 To .Columns.Count - 1 ' Spaltenbezeichungen nach Excel
    22. xls_Blatt.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
    23. xls_Blatt.Cells(1, Spalte + 1).Font.Bold = True
    24. Next
    25. Anzahlzeilen = .Rows.Count
    26. If .AllowUserToAddRows = True Then
    27. Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen
    28. End If
    29. For Zeile As Integer = 0 To Anzahlzeilen - 1 ' Alle Zeilen durchlaufen
    30. For Spalte As Integer = 0 To .Columns.Count - 1 ' Darin alle Spalten durchlaufen
    31. xls_Blatt.Cells(Zeile + 2, Spalte + 1).Value _
    32. = .Rows(Zeile).Cells(Spalte).Value.ToString
    33. Next
    34. Next
    35. End With
    36. xls_Appl.DisplayAlerts = False ' Alle Warnungen unterdrücken
    37. xls_Mappe.Saveas(Application.StartupPath & "\Tabellen\" & fileName & ".xlsx") ' Abspeichern, ggf. Überschreiben
    39. xls_Appl.DisplayAlerts = True ' Warnungen wieder zulassen
    41. xls_Mappe.Close() ' Datei schließen
    42. xls_Appl.Quit() ' Excel schließen
    43. xls_Blatt = Nothing ' Resourcen freigeben
    44. xls_Mappe = Nothing
    45. xls_Appl = Nothing


    Ja.. und jetzt fehlt mir der Button womit ich 5x TextBox.text hinzufügen kann..

    Jo, das Datagridview ist also an dataSet.Tables(0) gebunden, dann füge der auch eine Zeile zu.

    Hihi - geht schlecht, weil dataSet.Tables(0) ist zu dem Zeitpunkt gar nicht mehr zugreifbar.

    Was erhellt, dass der Ansatz ziemlich ungeschickt ist, insbesondere, dass du bei jedem Combobox.SelectedIndexChanged ein neues Dataset erzeugst mit einer neuen DataTable drin.

    Auszug aus obiger Verlinkung, diw ich dir gegeben habe:

    Ich schlage dir jetzt vor, du fügst dir ein typ. DataSet in dein Projekt ein und bildest sämtliche Tabellen analog deiner XLS-Datei darin ab.
    Als nächstes gehst du dann in die Datenquellen und ziehst dir eine Tabelle als DGV in eine Form und schaue, was dabei alles automatisch mit generiert wurde.
    Wichtig ist dabei zu beachten, dass dein neu generiertes DGV mit einer BindingSource an die Tabelle gebunden wurde...

    Wenn du das geschafft hast, dann kannst du deine Extratextboxen bequem an die Bindingsource binden und fertig...

    Tut mir leid.. aber ich bin noch Anfänger.. Das einzige was ich hingekriegt habe ist, dass ich eine zweite Form gemacht habe, wo das gleiche DGV drin ist. Was aaber glaub ich nicht das Ziel ist. :/ Könntest du mir die weiteren Schritte vielleicht etwas genauer erklären ? Wäre sehr nett.

    Danke aufjedenfall bis jetzt schonmal.

    Typisiertes Dataset erstellen :
    Wähle das Menü (Rechtsklick mit der Maus über den Projektordner) Projekt/Neues Element hinzufügen... und dann die Vorlage »DataSet« aus. Aus der Toolbox ziehst du dir dann deine Tabellen in das Dataset. Fügst dann entsprechend deine Spalten mit den richtigen Datentypen in jeder Tabelle ein und benamst alles analog deiner XLS-Datei...
    Danach, wie oben schon geschrieben, die gewünschte Tabelle aus dem Datenquellenfenster auf eine leere Form ziehen...
    Probiere das einmal und mache dann ein Bildchen von deiner Form im Designer mit Komponentenfach...
    Schaue dir auch die Filme von EDR an: die vier Views auf Video

    Jetzt schreibt der mir die Einträge auch in die TextBox also falschrum ich möchte es ja nur rein schreiben können.. und so richtig verstehe ich es auch nicht wie ich jetzt die Tabellen aus Excel da mit reinkriegen soll.. Wieso wird das denn jetzt so kompliziert ?(


    Hab es jetzt so hinbekommen eine .xlsx auszulesen:

    VB.NET-Quellcode

    1. ​ Try
    3. Dim fileName As String = "ExcelFile"
    4. Dim MyConnection As System.Data.OleDb.OleDbConnection
    5. Dim dataSet As System.Data.DataSet
    6. Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
    7. Dim path As String = Application.StartupPath & "\Tabellen\" & fileName & ".xlsx"
    9. If File.Exists(Application.StartupPath & "\Tabellen\" & fileName & ".xlsx") = False Then
    11. My.Computer.FileSystem.CopyFile(Application.StartupPath & "\Tabellen\master_Table.xlsx",
    12. Application.StartupPath & "\Tabellen\" & fileName & ".xlsx", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, FileIO.UICancelOption.DoNothing) ' leere Tabelle mit Header erstellen
    14. End If
    16. MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0;")
    17. MyCommand = New System.Data.OleDb.OleDbDataAdapter("Select * from [Tabelle1$]", MyConnection)
    19. dataSet = New System.Data.DataSet
    20. MyCommand.Fill(dataSet)
    21. TabelleDataGridView.DataSource = dataSet.Tables(0)
    23. MyConnection.Close()
    24. Catch ex As Exception
    25. MsgBox(ex.Message.ToString)
    26. End Try

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

Facebook
Telefonspende