AccessデータのGridViewでの挿入法のバックアップソース(No.3)

閲覧総計：&counter();　　（本日：&counter(today);　　昨日：&counter(yesterday);)

　GridViewにはデータを挿入する機能がありません。GridViewにデータを挿入する機
能を↓のページを参考に作成してみました。
http://dotnetfan.org/blogs/dotnetfanblog/articles/632.aspx


　ListViewでAccessデータに新たなデータを挿入する際、IDが「オートナンバ型」に
設定されていると、「挿入」ボタンをクリックした時点で「バリアント型ではない変
数に Null 値を代入しようとしました。 」のエラーが出て動きません。
　この問題の解決方法を備忘目的で記載しておきます。(3.5)　　09/09/13

【機能】GridViewに新設した「挿入」ボタンでAccessデータに新たなデータを挿入する。


【稼働画面】
#ref(AccessGridViewInsert.JPG);




【原因】
　IDは「オートナンバ型」であるのに、自動生成されたInsertCommandは「ID」も更新
しようとしている事がエラー発生の原因。
InsertCommand="INSERT INTO [名簿] (&color(crimson){[ID],}; [名前], [年齢]) VALUES (&color(crimson){?,}; ?, ?)" 

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

【解決方法】
　InsertCommandが「ID」を更新しようとしている所の情報を削除してやる。
今回の場合は、
　nsertCommandの[ID],と?,の２ヶ所を削除
　<asp:Parameter Name="ID" Type="Int32" />の行を削除
でエラーは解消し、「挿入」機能が正しく動作する様になった。

InsertCommand="INSERT INTO [名簿] ([名前], [年齢]) VALUES (?, ?)" 

　<InsertParameters>
　　　<asp:Parameter Name="名前" Type="String" />
　　　<asp:Parameter Name="年齢" Type="Int16" />
　</InsertParameters>

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

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

開発環境：VWD2008
サーバ：Windows Server2003 + .NET Framework3.5



「挿入」機能が正しく動く様になった自動生成全コード
【ListViewAdd.aspx】[3.5]
 <%@ 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 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()
         End If
     End Sub
 </script>
 
 <html xmlns="http://www.w3.org/1999/xhtml" >
 <head runat="server">
     <title>無題のページ</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
         AccessでのGridView挿入の稼働確認 09/09/16<br />
         &nbsp;
         <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="ID"
             DataSourceID="AccessDataSource1" EmptyDataText="表示するデータ レコードがありません。" ShowFooter="True" OnRowCommand="GridView1_RowCommand">
             <Columns>
                 <asp:TemplateField ShowHeader="False">
                     <EditItemTemplate>
                         <asp:Button ID="Button1" runat="server" CausesValidation="True" CommandName="Update"
                             Text="更新" />&nbsp;<asp:Button ID="Button2" runat="server" CausesValidation="False"
                                 CommandName="Cancel" Text="キャンセル" />
                     </EditItemTemplate>
                     <FooterTemplate>
                         <asp:Button ID="Button3" runat="server" CommandName="Insert" Text="挿入" />
                     </FooterTemplate>
                     <ItemTemplate>
                         <asp:Button ID="Button1" runat="server" CausesValidation="False" CommandName="Edit"
                             Text="編集" />
                     </ItemTemplate>
                 </asp:TemplateField>
                 <asp:BoundField DataField="ID" HeaderText="ID" ReadOnly="True" SortExpression="ID" />
                 <asp:TemplateField HeaderText="名前" SortExpression="名前">
                     <EditItemTemplate>
                         <asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("名前") %>'></asp:TextBox>
                     </EditItemTemplate>
                     <FooterTemplate>
                         <asp:TextBox ID="InsertName" runat="server" Width="80px"></asp:TextBox>
                     </FooterTemplate>
                     <ItemTemplate>
                         <asp:Label ID="Label1" runat="server" Text='<%# Bind("名前") %>'></asp:Label>
                     </ItemTemplate>
                 </asp:TemplateField>
                 <asp:TemplateField HeaderText="年齢" SortExpression="年齢">
                     <EditItemTemplate>
                         <asp:TextBox ID="TextBox2" runat="server" Text='<%# Bind("年齢") %>'></asp:TextBox>
                     </EditItemTemplate>
                     <FooterTemplate>
                         <asp:TextBox ID="InsertAge" runat="server" Width="30px"></asp:TextBox>
                     </FooterTemplate>
                     <ItemTemplate>
                         <asp:Label ID="Label2" runat="server" Text='<%# Bind("年齢") %>'></asp:Label>
                     </ItemTemplate>
                 </asp:TemplateField>
             </Columns>
         </asp:GridView>
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\Access01.mdb"
             DeleteCommand="DELETE FROM `名簿` WHERE `ID` = ?"
             InsertCommand="INSERT INTO `名簿` (`名前`, `年齢`) VALUES (?, ?)"
             SelectCommand="SELECT `ID`, `名前`, `年齢` FROM `名簿`"
             UpdateCommand="UPDATE `名簿` SET `名前` = ?, `年齢` = ? WHERE `ID` = ?">
             <DeleteParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
             </DeleteParameters>
             <InsertParameters>
                 <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="ID" Type="Int32" />
             </UpdateParameters>
         </asp:AccessDataSource>
         <br />
     
     </div>
     </form>
 </body>
 </html>


【参考にしたページ】
1.AccsessデータにListViewで挿入できない　09/09/13
http://social.msdn.microsoft.com/Forums/ja-JP/aspnetja/thread/c5706835-7069-4073-b3ca-791767f73432


#comment_nospam
#vote(参考になった[0],ふつう[0],参考にならなかった[0])
AccessデータのGridViewでの挿入法 のバックアップソース(No.3)

AccessデータのGridViewでの挿入法のバックアップソース(No.3)
