tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 文字が表示できない。
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。