【エラーが特定できません】CSVデータをデータテーブルに文字列として取り込みたい

Question

【CSVデータをデータテーブルに文字列として取り込みたい】という質問を前回し、iniファイルを使えば出来そうなことを確認したので、今回その方法を試してみました。

テキストファイルの名前がその都度変わるので、1つのiniファイルを埋め込まれたリソースとして持っておき、それを毎回ローカルにコピーし、CSVデータも名前を固定の物に変えてコピーしたものを同じディレクトリに入れています。

ファイル作成、コピーまではうまくいくのですが、データテーブルに入れようとするところで【エラーが特定できません】と落ちてしまいます・・・分かる方がいましたらよろしくお願いします。

Private Function Fun_CopyFile() As String

        '現在のコードを実行しているAssemblyを取得
        Dim myAssembly As System.Reflection.Assembly = _
            System.Reflection.Assembly.GetExecutingAssembly()
        '指定されたマニフェストリソースを読み込む
        Dim sr As New System.IO.StreamReader( _
            myAssembly.GetManifestResourceStream("STR.schema.ini"), _
                System.Text.Encoding.GetEncoding("shift-jis"))
        '内容を読み込む

        Dim s As String = sr.ReadToEnd()
        '後始末
        sr.Close()


        '書込むファイルを指定する（2番目の引数をfalseにすることで新規ファイルを作成する）
        Dim iniFileName As String = "schema.ini"
        Dim csvFileName As String = "STR.csv"
        Dim Directory As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim iniFilePath As String = Directory & "\" & iniFileName
        Dim csvFilePath As String = Directory & "\" & csvFileName

        System.IO.File.Copy(Me.IEdt_CSVファイル.Text, csvFilePath, True)
        Dim sw As StreamWriter = New StreamWriter(iniFilePath, False, System.Text.Encoding.GetEncoding("shift-jis"))

        Try
            'ファイルに書込む
            sw.Write(s)
            sw.Flush()
            sw.Close()

        Catch ex As Exception

        End Try

         Return csvFilePath

    End Function

 Public Shared Function ToCsvIn(ByVal Str_FilePath As String) As DataTable

        'CSVファイルのあるフォルダ
        Dim csvDir As String = System.IO.Path.GetDirectoryName(Str_FilePath)
        'CSVファイルの名前
        Dim csvFileName As String = System.IO.Path.GetFileName(Str_FilePath)

        '接続文字列
        Dim conString As String = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          + csvDir + ";Extended Properties=""text;HDR=No;FMT=Delimited"""
        Dim con As New System.Data.OleDb.OleDbConnection(conString)

        Dim commText As String = "SELECT * FROM [" + csvFileName + "]"
        Dim da As New System.Data.OleDb.OleDbDataAdapter(commText, con)

        'DataTableに格納する
        Dim dt As New DataTable

        Try
            da.Fill(dt)   '★ここでエラーが特定できませんでおちます
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try

       Return dt

    End Function

[STR.csv]
Format=CSVDelimited
ColNameHeader=false
MaxScanRows=0
CharacterSet=Shift_JIS
textacterSet=932
Col1=a1 text
Col2=a2 text
Col3=a3 text
.
.
.
というようなiniファイルです

Answer 1

Schema.ini の記述が間違っています。以下の記述がありますが、

[STR.csv]
...省略
CharacterSet=Shift_JIS
textacterSet=932
...省略

"CharacterSet=" の値は"Shift_JIS"ではなくコードページである932をセットしてください。
また、"textacterSet"と言うエントリは存在しません。結果として以下のようになります。

[STR.csv]
Format=CSVDelimited
ColNameHeader=false
MaxScanRows=0
CharacterSet=932
Col1=a1 text
Col2=a2 text
Col3=a3 text
.
.
.

Comments

[hazuki]

ありがとうございます！エラーが出ずにできました！

[dodox86]

ご報告ありがとうございます。よかったです。