ADO.NET #3 (GridView + SqlDataSource)完全手寫、後置程式碼,兼論 SqlDataSource與UpdateParameter/DeleteParameter的用法

這篇文章超悶!因為全部都用後置程式碼(Code Behind)來作,自己寫程式來作 SqlDataSource
所以GridView的「分頁」、「編輯」、「刪除」、「更新」......通通採用後置程式碼(自己動手寫)

在許多網路論壇上,會有人發問這樣的問題,因為入門書比較不會講到這些....包含 YouTube教學影片

 

這篇文章超悶!

 

因為全部都用後置程式碼(Code Behind)來作,

所以,GridView的「分頁」、「編輯」、「刪除」、「更新」......通通採用後置程式碼(自己動手寫)

在許多網路論壇上,會有人發問這樣的問題。因為入門書比較不會講到這些,但學到一陣子之後,就會遇上相關問題了。

 

一般入門書,介紹 GridView + SqlDataSource都是靠精靈,設定畫面一步一步地完成。

例如:初學者可以先看看這篇文章(PDF檔)......文章下載

 

這個範例,請搭配我書本裡面的 test資料表,可以當成 本書(上集) 10.3節 Ch 14章的補充範例。

Ch 13/14這兩章,是我書本裡面的特色。......[2010 新書上市]ASP.NET 4.0專題實務(I) -- 入門實戰篇

目前的ASP.NET 2.0 /3.5 /4.0的書籍,連ADO.NET都少見了(大多只講 SqlDataSource),更別提到「手寫」的ADO.NET程式。

 

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

建議:初學者勿看!

    基礎不好,看了會消化不良、拉肚子的。

    先把基本功夫練好,下面的範例才會感到有用。

    已經學會 GridView的樣版(Template)、SqlDataSource之後再看下去

 

底下的範例,因為自己寫程式,會瞭解 GridView的各種事件。

例如:GridView是如何完成編輯、分頁、更新等等動作,下面程式碼其實是完全公開了這些過程。

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

 

千萬不要為SqlDataSource "動手" 寫程式

本文的範例,我只是寫給大家看,SqlDataSource其實骨子裡面就是「ADO.NET」
寫法與流程都一樣。

您千萬不要為了「SqlDataSource精靈」寫程式。讓他來服務你,你不用服務他!你才是主人!!!!
 

 

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

 

本範例的執行成果,為什麼要自己動手寫這些功能?

學會了可以得到什麼???請看我在YouTube錄製的影片 -- https://youtu.be/KFQvhiQcz1U


 

 

 

第一,HTML畫面設計。

      只有一個 GridView,並啟動「編輯」、「分頁」等功能。重點是設定好 DataKeys屬性!

      但畫面上沒有 SqlDataSource作資料繫結。

     

 

第二,後置程式碼(Code Behind)。VB版

      因為自己動手在後置程式碼裡面,撰寫 SqlDataSource,我上MSDN也沒找到好的範例。

      自己「硬Coding」,寫得不好,請大家見諒。

 

    Sub myDBInit()   '==== 自己寫的程式 ====
        '--------------------------------------------------
        '-----  手動撰寫 SqlDataSource      -----
        '--------------------------------------------------
        Dim SqlDataSource1 As SqlDataSource = New SqlDataSource
        '== 1.連結資料庫的連接字串 ConnectionString  ,事先已經寫在 Web.Config檔案裡面了==
        SqlDataSource1.ConnectionString = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString
        '== 2.撰寫SQL指令 ==
        SqlDataSource1.SelectCommand = "SELECT * FROM [test]"
        '== 3.執行SQL指令 .select() ==
        SqlDataSource1.DataSourceMode = SqlDataSourceMode.DataSet

        Dim args As New DataSourceSelectArguments
        Dim dv As Data.DataView = SqlDataSource1.Select(args)

        GridView1.DataSource = dv
        GridView1.DataBind()


        SqlDataSource1.Dispose()
    End Sub   '==== 自己寫的程式 ====

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            myDBInit()

            Response.Write("第一次進入畫面.....If Not Page.IsPostBack Then.....<br>")
        Else
            Response.Write("第<b>N</b>次進入畫面.....<br>")
        End If

        '註解:不要小看這一段 IF判別式喔,不信的話請看這篇文章 ---- 自己動手寫 GridView的編輯/更新程式,但抓不到修改後的資料?
    End Sub

 

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
        myDBInit()

        Response.Write("GridView1_PageIndexChanging()....分頁ing...<br>")
    End Sub

 

 

    Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
        GridView1.EditIndex = e.NewEditIndex
        myDBInit()
        Response.Write("GridView1_RowEditing()....進入編輯模式....<br>")
    End Sub

    Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
        GridView1.EditIndex = -1
        myDBInit()
        Response.Write("GridView1_RowCancelingEdit()....離開(取消)編輯模式....<br>")
    End Sub

 

 

    Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
'==這邊的程式很難。要抓格子,還要自己算一下是第幾格?請看本書P. 10-20頁的圖片與解說


        Dim myTest1 As TextBox = GridView1.Rows(e.RowIndex).Cells(2).Controls(0)
        Dim myTest2 As TextBox = GridView1.Rows(e.RowIndex).Cells(3).Controls(0)

        Response.Write("GridView1_RowUpdating()....開始更新資料....<br>")

        Dim my_test_time, my_title, my_summary, my_article As New TextBox
        my_test_time = GridView1.Rows(e.RowIndex).Cells(2).Controls(0)
        my_title            = GridView1.Rows(e.RowIndex).Cells(3).Controls(0)
        my_summary = GridView1.Rows(e.RowIndex).Cells(4).Controls(0)
        my_article       = GridView1.Rows(e.RowIndex).Cells(5).Controls(0)

        Dim my_id As Integer = CInt(GridView1.DataKeys(e.RowIndex).Value)  '====主索引鍵====

