#freeze
閲覧総計:&counter();  (本日:&counter(today);  昨日:&counter(yesterday);)

 GridViewのページング機能はとても便利な機能である。
 しかし、1ページへの表示が20行程度の少ない行数で、ページを繰らないと次の情報
が閲覧出来ない事を不便に感じる利用者も多い。1ページに多くの行数の情報を表示し
スクロールで情報を閲覧したい利用者である。
 今回、ドロップダウンリストを用い、利用者がGridViewの1ページに表示される行数
を20, 50, 100, 1000と自分で選べる機能の実装を確認した。
 基本機能に加え、自分が設定した行数をクッキーに覚えさせ、次回画面を開いた時
も、その行数表示になる実装法も確認した。   09/11/29

【方法】
 自動生成されたUpdateCommandの「?」の数は7つなのに対して、自動生成された
Parameter行がは5行と2行不足している事が原因。
 UpdateCommand="UPDATE [名簿] SET [名前] = ?, [年齢] = ? WHERE [ID] = ? AND (([名前] = ?) OR ([名前] IS NULL AND ? IS NULL)) AND (([年齢] = ?) OR ([年齢] IS NULL AND ? IS NULL))"
【目次】↓クリックするとその説明ページに飛べます。
#contents

 <UpdateParameters>
     <asp:Parameter Name="名前" Type="String" />
     <asp:Parameter Name="年齢" Type="Int16" />
     <asp:Parameter Name="original_ID" Type="Int32" />
     <asp:Parameter Name="original_名前" Type="String" />
     <asp:Parameter Name="original_年齢" Type="Int16" />
 </UpdateParameters>
【機能】GridViewの「編集」ボタンでAccessデータを編集する。
【稼働画面】
#ref(PageSize02.JPG)

【解決方法】
 自動生成されたUpdateCommandの「?」の数に合わせて、Parameter行
     <asp:Parameter Name="original_名前" Type="String" />
     <asp:Parameter Name="original_年齢" Type="Int16" />
の2行を追加してやる。

 <UpdateParameters>
     <asp:Parameter Name="名前" Type="String" />
     <asp:Parameter Name="年齢" Type="Int16" />
     <asp:Parameter Name="original_ID" Type="Int32" />
     <asp:Parameter Name="original_名前" Type="String" />
     &color(crimson){<asp:Parameter Name="original_名前" Type="String" />};
     <asp:Parameter Name="original_年齢" Type="Int16" />
     &color(crimson){<asp:Parameter Name="original_年齢" Type="Int16" />};
 </UpdateParameters>

Accessデータベース名:Access01.mdb
テーブル名:名簿
|~フィールド名|~データ型|~フィールドサイズ|
|ID (主キー)|オートナンバー型|長整数型|
|名前|テキスト型|50|
|年齢|数値型|整数型|

※VWD2005、ASP.NET2.0ではAccess2007のDBファイル形式(*.accdb)は利用できない。
DBファイルは「Acces2002-2003形式(*.mdb)」で保存してASP.NETで利用する。

開発環境:VWD2005 + Access2003
サーバ:ASP.NET2.0 + Access2003

