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

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

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

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

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

Accessデータベース名:MeiboDB.mdb
テーブル名:MeiboTable
|~フィールド名|~データ型|~フィールドサイズ|
|ID (主キー)|オートナンバー型|長整数型|
|namae|テキスト型|50|

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


「キーワード検索」機能稼働ページの全コード
【SpaceAnd.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] FROM [MeiboTable]"
         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.SelectCommand &= wa & "namae LIKE @KeyWord" & i
             AccessDataSource1.SelectParameters.Add("KeyWord" & i, "%" & SplitKeyWords(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 />
         <br />
         <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="ID"
             DataSourceID="AccessDataSource1">
             <Columns>
                 <asp:BoundField DataField="ID" HeaderText="ID" InsertVisible="False" ReadOnly="True"
                     SortExpression="ID" />
                 <asp:BoundField DataField="namae" HeaderText="namae" SortExpression="namae" />
             </Columns>
         </asp:GridView>
         <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/App_Data/MeiboDB.mdb"
             DeleteCommand="DELETE FROM [MeiboTable] WHERE [ID] = ?"
             InsertCommand="INSERT INTO [MeiboTable] ([ID], [namae]) VALUES (?, ?)"
             SelectCommand="SELECT [ID], [namae] FROM [MeiboTable]"
             UpdateCommand="UPDATE [MeiboTable] SET [namae] = ? WHERE [ID] = ?">
             <DeleteParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
             </DeleteParameters>
             <UpdateParameters>
                 <asp:Parameter Name="namae" Type="String" />
                 <asp:Parameter Name="ID" Type="Int32" />
             </UpdateParameters>
             <InsertParameters>
                 <asp:Parameter Name="ID" Type="Int32" />
                 <asp:Parameter Name="namae" Type="String" />
             </InsertParameters>
         </asp:AccessDataSource>
         <br />
     
     </div>
     </form>
 </body>
 </html>


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



#comment_nospam
#vote(参考になった[0],ふつう[0],参考にならなかった[0])

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS