へなちょこフリーエンジニアの備忘録

Visual Studio 2010

Dim filePath As String = "csvファイルがあるディレクトリパス(ファイル名を含まない)"
Dim fileName As String = "csvファイル名"
Dim Con As New OleDb.OleDbConnection
Dim Command As New OleDb.OleDbCommand()
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & filePath & "\;" & _
"Extended Properties=""Text;HDR=YES;FMT=Delimited"""

Dim oDataTable As DataTable = New DataTable

Try

Dim oDataAdapter As New OleDb.OleDbDataAdapter
Con.ConnectionString = ConnectionString
Command.Connection = Con
Command.CommandText = "SELECT * FROM " & fileName

oDataAdapter.SelectCommand = Command
oDataAdapter.Fill(oDataTable)

Catch ex As Exception
'エラー処理
Finally
If Not Command Is Nothing Then
Command.Dispose()
End If
If Not Con Is Nothing Then
Con.Dispose()
End If
End Try

Return oDataTable


※データテーブルでは、csvの1行目の値が項目名となる