DataSetをバインドするには

 

●  ListBoxにDataSetをバインドするサンプル

 

図 ListBoxにDataSetをバインドするサンプル

 

このサンプルは、ListBoxにDataSetをバインドしてアイテムを表示しています。ListBoxからアイテムを選択してOKボタンをクリックすると選択したアイテムが表示されます。

 

このサンプルでは、以下のノウハウを習得することができます。

 

▲  DataSetにDataTableを格納する方法

▲  ListBoxにDataSetをバインドする方法

 

このサンプルは、OleDbConnection, OleDbDataAdapterクラスを使用してAccess/SQL ServerのtblVsDotNetテーブルを読み込んでDataSetに格納します。行22では、tblVsDotNetテーブルからレコードを抽出するSQLを作成しています。行24では、Web.configに登録されているデータベースの接続情報を取得しています。Web.configとデータベースの接続情報については、第３章で詳しく解説します。行24では、OleDbConnectionのインスタンスを生成しています。OleDbConnectionの引数には、データベースの接続情報を指定します。行25では、OleDbDataAdapterのインスタンスを生成しています。OleDbDataAdapterの引数には、SQLコマンドとOleDbConnectionを指定します。行26では、DataSetのインスタンスを生成しています。ここで生成したDataSetは、OleDbDataAdapterのFill()メソッドで使用します。

 

行28では、OleDbDataAdapterのFill()メソッドでSQLのSelectステートメントを実行してtblVsDotNetテーブルのレコードを抽出してDataSetに格納します。Fill()メソッドの引数には、DataSetとDataTable(VsDotNet)の名前を指定します。

 

行29-34のWith…End Withでは、ListBoxの各種プロパティを設定してDataSetをバインドしています。行30では、ListBoxのDataSourceプロパティにDataSetを設定しています。行31-32では、ListBoxのDataValueFieldとDataTextFieldプロパティにDataTable(VsDotNet)の対応するカラム名を設定しています。DataTableのShortNameのカラムには、言語の略称(VB.NET)が格納されています。LongNameには、言語のフル名称(Visual Basic .NET)が格納されています。行33では、ListBoxのDataBind()メソッドでDataSet(DataTable)をバインドしています。

 

21: Sub BindData()
 22:   Dim strSQL as String = "Select * From tblVsDotNet"
 23:   Dim strCon as String = ConfigurationSettings.AppSettings("conStringNw")
 24:   Dim con As OleDbConnection = New OleDbConnection(strCon)
 25:   Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSQL, con)
 26:   Dim ds As DataSet = New DataSet()
 28:   da.Fill(ds, "VsDotNet")
 29:   With lstVsNet
 30:     .DataSource = ds
 31:     .DataValueField = "ShortName"
 32:     .DataTextField = "LongName"
 33:     .DataBind()
 34:   End With
 35: End Sub