サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2010/12/14 21:53
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[グリッド関係][ファイル入出力][データベース] *
* キーワード：CSVファイル,データグリッドビューー,データーグリッドビュー,ADO.NET, *
***********************************************************************************
タイトル ： DataGrid の列設定方法
記 事 No ： 9815
投 稿 日 ： 2010/01/21(Thu) 21:30
元質問者 ： 困っています
CSVファイルを読み込んで、DataGridViewで表示したいのですが、１行当たりのデータ数
（列数）は、データを読み込んだ時点で分かる仕様です。
列数を動的に設定する方法が分からず、困っています。
--------------------------------------------------------------------------------------
と言った質問があったのですが、私の深読みか？ 思った通りの答えでない回答で解決
されたのだけど、それは、それでいいとして、ここでは、サンプルを掲載していないので、
簡単な表示方法のサンプルを掲載して見ました。
使用するデーターは、下図のように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
使用データーファイル 上記実行図
 |
