DevExpress の XPCollection でのデータ追加です。
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】
1 2 |
<dx:ASPxButton ID="ASPxButton1" runat="server" Text="県名追加" Theme="RedWine"> </dx:ASPxButton> |
- セッションを生成します。(New DevExpress.Xpo.Session)
- XPO経由でのデータアクセスを生成します。(New DevExpress.Xpo.XPCollection)
第一引数:セッション
第二引数:取得するデータクラス型 - レコードを作成します。(「都道府県めい」「hoge」を作成する)
- レコードを追加します。(Add)
第一引数:追加するレコード - レコードを保存します。(Save)
- グリッドを再描画します。(DataBind)
【生成PG(VB.net)】
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Protected Sub ASPxButton1_Click(sender As Object, e As EventArgs) Handles ASPxButton1.Click Dim mySession As New DevExpress.Xpo.Session '県名一覧取得 Dim myKenmei As New DevExpress.Xpo.XPCollection(mySession, GetType(SAMPLE.TABLEKEN)) '地方名一覧取得 Dim myChihomei As New DevExpress.Xpo.XPCollection(mySession, GetType(SAMPLE.TABLECHIHO)) '県名作成 Dim myAddKen As New SAMPLE.TABLEKEN(mySession) myAddKen.ID = 50 '「北海道」の地方名設定 myAddKen.CHIHO_ID = myChihomei.Object(0) myAddKen.KENMEI_KANA = "hoge" 'レコード追加 myKenmei.Add(myAddKen) 'DB保存 myAddKen.Save() 'グリッド再描画 ASPxGridView1.DataBind() End Sub |
画面を表示すると「県名追加」のボタンがあります。
「県名追加」のボタンをクリックします。
都道府県めい「hoge」が一覧表示されましたので、
VB.net(サーバ側)からXPO経由でデータ追加することが出来ました。
- 投稿タグ
- XpoDataSource