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

　GridViewにはデータを挿入する機能がありません。Access DB環境で、GridView
にデータを挿入する機能を↓のページを参考に作成してみました。
http://dotnetfan.org/blogs/dotnetfanblog/articles/632.aspx
　また、ASP.NETが自動生成したコードは、データテーブルのIDが「オートナンバ型」
に設定されていると、「挿入」ボタンをクリックした時点で「バリアント型ではない
変数に Null 値を代入しようとしました。 」のエラーが出て動かない不具合があり
ます。この問題の解決方法も備忘目的で記載しておきます。　　09/09/17
　Accessデータを「キーワード検索」し、結果をGridViewに表示した。　09/09/20

※「オプティミスティック同時実行制御」を設定した場合でも、同様の操作で「挿入」
機能を実現できます。
↓参考にしたページ：「SqlDataSourceに条件検索を追加」
http://www.cocoaliz.com/asp.net/index/22/

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

【機能】GridViewに新設した「挿入」ボタンでAccessデータに新たなデータを挿入する。
【機能】検索キーワードを含む情報のみ抽出し、結果をGridViewに表示する。
　検索キーワード(TextBox)が空なら全件表示、検索キーワードが入力されていれば
検索。

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

Accessデータベース名：MyDB.mdb
テーブル名：名簿
Accessデータベース名：udon.mdb
テーブル名：udons_sampleData
|~フィールド名|~データ型|~フィールドサイズ|
|ID (主キー)|オートナンバー型|長整数型|
|名前|テキスト型|50|
|年齢|数値型|整数型|
|品名|テキスト型|100|
|セット内容|テキスト型|255|
|価格|数値型|整数型|

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

コントロールの設定値
|~コントロール|~プロパティ|~値|~コメント|
|編集フィールド|ButtonType|Button|TemplateFieldに変換する前に設定|

~
|~テンプレート|~コントロール|~プロパティ|~値|~コメント|
|Column[0] Footer|Button|CommandName|Insert||
|~|~|Text|挿入||
|Column[2] Footer|TextBox|(ID)|InsertName||
|~|~|Width|80||
|Column[3] Footer|TextBox|(ID)|InsertAge||
|~|~|Width|30||


【自動生成コードの不具合】
　データテーブルのIDが「オートナンバ型」に設定されていると、「挿入」ボタンを
クリックした時点で「バリアント型ではない変数に Null 値を代入しようとしました。」のエラーが出て動かない。

【原因】
　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>


「挿入」機能が正しく動く様になった自動生成全コード
【GridViewInsert.aspx】
「キーワード検索」機能稼働ページの全コード
【SearchGridView.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 Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
         If (TextBox1.Text <> "") Then
             'TextBoxが空でないならば、条件検索を行う。
             'Selectパラメータをクリア
             AccessDataSource1.SelectParameters.Clear()
             'Selectパラメータをセット（KeyWordの頭に@は必要ないです。）
             'Selectパラメータをセット（変数KeyWordの頭に@は必要ないです。）
             AccessDataSource1.SelectParameters.Add("KeyWord", "%" & TextBox1.Text & "%")
             'SelectCommandをセットし、実行
             AccessDataSource1.SelectCommand = "SELECT `ID`, `品名`, `セット内容`, `価格` FROM `udons_sampleData` WHERE (セット内容 LIKE @KeyWord)"
         Else
             'TextBoxが空ならば、全件表示
             'Selectパラメータをクリア
             AccessDataSource1.SelectParameters.Clear()
             'SelectCommandをセットし、実行
             AccessDataSource1.SelectCommand = "SELECT `ID`, `品名`, `セット内容`, `価格` FROM `udons_sampleData`"
         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) 09/09/20<br />
         「検索キーワード」が「セット内容」に含まれるメニュを表示<br />
         <br />
         検索キーワード：<asp:TextBox ID="TextBox1" runat="server" Width="180px"></asp:TextBox>
         <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="検索" /><br />
         <br />
         <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="ID"
             DataSourceID="AccessDataSource1" EmptyDataText="表示するデータ レコードがありません。">
             <Columns>
                 <asp:BoundField DataField="ID" HeaderText="ID" ReadOnly="True" SortExpression="ID" />
                 <asp:BoundField DataField="品名" HeaderText="品名" SortExpression="品名" />
                 <asp:BoundField DataField="セット内容" HeaderText="セット内容" SortExpression="セット内容" />
                 <asp:BoundField DataField="価格" HeaderText="価格" SortExpression="価格" />
             </Columns>
         </asp:GridView>
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\udon.mdb"
             DeleteCommand="DELETE FROM `udons_sampleData` WHERE `ID` = ?"
             InsertCommand="INSERT INTO `udons_sampleData` (`ID`, `品名`, `セット内容`, `価格`) VALUES (?, ?, ?, ?)"
             SelectCommand="SELECT `ID`, `品名`, `セット内容`, `価格` FROM `udons_sampleData`"
             UpdateCommand="UPDATE `udons_sampleData` SET `品名` = ?, `セット内容` = ?, `価格` = ? WHERE `ID` = ?">
             <DeleteParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
             </DeleteParameters>
             <InsertParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
                 <asp:Parameter Name="品名" Type="String" />
                 <asp:Parameter Name="セット内容" Type="String" />
                 <asp:Parameter Name="価格" Type="Int16" />
             </InsertParameters>
             <UpdateParameters>
                 <asp:Parameter Name="品名" Type="String" />
                 <asp:Parameter Name="セット内容" Type="String" />
                 <asp:Parameter Name="価格" Type="Int16" />
                 <asp:Parameter Name="ID" Type="Int32" />
             </UpdateParameters>
         </asp:AccessDataSource>
     
     </div>
     </form>
 </body>
 </html>


【参考にしたページ】
1.GridViewからデータを追加する　06/03/29
http://dotnetfan.org/blogs/dotnetfanblog/articles/632.aspx
1.SqlDataSourceに条件検索を追加
http://www.cocoaliz.com/asp.net/index/22/



#comment_nospam
#vote(参考になった[0],ふつう[0],参考にならなかった[0])
トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS