Tabelle in DataGridView laden

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Tabelle in DataGridView laden

    Hallo liebes Forum,

    ich habe ein Problem mit meinem Programm... Und zwar habe ich eine Excel Tabelle, die ich in ein Datagridview laden möchte. Den Code habe ich auch so weit, nur komischerweise bekomme ich immer die Fehlermeldung, dass es einen Fehler beim einlesen der Daten gab, obwohl ich den Pfad und alles angegeben habe.

    Hier ist der Code:

    VB.NET-Quellcode

    1. ' Excel-Tabelle anzeigen Dim oDs As System.Data.DataSet
    2. Dim oConn As System.Data.OleDb.OleDbConnection
    3. Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
    5. ' Pfad und Tabellennamen bitte anpassen!
    6. Dim sFile As String = "d:\excelfile.xls"
    7. Dim sTable As String = "Tabelle1"
    9. ' Connection-String für die DB.Verbindung zur Excel-Datei
    10. Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    11. "Data Source=" & sFile & ";" & _
    12. "Extended Properties=Excel 8.0;"
    14. ' Connection herstellen
    15. oConn = New System.Data.OleDb.OleDbConnection(sConn)
    17. ' Excel-Tabelle referenzieren
    18. ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
    19. ' in eckigen Klammern stehen
    20. oAdapter = New System.Data.OleDb.OleDbDataAdapter( _
    21. "SELECT * FROM [" & sTable & "$]", oConn)
    23. ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
    24. oDs = New System.Data.DataSet
    25. Try
    26. oAdapter.Fill(oDs)
    28. ' DataGrid füllen und Daten anzeigen
    29. With DataGrid1
    30. .DataSource = oDs.Tables(0)
    31. .ReadOnly = True
    32. .Refresh()
    33. End With
    34. Catch ex As Exception
    35. MsgBox("Fehler beim Anzeigen der Excel-Daten!")
    36. Finally
    37. ' DB-Verbindung schließen
    38. oConn.Close()
    39. End Try End Sub



    Würde mich über Hilfe freuen.

    friloo schrieb:

    ich habe ein Problem mit meinem Programm...

    Moin,

    naja - Dein Programm ist es nicht, es ist eine 1:1 Kopie aus dem VB-Archiv ;).
    Wie wäre es z.B., wenn Du Dir eine aussagekräftige Fehlermeldung anzeigen lässt?

    Du könntest:

    VB.NET-Quellcode

    1. MsgBox("Fehler beim Anzeigen der Excel-Daten!")


    ..ersetzen mit:

    VB.NET-Quellcode

    1. MessageBox.Show(ex.Message)


    ..und bekämst dann evtl. dies hier angezeigt?:


    LG,
    Bruno

    Halli Hallo,

    danke für die Hilfen... hab es nun einen anderen Code gefunden mit dem es geht... Allerdings habe ich ein Problem....

    Und zwar speicher ich das ganze dann später wieder ab, was ich mit diesem Code mache:

    VB.NET-Quellcode

    1. Private Sub tabelle_speicher()
    2. System.IO.File.Delete(My.Settings.pfad_cust & "/kunden.xls")
    3. Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer
    5. xlApp = New Excel.Application()
    7. xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("Tabelle1")
    8. For i = 0 To DataGrid1.RowCount - 2 For j = 0 To DataGrid1.ColumnCount - 1 xlWorkSheet.Cells(i + 1, j + 1) = _ DataGrid1(j, i).Value.ToString() Next Next
    11. xlWorkSheet.SaveAs(My.Settings.pfad_cust & "/kunden.xls") xlWorkBook.Close() xlApp.Quit()
    12. releaseObject(xlApp)releaseObject(xlWorkBook) releaseObject(xlWorkSheet)
    13. MsgBox("Datei gespeichert unter:" & My.Settings.pfad_cust & "/kunden.xls")
    14. End Sub


    Nun ist es so, dass ich die Datei nicht wieder einlesen kann und mit Excel auch nicht ohne Probleme öffnen kann, da ich die Fehlermeldung bekomme, dass das nicht das erwartete Format ist. Jemand vielleicht eine Idee?

    Tut mir leid, aber irgendwie zerhaut mein Browser das immer wieder... Hab mir aber aufgrund von noch ein paar Problemen überlegt doch eine XML Datei zu nehmen....

    Die Datei lade ich so:

    VB.NET-Quellcode

    1. Dim xmlFile As XmlReader
    2. xmlFile = XmlReader.Create(My.Settings.pfad_cust & "/kunden.xml", New XmlReaderSettings())
    3. Dim ds As New DataSet
    4. ds.ReadXml(xmlFile)
    5. DataGrid1.DataSource = ds.Tables(0)



    Speichern würde ich gerne so:

    VB.NET-Quellcode

    1. Dim dtTest As New System.Data.DataTable("Daten")
    2. Dim dvTest As New DataTable
    3. dvTest = DataGrid1.DataSource
    4. dvTest.WriteXml(My.Settings.pfad_cust & "/kunden.xml", System.Data.XmlWriteMode.WriteSchema)


    Aber er sagt mir, dass die Datei genutzt wird, was auch verständlich ist, weil ich Sie ja oben einlese...

    Könnt ihr mir da helfen?

    also datasetse lädt speichert man einfach mit Dataset.ReadXml/.WriteXml

    wobei bei mir nur typisierte Datasetse vorkommen - gugge vlt. Daten laden, speichern, verarbeiten

    das mit dem Browser löst sich, wennman Bitte VB-Tag benutzen - aber richtig ganz genau durchliest, und sorgfältig befolgt.

Facebook
Telefonspende