【機能】GridViewの「編集」ボタンでAccessデータを編集する。
*GridViewのページサイズを変更する(基本機能) [#z87838d1]

【方法】
#ref(PageSize01.JPG)

【稼働画面】
#ref(GridViewEditOpt.JPG);
 Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
     GridView1.PageSize = DropDownList1.SelectedValue
 End Sub

「編集」機能が正しく動く様になった自動生成全コード
【GridViewEditOpt.aspx】

【PageSize01.aspx】
 <%@ Page Language="VB" %>
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <script runat="server">
 
     'RowCommand():GridViewのボタンクリック時発生イベント:http://www.weblio.jp/content/GridView.RowCommand+%E3%82%A4%E3%83%99%E3%83%B3%E3%83%88
     Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs)
         If e.CommandName = "Insert" Then
             AccessDataSource1.InsertParameters.Clear()
             For Each key As String In Request.Form.AllKeys
                 If key.Contains("$InsertName") Then
                     AccessDataSource1.InsertParameters.Add(New ControlParameter("名前", TypeCode.String, key, "Text"))
                 End If
                 If key.Contains("$InsertAge") Then
                     AccessDataSource1.InsertParameters.Add(New ControlParameter("年齢", TypeCode.String, key, "Text"))
                 End If
             Next
             AccessDataSource1.Insert()
     Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
         GridView1.PageSize = DropDownList1.SelectedValue
     End Sub
 </script>
 
 <html xmlns="http://www.w3.org/1999/xhtml" >
 <head runat="server">
     <title>GridViewのページサイズ変更</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
         GridViewのページサイズ変更 09/11/28<br />
         <br />
         &nbsp;表示件数:<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="True" OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged">
             <asp:ListItem Value="3">3</asp:ListItem>
             <asp:ListItem Value="5">5</asp:ListItem>
             <asp:ListItem Value="7">7</asp:ListItem>
         </asp:DropDownList>件 &nbsp;<br />
         <asp:GridView ID="GridView1" runat="server" AllowPaging="True" AutoGenerateColumns="False"
             DataKeyNames="ID" DataSourceID="AccessDataSource1" EmptyDataText="表示するデータ レコードがありません。"
             PageSize="3">
             <Columns>
                 <asp:BoundField DataField="ID" HeaderText="ID" ReadOnly="True" SortExpression="ID" />
                 <asp:BoundField DataField="名前" HeaderText="名前" SortExpression="名前" />
             </Columns>
         </asp:GridView>
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\MyDB.mdb"
             DeleteCommand="DELETE FROM `名簿` WHERE `ID` = ?" InsertCommand="INSERT INTO `名簿` (`ID`, `名前`) VALUES (?, ?)"
             SelectCommand="SELECT `ID`, `名前` FROM `名簿`" UpdateCommand="UPDATE `名簿` SET `名前` = ? WHERE `ID` = ?">
             <DeleteParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
             </DeleteParameters>
             <InsertParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
                 <asp:Parameter Name="名前" Type="String" />
             </InsertParameters>
             <UpdateParameters>
                 <asp:Parameter Name="名前" Type="String" />
                 <asp:Parameter Name="ID" Type="Int32" />
             </UpdateParameters>
         </asp:AccessDataSource>
         <br />
     
     </div>
     </form>
 </body>
 </html>


