閲覧総計：16573　　（本日：71　　昨日：0)

　Accessデータを「キーワード検索」し、結果をGridViewに表示した。
　検索対象を複数列（品名、セット内容、価格）に広げる改良を行った。　09/10/12

↓参考にしたページ：「SqlDataSourceに条件検索を追加」
http://www.cocoaliz.com/asp.net/index/22/
→「検索(LINQtoXML)(3.5)」(09/9/6)と同一機能を実装し、比較可能とした。

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

【機能】検索キーワードを含む情報のみ抽出し、結果をGridViewに表示する。
　検索キーワード(TextBox)が空なら全件表示、検索キーワードが入力されていれば
検索。（検索対象は、品名、セット内容、価格の３列）

【稼働画面】

SearchGridView02.JPG

Accessデータベース名：udon.mdb
テーブル名：udons_sampleData

フィールド名データ型フィールドサイズ
ID (主キー)オートナンバー型長整数型
品名テキスト型100
セット内容テキスト型255
価格数値型整数型

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

「キーワード検索」機能稼働ページの全コード
【SearchGridView02.aspx】

<%@ Page Language="VB" Trace="false" %>

<!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)
        'Selectパラメータをクリア
        AccessDataSource1.SelectParameters.Clear()
        'SelectCommandをセット（TextBoxが空ならば、全件を表示）
        AccessDataSource1.SelectCommand = "SELECT [ID], [品名], [セット内容], [価格] FROM [udons_sampleData]"
        If (TextBox1.Text <> "") Then
            'TextBoxが空でないならば、WHERE条件を追加
            'Selectパラメータをセット（KeyWordの頭に@は必要ないです。）
            AccessDataSource1.SelectParameters.Add("KeyWord", "%" & TextBox1.Text & "%")
            'WHERE条件を追加
            AccessDataSource1.SelectCommand &= " WHERE (品名 LIKE @KeyWord OR セット内容 LIKE @KeyWord OR 価格 LIKE @KeyWord)"
        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/10/12<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="表示するデータ レコードがありません。" BackColor="White" BorderColor="#DEDFDE" BorderStyle="None" BorderWidth="1px" CellPadding="4" ForeColor="Black" GridLines="Vertical">
            <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>
            <RowStyle BackColor="#F7F7DE" />
            <FooterStyle BackColor="#CCCC99" />
            <PagerStyle BackColor="#F7F7DE" ForeColor="Black" HorizontalAlign="Right" />
            <SelectedRowStyle BackColor="#CE5D5A" Font-Bold="True" ForeColor="White" />
            <HeaderStyle BackColor="#6B696B" Font-Bold="True" ForeColor="White" />
            <AlternatingRowStyle BackColor="White" />
        </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.SqlDataSourceに条件検索を追加
http://www.cocoaliz.com/asp.net/index/22/


選択肢 投票
参考になった 2  
ふつう 2  
参考にならなかった 0  
添付ファイル: fileSearchGridView02.JPG 837件 [詳細]
トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2026-01-19 (月) 11:06:17 (26d)