ステップ 7 ハンズオン :

[アーティクル]
10/20/2021

ASP.NET 2.0 リッチデータコントロールによるデータアクセスページの実装その 3

GridView から利用するビジネスオブジェクト

グローバルナレッジネットワーク株式会社
ナレッジソリューション本部鈴木和久

最終更新日 2005 年 10 月 21 日

目標	ASP.NET 2.0 のリッチデータコントロールを利用したデータアクセスページの実装
使用技術	ASP.NET 2.0 Visual Basic 2005
取り上げるトピックス	ASP.NET 2.0 を利用した DetailsView コントロールの利用方法
前提知識	「10 行でズバリ !! ASP.NET Web フォームによる Web アプリケーション開発 (VB.NET)」
目次	その 1 - GridView コントロールの利用その 2 - DetailsView コントロールの利用その 3 - GridView から利用するビジネスオブジェクト
まとめ	ASP.NET 2.0 ではクラス定義を基にしたオブジェクトをビジネスオブジェクトとしてコントロールのデータソースとして指定できます。そして、コントロールはビジネスオブジェクトが持つメソッドを通してデータの操作ができます。

GridView から利用するビジネスオブジェクト

ここでは、ASP.NET 2.0 GridView コントロールを使用して、ビジネスルールを定義したクラスを基に作成されたオブジェクトが保持するデータを GridView から表示する方法を紹介します。

ソリューションエクスプローラウィンドウ内のプロジェクトを選択し、コンテキストメニューの ASP.NET フォルダの追加から App_Code を指定し、プロジェクトフォルダ内に App_Code フォルダを作成します。

App_Code フォルダはクラスファイルや WSDL および XSD ドキュメントを格納するフォルダとして使用されます。

ビジネスオブジェクトが保持するデータを XML ドキュメントとするために、以下のような XML ドキュメントを作成し、このファイルを App_Data フォルダに配置します。

App_Data フォルダはデータベースファイルとして XML やスキーマファイルが配置されるフォルダです。

Employees.xml ファイルの内容

<?xml version="1.0" standalone="yes"?>
<Employees> 
  <Employee 社員コード="105" 氏名="森上 偉久馬" 部署名="第一営業" /> 
  <Employee 社員コード="107" 氏名="葛城 孝史" 部署名="第二営業"/> 
  <Employee 社員コード="110" 氏名="加藤 泰江" 部署名="第一営業"/> 
  <Employee 社員コード="204" 氏名="川村 匡" 部署名="営業開発" /> 
  <Employee 社員コード="207" 氏名="松沢 誠一" 部署名="営業開発" /> 
  <Employee 社員コード="210" 氏名="成宮 真紀" 部署名="営業一"/> 
  <Employee 社員コード="304" 氏名="山本 雅治" 部署名="営業一"/> 
  <Employee 社員コード="305" 氏名="青木 俊之" 部署名="営業一" /> 
  <Employee 社員コード="307" 氏名="小川 さよ子" 部署名="営業二" /> 
</Employees>

Step2 で作成した XML ファイルを読み込むクラスファイルを定義します。

App_Code フォルダを選択し、コンテキストメニューから [新しい項目の追加] を指定し、[クラス] テンプレートを選択します。ファイル名を Employees.vb とします。

クラステンプレート内に、以下のようなコードを記述します。
このコードはコンストラクタがデータセットを作成し、App_Data フォルダ内に配置した XML ドキュメントをデータセットに読み込みます。

このクラスの GetEmployees メソッドは社員データを格納した DataSet オブジェクトを返します。

Employees クラス定義

Option Strict On 

Imports Microsoft.VisualBasic 
Imports System.Data 
Imports System.Web 

Public Class Employees 

    Const APP_DATA As String = "~/App_Data/Employees.xml" 
    Private ds As DataSet 

    Sub New ( ) 
        ds = New DataSet 
        Dim filePath As String 
        '仮想パスから物理パスへ変換する 
        filePath = HttpContext.Current.Server.MapPath(APP_DATA) 
        ds.ReadXml(filePath) 
    End Sub 

    Public Function GetEmployees( ) As DataSet 
        Return ds 
    End Function 
End Class