本文的補充範例,可以放在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 約75~88hr) 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
請看我們的「售後服務」範圍(嚴格認定)。
......................................................................................................................................................
[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講
事先錄製好的影片,並非上課時側錄! 觀看影片時,有如我「一對一」跟您面對面講課。

ASP.NET MVC 5 => .NET Core MVC 線上教學
累積時數約 95小時...... 第一天(5.5小時)完整內容,"免費"讓您評估
