タイトル : 文字が表示できない。 投稿日 : 2016/08/08(Mon) 12:12 投稿者 : 耳たぶ黒
お世話になります。超初心者の耳たぶ黒です。 Win10の元VB2015proで作業しています。 花ちゃんさんがアップしてくださっていた「CSVデータを読み込んでチャートに表示される。」プログラムを利用させてもらっていました。 この前まではチャートを表示できればよかったのでそれで良かったのですが、CSVデータに文字データ書き込む必要がでてきました。文字を書き込むところまでは出来たのですが、CSVデータを読み込んでも、数値しかテーブルに表示されません。JETのプロパティを変えれば済むことなのでしょうか?調べかたが悪いのか?JETPROVIDERについて詳しく書かれている記事が見つけられません。JETよりいい方法がありますか?アドバイスを頂けるとたすかります。 元データ | 読み込んだテーブル 1、現場,山梨県都留郡 | 1、 2、日付,20160805 | 2、 ,20160805 3、 | 3、 4、0,0,0,12:10:15 | 4、0,0,0,12:10:15 5、1,2,2,12:10:16 | 5、1,2,2,12:10:16 読込んでいるプログラム Dim ds As New DataSet Dim columns As Integer Dim rows As Integer Dim FolderPath As String Dim csvFileName As String '「開く」ダイアログを表示 If OpenFileDialogCsv.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 'ピクチャーボックスに選択したファイル名を指定 FolderPath = IO.Path.GetDirectoryName(OpenFileDialogCsv.FileName) csvFileName = IO.Path.GetFileName(OpenFileDialogCsv.FileName) TextBox1.Text = FolderPath & "\" & csvFileName End If Using cn As New System.Data.OleDb.OleDbConnection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FolderPath & ";Extended Properties=""Text;HDR=YES;IMEX=1;FMT=Delimited""" Using da As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM " & csvFileName, cn) da.Fill(ds, "Table1") Chart1.DataSource = ds 'Chart に表示するデータソースを設定 columns = ds.Tables(0).Columns.Count - 1 'データの系列数を取得 rows = ds.Tables(0).Rows.Count End Using End Using |