DevExpress の XPView でのデータ取得（カラム別名）

DevExpress の XPView でのデータ取得（カラム別名）です。
対象とするカラム名が長い時に便利です。
※リレーション先の場合は、「.」でカラムまで指示する必要があるので

VB.net（サーバ側）からXPO経由でデータ取得する手順です。

現状の画面デザインはこのようになっています。

ボタンを配置してVB.net（サーバ側）で地方名、県名（カラム別名）の一覧を取得します。

【事前準備】
・DBのテーブルを用意します。
・「DevExpress ORM Data Model」を用意します。
「DevExpress ORM Data Model」作成手順は、過去ブログの「DevExpress の XPO のサンプル作成手順」を参照して下さい。

別画面でリンク表示

＜テーブル名：SAMPLE.TABLECHIHO＞

＜テーブル名：SAMPLE.TABLEKEN＞

＜ORM Data Model:SAMPLE.TABLECHIHO、SAMPLE.TABLEKEN＞

＜VB.net（サーバ側）で地方名の一覧を取得＞

・画面に「県名取得」のボタンを用意します。

【生成PG】

<dx:ASPxButton ID="ASPxButton1" runat="server" Text="県名取得" Theme="RedWine">
</dx:ASPxButton>

1 2	<dx:ASPxButton ID="ASPxButton1" runat="server" Text="県名取得" Theme="RedWine"> </dx:ASPxButton>

・セッションを生成します。（New DevExpress.Xpo.Session）

・取得条件を定義します。（「ID」が「24〜30」のデータのみ対象とする）
・XPO経由でのデータアクセスを生成します。（New DevExpress.Xpo.XPView）
第一引数：セッション
第二引数：取得するデータクラス型
第三引数：取得するデータカラム名（リレーション先は「.」で指示する）
第四引数：取得するデータ条件（「Parse」を使用して条件を定義する）
・プロパティを定義します。（AddProperty）
第一引数：別名（今回は「CHIHO_ID.CHIHOMEI」→「hoge」に変更する）
第二引数：対象カラム名
→　「myList = myList & myChihomei.Item(ii).Item(“hoge”)」に影響している

【生成PG（VB.net）】

Protected Sub ASPxButton1_Click(sender As Object, e As EventArgs) Handles ASPxButton1.Click
    Dim mySession As New DevExpress.Xpo.Session
    '取得条件
    Dim myCriteria As String = String.Empty
    myCriteria = "[ID] >= 24 And [ID] <= 30"

    '県名一覧取得
    Dim myChihomei As New DevExpress.Xpo.XPView(mySession, GetType(SAMPLE.TABLEKEN), "ID;CHIHO_ID.CHIHOMEI;KENMEI_KANN", DevExpress.Data.Filtering.CriteriaOperator.Parse(myCriteria))

    'ソート（昇順）
    myChihomei.AddProperty("ID", "ID", False, False, DevExpress.Xpo.SortDirection.Ascending)
    'カラム別名
    myChihomei.AddProperty("hoge", "CHIHO_ID.CHIHOMEI")

    Dim ii As Integer = 0
    Dim myList As String = String.Empty
    For ii = 0 To myChihomei.Count - 1
        'ID追加
        myList = myList & myChihomei.Item(ii).Item("ID").ToString
        'セパレータ追加
        myList = myList & ":"
        '地方名追加
        myList = myList & myChihomei.Item(ii).Item("hoge")
        'セパレータ追加
        myList = myList & ":"
        '県名追加
        myList = myList & myChihomei.Item(ii).Item("KENMEI_KANN")
        '改行追加
        myList = myList & "¥n"
    Next
    'メッセージボックス表示
    ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Key", "alert('" & myList & "');", True)
End Sub

Protected Sub ASPxButton1_Click(sender As Object, e As EventArgs) Handles ASPxButton1.Click

Dim mySession As New DevExpress.Xpo.Session

'取得条件

Dim myCriteria As String = String.Empty

myCriteria = "[ID] >= 24 And [ID] <= 30"

'県名一覧取得

Dim myChihomei As New DevExpress.Xpo.XPView(mySession, GetType(SAMPLE.TABLEKEN), "ID;CHIHO_ID.CHIHOMEI;KENMEI_KANN", DevExpress.Data.Filtering.CriteriaOperator.Parse(myCriteria))

'ソート（昇順）

myChihomei.AddProperty("ID", "ID", False, False, DevExpress.Xpo.SortDirection.Ascending)

'カラム別名

myChihomei.AddProperty("hoge", "CHIHO_ID.CHIHOMEI")

Dim ii As Integer = 0

Dim myList As String = String.Empty

For ii = 0 To myChihomei.Count - 1

'ID追加

myList = myList & myChihomei.Item(ii).Item("ID").ToString

'セパレータ追加

myList = myList & ":"

'地方名追加

myList = myList & myChihomei.Item(ii).Item("hoge")

'セパレータ追加

myList = myList & ":"

'県名追加

myList = myList & myChihomei.Item(ii).Item("KENMEI_KANN")

'改行追加

myList = myList & "¥n"

'メッセージボックス表示

ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Key", "alert('" & myList & "');", True)

End Sub

画面を表示すると「県名取得」のボタンがあります。

「県名取得」のボタンをクリックします。

地方名、県名の一覧が表示されましたので、
VB.net（サーバ側）からXPO経由でデータ取得（カラム別名）することが出来ました。

MENU

最近の投稿

人気記事

MENU

DevExpress の XPView でのデータ取得（カラム別名）

関連記事はこちら:

最近の投稿

人気記事