[習題]多重欄位搜尋 -- DataSet/DataAdapter + SelectCommand參數 (使用參數配合 DataAdapter)

2011-05-02

11128
0
ASP.NET 4.0與 VS 2010
2011-12-15

本文的補充範例，可以放在ASP.NET 4.0 專題實務（松崗出版）
「上集」光碟裡面的第20章「網站內部的小搜尋引擎」，當作補充教材。
這個範例，在「下集」的光碟裡面也有提供。

使用 DataSet / DataAdapter來作。
本範例多了 SelectCommand「參數」的功能而已。
HTML畫面都一模一樣

本文的補充範例，可以放在ASP.NET 4.0 專題實務（松崗出版）

「上集」光碟裡面的 第20章「網站內部的小搜尋引擎」，當作補充教材。

這個範例，在「下集」的光碟裡面也有提供。

我做成 PDF檔案，您可以下載全文。

[文章下載]網站內的搜尋引擎，單一欄位與多重欄位的搜尋（自己手寫SqlDataSource與SelectParameter參數）
http://www.dotblogs.com.tw/mis2000lab/archive/2010/06/07/asp_net_search_engine_sample_2010.aspx

===========================================================================

書本裡面， Ch. 20-3-3小節，我們使用 DataSet / DataAdapter來作。

本範例多了「SelectCommand 參數」的功能而已。

HTML畫面都一模一樣，您可以參考書本範例「Search_Engine_2_Manual.aspx」。

裡面的觀念與原理，書本上都有講解。

（ PDF 全文下載，請看 [文章下載]網站內的搜尋引擎，單一欄位與多重欄位的搜尋（自己手寫SqlDataSource與SelectParameter參數））

比較特別的是：

當我們使用參數的時候，SQL指令的寫法略有修改。

這段我是參考 SqlDataSource精靈產生的SQL指令，才找到錯誤。

不然我也試了很久的時間

'---- 自己寫的（宣告）NameSpace ----
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient

'== 其餘的事件在此省略，請參閱書本。

'== 以下有兩種寫法，請您任選其一即可。

    Sub DBInit()
        '----連結資料庫的另一種寫法----
        Dim Conn As SqlConnection = New SqlConnection(WebConfigurationManager.ConnectionStrings("您在 Web.Config檔案裡面的資料庫連結字串").ConnectionString)

        Try
            ' Conn.Open()    '---- 這一行註解掉，可以不用寫，DataAdapter會自動開啟

            '== SQL指令的寫法很特別！！
            Dim mySearchString As String = "Select id,test_time,title,summary,author From test Where 1=1 "

'=======================================================
'== 參考資料：http://msdn.microsoft.com/zh-tw/library/bbw6zyha(v=vs.80).aspx

'== 方法一（任選其一即可）==(start)
'Dim myAdapter As New SqlDataAdapter() '--務必先有 DataAdapter才行！

            'Dim cmd As New SqlCommand()

            'If TextBox1.Text <> "" Then
            '    mySearchString = mySearchString & " and ([title] LIKE '%' + @title + '%')"
            '    cmd.Parameters.Add("@title", SqlDbType.VarChar, 120)
            '    cmd.Parameters("@title").Value = TextBox1.Text
            'End If

            'If TextBox2.Text <> "" Then
            '    mySearchString = mySearchString & " and ([summary] LIKE '%' + @summary + '%')"
            '    cmd.Parameters.Add("@summary", SqlDbType.VarChar, 200)
            '    cmd.Parameters("@summary").Value = TextBox2.Text
            'End If

            'cmd.CommandText = mySearchString
            'cmd.Connection = Conn

            'myAdapter.SelectCommand = cmd
            '=======================================================(方法一 end)

'=======================================================(start)
'== 方法二（任選其一即可） ==(start)

            If TextBox1.Text <> "" Then
                mySearchString = mySearchString & " and ([title] LIKE '%' + @title + '%')"
            End If

            If TextBox2.Text <> "" Then
                mySearchString = mySearchString & " and ([summary] LIKE '%' + @summary + '%')"
            End If

            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(mySearchString, Conn)

            If TextBox1.Text <> "" Then
                myAdapter.SelectCommand.Parameters.Add("@title", SqlDbType.VarChar, 120)
                myAdapter.SelectCommand.Parameters("@title").Value = TextBox1.Text
            End If

            If TextBox2.Text <> "" Then
                myAdapter.SelectCommand.Parameters.Add("@summary", SqlDbType.VarChar, 200)
                myAdapter.SelectCommand.Parameters("@summary").Value = TextBox2.Text
            End If

'=======================================================(方法二 end)

            Dim ds As New DataSet()
            myAdapter.Fill(ds, "test")     '執行SQL指令。把資料庫撈出來的資料，填入DataSet裡面。
            ' DataSet是由許多 DataTable組成的，我們目前只放進一個名為 test的 DataTable而已。

GridView1.DataSource = ds.Tables("test")
GridView1.DataBind()

        Catch ex As Exception
            Response.Write("<HR/>" & ex.ToString() & "<HR/>")
        End Try
        ' 使用SqlDataAdapter的時候，不需要寫程式去控制Conn.Open()與 Conn.Close()。

    End Sub

關於 DataSet / DataAdapter 的範例，您可以參考這些文章。

如此一來， CRUD各種參數的寫法，您都會了。

[習題]ADO.NET #6， DataSet如何新增一筆紀錄？（搭配參數InsertCommand + Parameter）
http://www.dotblogs.com.tw/mis2000lab/archive/2008/12/15/ado.net_dataset_insertcommand_1215.aspx

[轉貼][ADO.NET] DataSet / DataAdapter 參數（Parameters）的各種範例

http://www.dotblogs.com.tw/mis2000lab/archive/2011/03/24/dataadapter_parameter_20110324.aspx

關於 DataSet / DataAdapter的 UpdateCommand 與 DeleteCommand「參數」作法，

可以參考「上集」（ASP.NET 4.0 專題實務 / 松崗出版）第十章。

我將思想傳授他人，他人之所得，亦無損於我之所有；

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----Thomas Jefferson

線上課程，遠距教學 (Web Form 49hr) https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程，遠距教學 (ASP.NET MVC 75~80hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程第一天免費看 (5.5小時)

寫信給我，不要私訊 -- mis2000lab (at) yahoo.com.台灣 或 school (at) mis2000lab.net

ASP.NET遠距教學、線上課程（Web Form + MVC）。 第一天課程， "完整" 試聽。

................ facebook社團 https://www.facebook.com/mis2000lab ......................

................ YouTube (ASP.NET) 線上教學影片 https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

Blog文章 "附的範例" 無法下載，請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍（嚴格認定）。

......................................................................................................................................................