サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2013/02/12 17:22
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[グリッド関係][ファイル入出力][データベース] *
* キーワード：mdbファイル,Access ファイル,データー グリッドビュー,ADO.NET *
***********************************************************************************
投 稿 日 ： 2010/02/13
投 稿 者 ： 花ちゃん
ADO.NETを使ってDataGridViewに表示(VB.NET) 第３段、今度は、Access の mdb ファイルを
を使っての読み込み表示の設定方法を掲載しました。
使用するデーターは、下図のようにAccess で作成し、Access 2002-2003 ファイル形式で下記の
テーブル名とファイル名で保存して下さい。
必ず、最初は、下図と同じデーター(ファイル名・テーブル名も含めて)を使って下さい。
作るのが面倒な人は下記よりダウンロードしてお使い下さい。
http://www.hanatyan.sakura.ne.jp/bbs_gif/Testmdb.zip
(動作確認後、違うデーターも表示するようにして試して見て下さい。)
尚、細部の設定・装飾については、当サイトの DataGridView(174)に Tips が色々掲載しているので
参考にして下さい。
http://www.hanatyan.sakura.ne.jp/dotnet/index.html
--------------------------------------------------------------------------------------
Form に DataGridView を下図のように貼り付け、Test.mdb ファイルを この EXE の
入っているフォルダーに入れて下記コードをコピーして、実行して見て下さい。
'===================================================================================================
'動作確認：WindowsVista VB2008(EE) Framework 3.5 / WindowsXP VB2005(EE) Framework 2.0
'[Option Compare Text] [Option Explicit On] [Option Infer On] [Option Strict On]で設定
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Using cn As New System.Data.OleDb.OleDbConnection
Using cm As New System.Data.OleDb.OleDbCommand
Using da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
'EXE と同じフォルダーにデータも入れておく
Dim FileName As String = System.IO.Path.Combine(Application.StartupPath(), "Test.mdb")
Dim TableName As String = "sample" '指定のテーブル名(上記ファイル内に存在する事)
'接続文字列については、WEB上で、[接続文字列]をキーに検索して見て下さい。
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FileName & ";" 'パスワード等があれば続けて記入
'コネクションの設定
cm.Connection = cn
'データソースで実行するSQL文の設定
cm.CommandText = "SELECT * from " & TableName
'データソース内のレコードを選択するためのSQLコマンドの設定
da.SelectCommand = cm
'データを取得する
da.Fill(ds, TableName)
'データグリッドに表示するデータソースを設定
DataGridView1.DataSource = ds
'グリッドを表示するための、DataSource 内のリストを設定
DataGridView1.DataMember = TableName
'データソースへの接続を閉る
End Using
End Using
End Using
End Sub
End Class
※ [Visual Basic - 教えて！goo] のサイト等に同じサンプルが投稿されていますが、このサンプルを
無断掲載されたもので、当サイトのこのサンプルがオリジナルです。
('接続文字列については、WEB上で、[接続文字列]をキーに検索して見て下さい。のコメント迄そのまま)
mdbファイル 上記実行図
 |
