VB.net ファイルからdatatableに入れた時に文字列がdecimalにされてしまう。

Question

お世話になります。
以下の件で困っています。

文字列と数値(doble）が混在したcsvファイルを
vb.netのデータテーブルに読み込むために、以下のfunctionを使いました。数値のところは問題なく読めるのですが、文字列がdecimal型に変換されてしまったりして、
困っています。S1が１に変わっている等々。
読み込み時に、型を間違えて読み込まれる場合があるみたいなんですが、回避策が思いつきません。どうすればいいのでしょうか

Public Function ConvertCsvtoDataTable(ByVal csvDir As String, ByVal csvFileName As String) As DataTable

    Dim conString As String = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        + csvDir + ";Extended Properties=""text;HDR=Yes;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)

    Dim dt As New DataTable

    da.Fill(dt)

    Return dt

End Function

Answer 1

多分型を推測するために読み込んだ行ではそうなっているんでしょう
Schema.iniを使うようにしましょう
Schema.ini File (Text File Driver)
schema.ini ファイルを使って CSV 接続 フィールドの型を指定

Comments

[HidehiroOgata]

ありがとうございます。
SChema.iniファイルを、読み込むファイルと同じフォルダーにおかなきゃいけないんですね。schema.iniの中で読み込むファイルのファイル名を指定する。毎回読み込むファイル名とファイルの場所が違うので、読み込む前に自動でschemaを作って読み込むフォルダーにコピーするという作戦でやってみます。