本文的補充範例，可以放在ASP.NET 4.0 專題實務（松崗出版）
「上集」光碟裡面的 第20章「網站內部的小搜尋引擎」，當作補充教材。
這個範例，在「下集」的光碟裡面也有提供。
使用 DataSet / DataAdapter來作。
本範例多了 SelectCommand「參數」的功能而已。
HTML畫面都一模一樣
本文的補充範例，可以放在ASP.NET 4.0 專題實務（松崗出版）
「上集」光碟裡面的 第20章「網站內部的小搜尋引擎」，當作補充教材。
這個範例，在「下集」的光碟裡面也有提供。
我做成 PDF檔案，您可以下載全文。
===========================================================================
書本裡面， 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 約 135hr) 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.主講 事先錄好的影片，並非上課側錄！ 觀看時，有如「一對一」面對面講課。
