閲覧総計:5103 (本日:1 昨日:0)
GridViewにはデータを挿入する機能がありません。GridViewにデータを挿入する機
能を↓のページを参考に作成してみました。
http://dotnetfan.org/blogs/dotnetfanblog/articles/632.aspx
ListViewでAccessデータに新たなデータを挿入する際、IDが「オートナンバ型」に
設定されていると、「挿入」ボタンをクリックした時点で「バリアント型ではない変
数に Null 値を代入しようとしました。 」のエラーが出て動きません。
この問題の解決方法を備忘目的で記載しておきます。(3.5) 09/09/13
【機能】GridViewに新設した「挿入」ボタンでAccessデータに新たなデータを挿入する。
【稼働画面】
【原因】
IDは「オートナンバ型」であるのに、自動生成されたInsertCommandは「ID」も更新
しようとしている事がエラー発生の原因。
InsertCommand="INSERT INTO [名簿] ([ID], [名前], [年齢]) VALUES (?, ?, ?)"
<InsertParameters>
<asp:Parameter Name="ID" Type="Int32" />
<asp:Parameter Name="名前" Type="String" />
<asp:Parameter Name="年齢" Type="Int16" />
</InsertParameters>
【解決方法】
InsertCommandが「ID」を更新しようとしている所の情報を削除してやる。
今回の場合は、
nsertCommandの[ID],と?,の2ヶ所を削除
<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 /> <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="更新" /> <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