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

本文的補充範例,可以放在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 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約 140hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


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

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

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

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課