[ツリー表示へ] [ワード検索] [Home]
タイトル ： CSVを読み込みたい 投稿日 ： 2023/02/18(Sat) 14:08 投稿者 ： 初老のVB.NET開発者
| いつも参考にさせていただいています。 早速ですが、質問です。 現在、VB.net2012でSQLServer2018とのデータベースシステムを 作っています。 そこで、CSVファイルからの読み込み機能を開発しているんですが ファイルが読み込めず行き詰っています。 やりたいことは、CSVファイルをデータテーブルに一括に取り込み たいということです コードは、 Private Function GetCSVData(FilePATH As String ) As DataTable Dim cn As New OleDbConneection() Dim cmd As New OleDbCommand() Dim da As New OleDbDataAdapter() Dim CSVData As New DataTable Try Dim CNstr As String = "Provider=Microsoft.JET.OLEDB.4.0;" CNstr &= "Data Source=" & FilePath & ";" CNstr &= "Extended Properties=""Text;" CNstr &= "HDR=YES;""" cn.ConnectionString = CNstr cmd.Connection = cn Dim FileNM As String = Mid(FilePath, InStrRev(FilePath, "\")+1) cmd.CommandText = "SELECT * FROM [" & FileNM & "]" da.SelectCommand = cmd da.Fill(CSVData)←ここでエラーになります。 Return CSVData Catch ex As Exception GerCSVData = Nothing Finaly cn.Dispose() cmd.Dispose() da.Dispose() End Try です。[FileNM]には前処理でダイアログで選択したファイルパスが 入っています。 同じ方法でEXCELのデータを読み込むことには成功しているので 何が原因かわかりません。 どなたか、ご教授いただけると幸いです。 よろしくお願いします。 |
をクリックするとツリー全体を一括表示します） - CSVを読み込みたい - 初老のVB.NET開発者 23/02/18-14:08No.12113