CSV Dateien einlesen über OLE

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von MemoAnMichSelbst.

    CSV Dateien einlesen über OLE

    HI,

    ich versuche mich gerade daran, mehrere CSV-Dateien über OLE einzulesen. Ich stehe aber gerade auf dem Schlauch, wo ich die Codepage mitgeben kann. Hat hier schon jemand mit gearbeitet und weiß das?

    Ich hab zu Testzwecken aktuell nur ne Form mit nem Button1 und nem DatagridView1.
    Folgendes ist der Quellcode. Hab mal versucht ihn einigermaßen verständlich zu kommentieren.

    VB.NET-Quellcode

    1. ​
    2. Imports System.IO
    3. Imports System.Data.Common
    4. Imports System.Data.OleDb
    6. Public Class Form1
    7. Private _Connection As DbConnection
    8. Private _DataTable As DataTable
    9. Private _ProviderFactory As DbProviderFactory
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Dim fbd As New FolderBrowserDialog
    13. Dim dataPath = ""
    14. If Not fbd.ShowDialog = DialogResult.OK Then Return
    15. dataPath = fbd.SelectedPath
    18. 'Aufbau der Verbindung zu den Dateien im Ordner
    19. _ProviderFactory = OleDbFactory.Instance
    20. _Connection = OleDbFactory.Instance.CreateConnection
    21. _Connection.ConnectionString = String.Concat("Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=""text;HDR=Yes;FMT=Delimited""; Data Source='", dataPath, "';")
    22. _Connection.Open()
    24. 'Neue DataTabel erstellen für die Daten des Filters. Nach dem Laden wird nur mit den DataTables gearbeitet!
    25. _DataTable = New DataTable
    26. Using adapter = _ProviderFactory.CreateDataAdapter, command = _ProviderFactory.CreateCommand
    27. adapter.SelectCommand = command
    28. command.Connection = _Connection
    29. 'Zugriff auf die Daten von M_Stueli.csv
    30. command.CommandText = "SELECT * FROM [M_Stueli#CSV]"
    31. 'Füllen der Daten des Selectcommands in die Data-Table
    32. adapter.Fill(_DataTable)
    33. End Using
    35. 'Anzeigen aller Daten des Selectcommands im Datagrid (rein zu Testzwecken)
    36. DataGridView1.DataSource = _DataTable
    37. 'Hier sehe ich dann, dass die Codepage nicht passt.
    40. _Connection.Close()
    41. End Sub
    45. End Class
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Moin,

    wenn du CSVs über Oledb einlesen willst, muss im Verzeichnis der CSV eine Schema.ini Datei liegen.

    Inhalt:

    VB.NET-Quellcode

    1. Dim SB_Schema As New StringBuilder
    2. With SB_Schema
    3. .AppendLine("[" & "Vollständiger Pfad zur CSV Datei" & "]")
    4. .AppendLine("Format=Delimited(;)")
    5. .AppendLine("ColNameHeader=False")
    6. End With


    Müsste bei dir möglicherweise angepasst werden.

    Mein Connection String dazu wäre ...

    Quellcode

    1. ​"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "Vollständiger Pfad ohne Dateiname" & ";Extended Properties=""Text;HDR=Yes;FMT=Delimited"";"


    ... und das Select SQL Command ...

    Quellcode

    1. ​" FROM " & "[" & "Datei Name ohne Pfad" & "]"

    ich würde es auch wie BlueLagoon mit einer schema.ini machen.
    du kannst aber versuchen CharacterSet einzutragen

    VB.NET-Quellcode

    1. _Connection.ConnectionString = String.Concat("Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=""text;characterset=65001;HDR=Yes;FMT=Delimited""; Data Source='", dataPath, "';")

    mit schema.ini

    VB.NET-Quellcode

    1. scon = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\TestFolder;Extended Properties='Text;HDR=Yes;Schema=schema.ini;';"


    Hi,

    danke. Soweit klar. Das mit der INI wusste ich nicht.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

Facebook
Telefonspende