[ADO.NET]DataSet、DataRelation #1,使用DataRow.GetChildRows()方法,展現「關連式資料表(類似留言版)」的手寫程式

摘要:[ADO.NET]DataSet、DataRelation、DataRow.GetChildRows()方法,展現「關連式資料表」的手寫程式(類似留言版)






這個範例是我當年接觸 .NET 2.0時撰寫的。

為了測試 ObjectDataSource、自己寫程式來瞭解其中的流程......等等。

 

因為時代變遷較快,我還來不及把 ObjectDataSource寫成書本文章,就有越來越多的新東西出現了。

如果您想要瞭解 ObjectDataSource或是 SqlDataSource,我很推薦  章立民老師的這本書 -- 用實例學ASP.NET 3.5 -- 基礎篇(碁峰出版)

 

      P.S.  雖然號稱是「基礎篇」,但這本書 "未必" 適合 「沒基礎的」初學者。

      建議是略有程度,學習完 ASP.NET入門課程的人再來進修。

 

      這本書,我覺得很棒。

      也因為他很棒,我一直沒把握寫出更好的 ADO.NET書籍,所以裡面有些章節(如 ObjectDataSource),我自己的書也不提。

      我直接推薦上課的學員,買這本書來作為補充。

 

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

<基礎觀念>

DataSet可以容納許多個 DataTable在裡面,

設定好彼此的「關聯」,您便可以利用 DataSet「離線 (Disconnect)」、「記憶體快取」的能力,

來處理複雜的關連式資料表!

 

您在這幾張圖片看見的 DataSet觀念,後續的範例會介紹  DataTable 與 Relations等等

 

 

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

<範例解說 與 執行成果>

 

     

 

 

        Dim Conn As New SqlConnection("您自己的DB連結字串")
        Dim myDataSet As New DataSet()
        Dim myStr As String = ""

        Dim mySqlDataAdapter1 ,mySqlDataAdapter2 As SqlDataAdapter
        mySqlDataAdapter1 = New SqlDataAdapter("select CustomerID,ContactName from customers", Conn)
        mySqlDataAdapter2 = New SqlDataAdapter("select OrderID,CustomerID from orders", Conn)

        Try
            'Conn.Open()   '-- DataAdapter會自動開啟DB連線。
            mySqlDataAdapter1.Fill(myDataSet, "Customers")
            mySqlDataAdapter2 .Fill(myDataSet, "Orders")

            '== 重點一 ==
            ' == 兩個 Tables 彼此作關聯,並將此關聯命名為 Relation_CO

            myDataSet.Relations.Add("Relation_CO",
                                    myDataSet.Tables("Customers").Columns("CustomerId"),
                                    myDataSet.Tables("Orders").Columns("CustomerId"))


            '== 重點二 ==
            ' Iterate over data of Customers and their orders
            '== 透過雙重迴圈(巢狀迴圈),類似「留言版」。把相關的紀錄一筆一筆列出來。

            For Each myDRow1 As DataRow In

                myDataSet.Tables("Customers").Rows


                myStr = myStr + "Customer 客戶名稱: " + myDRow1("ContactName").ToString() + "<BR/>"

                ' Iterate over orders data
                myStr = myStr + "# 訂單編號 # <br /><small>"

                   ' =========== (第二個迴圈)===========
                    For Each myDRow2 As DataRow In

                        myDRow1.GetChildRows(myDataSet.Relations("Relation_CO"))

                           '== DataRow.GetChildRows()方法 (DataRelation)
                           ' == 參考資料:
http://msdn2.microsoft.com/zh-tw/library/hbt8xha8(VS.80).aspx    
                 
                           myStr = myStr + "Order # " + myDRow2("OrderId").ToString() + "<BR/>"
                    Next
                    '==============================

                myStr = myStr + "</small><HR/>"
                Label1.Text = myStr
            Next

        Catch ex As Exception
            Response.Write("<BR/> Exception Error Message :" + ex.ToString())
        Finally
            mySqlDataAdapter1.Dispose()
            mySqlDataAdapter2.Dispose()
            'Conn.Close()   '-- DataAdapter會自動關閉DB連線。
        End Try

 

執行成果如下:

     

 

 

 

 

在下一篇文章,我會提供這個範例的  "下  載" 。

本文提供範例下載,請看:DataSet與ObjectDataSource #2,範例下載



檔  名:
      NorthWind_21_Manual.aspx   (本文介紹的範例)
      NorthWind_22_old_DataReader.aspx   (用傳統 DataReader來寫,執行的成果也差不多),對照一下上面的寫法。
      
      
      
      
微軟官方網站,NorthWind北風貿易資料庫

(範例)下載 ( for MS SQL Server):
http://www.microsoft.com/downloads/en/details.aspx?FamilyID=06616212-0356-46a0-8da2-eebc53a68034&displaylang=en

 

 

 

本文未完,待續。  請看下一篇文章:

            [ADO.NET]DataSet、DataRelation #2,例外狀況 -- 無法啟用這個條件約束,因為不是所有值都有相對應的父值。
            http://www.dotblogs.com.tw/mis2000lab/archive/2011/05/06/24386.aspx

 

 

 

 

 

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

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