閲覧総計:8746  (本日:1  昨日:13)

 GoogleやYahooの検索サービスでは、スペースで区切った単語のAND検索(絞込み検索)
を行い、目的の情報を絞り込んで行く方法が一般的である。
 今回、ASP.NETでのスペース区切り単語のAND検索を行う方法を確認した。
(検索対象を多列に対応する方法)  09/10/11

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

【機能】スペースで区切った単語のAND検索を行い、結果をGridViewに表示する。
 検索キーワード(TextBox)が空なら全件を表示する。検索対象を複数列(namae, syussin)
とした。

【稼働画面】

SpaceAnd02.JPG

Accessデータベース名:MeiboDB.mdb
テーブル名:MeiboTable2

フィールド名データ型フィールドサイズ
ID (主キー)オートナンバー型長整数型
namaeテキスト型50
syussinテキスト型50

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

「キーワード検索」機能稼働ページの全コード
【SpaceAnd02.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)
        'スペースで区切られた単語のand検索を行う
        'TextBoxが空の場合は全件を表示
        AccessDataSource1.SelectParameters.Clear() 'パラメータをクリア 
        AccessDataSource1.SelectCommand = "SELECT [ID], [namae], [syussin] FROM [MeiboTable2]"
        Dim wa As String = " WHERE "
        Dim SplitKeyWords As String() = Me.TextBox1.Text.Split("  ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries) ' 全角と半角のスペース
        For i As Integer = 0 To SplitKeyWords.Length - 1
            AccessDataSource1.SelectParameters.Add("KeyWord" & i, "%" & SplitKeyWords(i) & "%")
            AccessDataSource1.SelectCommand &= wa & "(namae LIKE @KeyWord" & i & " OR syussin LIKE @KeyWord" & i & ")"
            wa = " AND "
        Next
    End Sub
   
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>スペース区切り単語のAND検索(検索対象:多列)</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        スペース区切り単語のAND検索(検索対象:多列) 09/10/11<br />
        <br />
        検索キーワード:<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
        <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="検索" /><br />
        &nbsp;
        <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="namae" HeaderText="namae" SortExpression="namae" />
                <asp:BoundField DataField="syussin" HeaderText="syussin" SortExpression="syussin" />
            </Columns>
        </asp:GridView>
        <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\MeiboDB.mdb"
            DeleteCommand="DELETE FROM `MeiboTable2` WHERE `ID` = ?"
            InsertCommand="INSERT INTO `MeiboTable2` (`ID`, `namae`, `syussin`) VALUES (?, ?, ?)"
            SelectCommand="SELECT `ID`, `namae`, `syussin` FROM `MeiboTable2`"
            UpdateCommand="UPDATE `MeiboTable2` SET `namae` = ?, `syussin` = ? WHERE `ID` = ?">
            <DeleteParameters>
                <asp:Parameter Name="ID" Type="Int32" />
            </DeleteParameters>
            <InsertParameters>
                <asp:Parameter Name="ID" Type="Int32" />
                <asp:Parameter Name="namae" Type="String" />
                <asp:Parameter Name="syussin" Type="String" />
            </InsertParameters>
            <UpdateParameters>
                <asp:Parameter Name="namae" Type="String" />
                <asp:Parameter Name="syussin" Type="String" />
                <asp:Parameter Name="ID" Type="Int32" />
            </UpdateParameters>
        </asp:AccessDataSource>
        <br />
    
    </div>
    </form>
</body>
</html>

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


選択肢 投票
参考になった 6  
ふつう 0  
参考にならなかった 0  

添付ファイル: fileSpaceAnd02.JPG 672件 [詳細]

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-08-13 (土) 18:56:52 (621d)