*GridViewのページサイズを変更する(クッキー仕様) [#hb22acdb]

【機能】
設定したページサイズをCookieに記録し、このページを次回開いた時に、前回の設定
が反映される様にした。

【方法】
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
     'Cookie操作法で参考にしたページ 08/10/26
     'http://momotchi.net/forums/t/23.aspx
     '最初のPage_Loadの時だけ実行する処理。すなわちPostBuck時は実行しない。
     If Not Page.IsPostBack Then
         'Cookie情報の読込
         Dim cookie As HttpCookie = Request.Cookies("UserInfo")
         'Cookie情報がある場合
         If Not (cookie Is Nothing) Then
             GridView1.PageSize = cookie.Values("pagesize")
             DropDownList1.SelectedValue = cookie.Values("pagesize")
         End If
     End If
 
 End Sub
 
 Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
     GridView1.PageSize = DropDownList1.SelectedValue
     
     'Cookie情報の書込(更新)
     Dim cookie As New HttpCookie("UserInfo")
     cookie.Values("pagesize") = DropDownList1.SelectedValue
     cookie.Expires = DateTime.Now.AddMonths(6) '6ヶ月保存
     Response.Cookies.Add(cookie)
 End Sub

【PageSizeCookie01.aspx】
 <%@ Page Language="VB" %>
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <script runat="server">
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
         'Cookie操作法で参考にしたページ 08/10/26
         'http://momotchi.net/forums/t/23.aspx
         '最初のPage_Loadの時だけ実行する処理。すなわちPostBuck時は実行しない。
         If Not Page.IsPostBack Then
             'Cookie情報の読込
             Dim cookie As HttpCookie = Request.Cookies("UserInfo")
             'Cookie情報がある場合
             If Not (cookie Is Nothing) Then
                 GridView1.PageSize = cookie.Values("pagesize")
                 DropDownList1.SelectedValue = cookie.Values("pagesize")
             End If
         End If
 
     End Sub
 
     Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
         GridView1.PageSize = DropDownList1.SelectedValue
         
         'Cookie情報の書込(更新)
         Dim cookie As New HttpCookie("UserInfo")
         cookie.Values("pagesize") = DropDownList1.SelectedValue
         cookie.Expires = DateTime.Now.AddMonths(6) '6ヶ月保存
         Response.Cookies.Add(cookie)
     End Sub
 
 </script>
 
 <html xmlns="http://www.w3.org/1999/xhtml" >
 <head runat="server">
     <title>無題のページ</title>
     <title>GridViewのページサイズ変更(Cookie対応)</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
         AccessでのGridView編集の稼働確認 09/09/17<br />
         (「オプティミスティック同時実行制御」を設定)<br />
         &nbsp;<br />
         <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" CellPadding="4"
         GridViewのページサイズ変更 09/11/29<br />
         (選択値をクッキー保存する仕様)<br />
         <br />
         &nbsp;ページ表示件数:<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="True" OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged">
             <asp:ListItem Value="3">3</asp:ListItem>
             <asp:ListItem Value="5">5</asp:ListItem>
             <asp:ListItem Value="7">7</asp:ListItem>
         </asp:DropDownList>件 &nbsp;<br />
         <asp:GridView ID="GridView1" runat="server" AllowPaging="True" AutoGenerateColumns="False"
             DataKeyNames="ID" DataSourceID="AccessDataSource1" EmptyDataText="表示するデータ レコードがありません。"
             ForeColor="#333333" GridLines="None">
             <RowStyle BackColor="#E3EAEB" />
             PageSize="3">
             <Columns>
                 <asp:CommandField ButtonType="Button" ShowEditButton="True" />
                 <asp:BoundField DataField="ID" HeaderText="ID" ReadOnly="True" SortExpression="ID" />
                 <asp:BoundField DataField="名前" HeaderText="名前" SortExpression="名前" />
                 <asp:BoundField DataField="年齢" HeaderText="年齢" SortExpression="年齢" />
             </Columns>
             <FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
             <PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />
             <SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
             <HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
             <EditRowStyle BackColor="#7C6F57" />
             <AlternatingRowStyle BackColor="White" />
         </asp:GridView>
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\Access01.mdb"
             DeleteCommand="DELETE FROM [名簿] WHERE [ID] = ? AND (([名前] = ?) OR ([名前] IS NULL AND ? IS NULL)) AND (([年齢] = ?) OR ([年齢] IS NULL AND ? IS NULL))"
             InsertCommand="INSERT INTO [名簿] ([ID], [名前], [年齢]) VALUES (?, ?, ?)"
             SelectCommand="SELECT [ID], [名前], [年齢] FROM [名簿]"
             UpdateCommand="UPDATE [名簿] SET [名前] = ?, [年齢] = ? WHERE [ID] = ? AND (([名前] = ?) OR ([名前] IS NULL AND ? IS NULL)) AND (([年齢] = ?) OR ([年齢] IS NULL AND ? IS NULL))"
             ConflictDetection="CompareAllValues" OldValuesParameterFormatString="original_{0}">
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\MyDB.mdb"
             DeleteCommand="DELETE FROM `名簿` WHERE `ID` = ?" InsertCommand="INSERT INTO `名簿` (`ID`, `名前`) VALUES (?, ?)"
             SelectCommand="SELECT `ID`, `名前` FROM `名簿`" UpdateCommand="UPDATE `名簿` SET `名前` = ? WHERE `ID` = ?">
             <DeleteParameters>
                 <asp:Parameter Name="original_ID" Type="Int32" />
                 <asp:Parameter Name="original_名前" Type="String" />
                 <asp:Parameter Name="original_年齢" Type="Int16" />
                 <asp:Parameter Name="ID" Type="Int32" />
             </DeleteParameters>
             <InsertParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
                 <asp:Parameter Name="名前" Type="String" />
                 <asp:Parameter Name="年齢" Type="Int16" />
             </InsertParameters>
             <UpdateParameters>
                 <asp:Parameter Name="名前" Type="String" />
                 <asp:Parameter Name="年齢" Type="Int16" />
                 <asp:Parameter Name="original_ID" Type="Int32" />
                 <asp:Parameter Name="original_名前" Type="String" />
                 <asp:Parameter Name="original_名前" Type="String" />
                 <asp:Parameter Name="original_年齢" Type="Int16" />
                 <asp:Parameter Name="original_年齢" Type="Int16" />
                 <asp:Parameter Name="ID" Type="Int32" />
             </UpdateParameters>
         </asp:AccessDataSource>
         <br />
     
     </div>
     </form>
 </body>
 </html>



【参考にしたページ】
  該当なし


#comment_nospam
#vote(参考になった[0],ふつう[0],参考にならなかった[0])


トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS