DataSetをバインドするには

 

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

 

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

 

このサンプルは、DropDownListにDataSet(DataTable)をバインドしてアイテムを表示しています。DropDownListからアイテムを選択すると、選択したアイテムが表示されます。

 

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

 

▲  DataSetにDataTableを格納する方法

▲  DropDownListにDataSet(DataTable)をバインドする方法

▲  DropDownListのItemsコレクションのInsert()メソッドの使い方

 

このサンプルは、OleDbConnection, OleDbDataAdapterクラスを使用してAccess/SQL ServerのtblVsDotNetテーブルを読み込んでDataSetに格納します。行22では、tblVsDotNetテーブルからレコードを抽出するSQLを作成しています。行23では、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の名前を指定します。

 

行29-35のWith…End Withでは、DropDownListの各種プロパティを設定してDataSetをバインドしています。行30では、DropDownListのDataSourceプロパティにDataSetを設定しています。DataSetに複数のDataTableが格納されているときは、DataMemberプロパティにDataTableの名前を設定する必要があります。行31-32では、DropDownListのDataValueFieldとDataTextFieldプロパティにDataTable(VsDotNet)の対応するカラム名を設定しています。DataTableのShortNameのカラムには、言語の省略名(VB.NET)が格納されています。LongNameのカラムには、言語のフル名称(Visual Basic .NET)が格納されています。行33では、DropDownListのDataBind()メソッドでDataSet(DataTable)をバインドしています。行34では、DropDownListのItemsコレクションのInsert()メソッドでヘルプ情報のアイテムを挿入しています。Insert()メソッドの引数には、アイテムの挿入場所とListItemを指定します。挿入場所に0を指定すると先頭アイテムとして挿入されます。

 

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 dropVsNet
 30:     .DataSource = ds
 31:     .DataValueField = "ShortName"
 32:     .DataTextField = "LongName"
 33:     .DataBind()
 34:     .Items.Insert(0, New ListItem("--- 言語選択 ---","") )
 35:   End With
 36: End Sub