tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
CSVファイルをADO.NETを使ってDataGridViewに表示(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2010/12/14 21:53
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[グリッド関係][ファイル入出力][データベース]                        *
* キーワード:CSVファイル,データグリッドビューー,データーグリッドビュー,ADO.NET,  *
***********************************************************************************
タイトル : DataGrid の列設定方法
記 事 No : 9815
投 稿 日 : 2010/01/21(Thu) 21:30
元質問者 : 困っています  

CSVファイルを読み込んで、DataGridViewで表示したいのですが、1行当たりのデータ数
(列数)は、データを読み込んだ時点で分かる仕様です。
列数を動的に設定する方法が分からず、困っています。

--------------------------------------------------------------------------------------
と言った質問があったのですが、私の深読みか? 思った通りの答えでない回答で解決
されたのだけど、それは、それでいいとして、ここでは、サンプルを掲載していないので、
簡単な表示方法のサンプルを掲載して見ました。

使用するデーターは、下図のようにExcel か メモ帳で作成して下さい。
必ず、最初は、下図と同じデーターを使って下さい。
作るのが面倒な人は下記よりダウンロードしてお使い下さい。
http://www.hanatyan.sakura.ne.jp/bbs_gif/test.zip
(動作確認後、違うデーターも表示するようにして下さい。)

投 稿 日 : 2010/01/23(Sat) 19:40
投 稿 者 : 花ちゃん

尚、細部の設定・装飾については、下記のサイトに Tips が多く掲載されているので参考に
されたらいいかと思います。

DOBON.NET さんの DataGridView編メニュー
http://dobon.net/vb/dotnet/datagridview/index.html

--------------------------------------------------------------------------------------
Form に DataGridView を下図のように貼り付け、test.csv ファイルを この EXE の
入っているフォルダーに入れて下記コードをコピーして、実行して見て下さい。
 
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, _
                       ByVal e As System.EventArgs) Handles Me.Load
'CSVファイルをADO.NETを使ってDataGridViewに表示
   Using cn As New System.Data.OleDb.OleDbConnection
      'データのあるフォルダー(下記の場合は、プログラム起動フォルダーのパスを指定)
      Dim FolderPath As String = Application.StartupPath()
      'CSV ファイル名 (フルパスで書かないで下さい)
      Dim csvFileName As String = "test.csv"
      'HDR 等の接続文字列のオプションの詳細説明は下記をご覧下さい。
      'http://hanatyan.sakura.ne.jp/vbhlp/dao_002.htm
      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)
         Dim ds As New DataSet
         da.Fill(ds, "Table1")      'テーブル名は任意でOKです。
         DataGridView1.DataSource = ds.Tables("Table1")
      End Using
   End Using
End Sub
End Class


使用データーファイル              上記実行図



 [スレッド一覧へ] [親スレッドへ]