'==下面的程式,只是作SQL指令的更新動作而已

        Dim SqlDataSource1 As SqlDataSource = New SqlDataSource       
        SqlDataSource1.ConnectionString = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString

        '== 設定SQL指令將會用到的參數 ==
        SqlDataSource1.UpdateParameters.Add("id", my_id)
        SqlDataSource1.UpdateParameters.Add("test_time", my_test_time.Text)

         '== 關於日期格式的轉換,可以參閱 KKbruce的大作:http://kkbruce.blogspot.com/2010/11/sqldatasource.html
        SqlDataSource1.UpdateParameters.Add("title", my_title.Text)
        SqlDataSource1.UpdateParameters.Add("summary", my_summary.Text)
        SqlDataSource1.UpdateParameters.Add("article", my_article.Text)

        SqlDataSource1.UpdateCommand = "UPDATE [test] SET [test_time] = @test_time, [title] = @title, [summary] = @summary, [article] = @article WHERE [id] = @id"

        SqlDataSource1.Update()

        SqlDataSource1.Dispose()
        '==========================================

        '==== 離開編輯模式 ====
        GridView1.EditIndex = -1
        myDBInit()
    End Sub 

 

    Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
        Dim SqlDataSource1 As SqlDataSource = New SqlDataSource
        '== 連結資料庫的連接字串 ConnectionString  ==
        SqlDataSource1.ConnectionString = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("testConnectionString").ConnectionString

        Dim my_id As Integer = CInt(GridView1.DataKeys(e.RowIndex).Value.ToString)    '====主索引鍵====
        SqlDataSource1.DeleteParameters.Add("id", my_id)  '== 設定SQL指令將會用到的參數 ==

        SqlDataSource1.DeleteCommand = "Delete from [test] WHERE [id] = @id"
        SqlDataSource1.Delete()

        Response.Write("*** 刪除成功! ***")

        myDBInit()
    End Sub

 

2009/10/13補充:

特別感謝網友指正。  空贓團長說:「GridView沒有指定DataSourceID時,是不會執行-ed事件,只會執行-ing事件。」

 

關於上述的SqlDataSource作法,這篇文章寫得也不錯,請各位參考---- http://blog.sqlsky.com/article.asp?id=415  (C#語法)

 

 

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

考考您 (Q&A):

    上面的各個事件裡面,為何都要重複執行 myDBInit()?

    如果不執行的話,會怎麼樣?

 

      答案請看本書 10.5節,我用一整節的文章來作說明。......[2010 新書上市]ASP.NET 4.0專題實務(I) -- 入門實戰篇

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

 

 不是我藏私啦

一本書上限600頁,我都寫到快850頁,還有好多東西塞不進去。

 

這個範例,在以前 ASP.NET 1.x版,是人人都會寫的範例。

因為那個時候,沒有 SqlDataSource這類的資料來源控制項,很多事都要自己動手寫。

 

到了ASP.NET 2.0以後,一切都方便、自動化了。書本也不提這一部份了,書本只談新的控制項,不會回頭去談一些基礎。

(因為新東西太多,新的都談不完,哪還有空回頭談別的) 

 

「出來混,總是要還的」,寫到(或 學到)某一種程度,就會遇上了。

所以網路論壇上,還是很常見到這些問題。  

 

這次公開了,基礎夠的話,研究一下就會懂。    

如果不懂,也不要急,一定是有些基礎還不穩固,有些該學的還沒學到。

 

我的書本裡面,第十章也有這個範例,但採用 DataSet + DataAdapter來作(已經出書了,這範例暫不公開)

 

 

 

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

新書([新書上市]ASP.NET 4.0專題實務(I) -- 入門實戰篇)已經包含下列所有範例,

有讀者希望看見 ListView、FormView、DetailsView,也都可以自己動手打造。

到了這篇文章,算是把這四大天王的範例,都提供出來了。

ListView ----

FormView ----

GridView --

DetailsView --

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

 

 

本系列 ADO.NET 共有下面文章:

 

 

真的!學會 ADO.NET的程式,自己動手寫。

很多問題都可以自己動手解決掉,硬要使用 Web控制項來湊合,反而有點礙手礙腳。

 

 

2012/9/18 補充

關於本範例,您也可以透過 GridViewRow / e.NewValue來做到,

請看範例 -- http://msdn.microsoft.com/zh-tw/library/system.web.ui.webcontrols.gridviewrow(v=vs.110).aspx


  Sub AuthorsGridView_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs)

    Dim index As Integer = AuthorsGridView.EditIndex
    Dim row As GridViewRow = AuthorsGridView.Rows(index)


    Dim lastName As TextBox = CType(row.FindControl("LastNameTextBox"), TextBox)
    Dim firstName As TextBox = CType(row.FindControl("FirstNameTextBox"), TextBox)


    e.NewValues("au_lname") = lastName.Text
    e.NewValues("au_fname") = firstName.Text

  End Sub
  
  ==========================================
        

        

          

          

            
              <%#Eval("au_lname")%>
            

            
              
              

                                                    
            

          

          

            
              <%#Eval("au_fname")%>
            

            
              
              

                                    
            

          

          

        

      

      
      
      
      

 

 

 

 

 今日值班正妹-----  ?????

圖片來源:正妹日報  http://6ewong.blogspot.com/2008/09/no415-kuoweiwei.html

 http://www.wretch.cc/album/album.php?id=kuoweiwei&book=67&page=13

 

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

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----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.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課