ASP.NET專題實務 WebForm + MVC線上教學影片 -- MIS2000Lab.

想要讓DropDownList的子選項(DataTextField)，出現兩個欄位

如果您透過 SqlDataSource的精靈來作，DataTextField只能放一個欄位。
必須自己寫程式來處理才行。

這是在論壇上看見的發問，參考資料如下：

    http://www.blueshop.com.tw/board/FUM20041006161839LRJ/BRD20101114072706MJM.html

    http://social.msdn.microsoft.com/forums/zh-TW/236/thread/94722bd1-8701-4e64-90e6-de9ade86b733


作法有兩種。

 

因為要撰寫 ADO.NET程式，所以比較適合放在本書「上集」的第十四章

 

首先，NameSpace都要自己宣告這些

Imports System
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient

第一，是透過 SQL指令來處理。

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Conn As SqlConnection = New SqlConnection
        Conn.ConnectionString = WebConfigurationManager.ConnectionStrings("存在Web.Config裡面的連結字串").ConnectionString

        Dim dr As SqlDataReader = Nothing

        '==重點！！== 透過SQL指令解決！==
        Dim cmd As New SqlCommand("select id, title, author, title+author as NewField from test", Conn)

        Try     '==== 以下程式，只放「執行期間」的指令！=====================
            Conn.Open()   '---- 這時候才連結DB

            '---- 這時候執行SQL指令，取出資料。
            dr = cmd.ExecuteReader()
            'dr.Read()

            DropDownList1.DataTextField = "NewField"   '==重點！！==
            DropDownList1.DataValueField = "id"

            DropDownList1.DataSource = dr
            DropDownList1.DataBind()


        Catch ex As Exception   '---- 如果程式有錯誤或是例外狀況，將執行這一段
            Response.Write("<b>Error Message----  </b>" + ex.ToString() + "<HR/>")
        Finally
            If Not (dr Is Nothing) Then
                cmd.Cancel()
                dr.Close()
            End If

            If (Conn.State = ConnectionState.Open) Then
                Conn.Close()
                Conn.Dispose()
            End If
        End Try
    End Sub


第二，是寫程式慢慢處理每一個「子選項」

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Conn As SqlConnection = New SqlConnection
        Conn.ConnectionString = WebConfigurationManager.ConnectionStrings("存在Web.Config裡面的連結字串").ConnectionString

        Dim dr As SqlDataReader = Nothing
        Dim cmd As New SqlCommand("select id, title, author from test", Conn)

        Try     '==== 以下程式，只放「執行期間」的指令！=====================
            Conn.Open()   '---- 這時候才連結DB

            '---- 這時候執行SQL指令，取出資料。
            dr = cmd.ExecuteReader()

            Dim i As Integer = 0
            '====== 重  點！！======================

            While dr.Read()
                DropDownList1.Items.Add(dr("title") & " / " & dr("author"))
                DropDownList1.Items(i).Value = dr("id")
                i = i + 1
            End While
            '===================================

        Catch ex As Exception   '---- 如果程式有錯誤或是例外狀況，將執行這一段
            Response.Write("<b>Error Message----  </b>" + ex.ToString() + "<HR/>")
        Finally
            If Not (dr Is Nothing) Then
                cmd.Cancel()
                dr.Close()
            End If

            If (Conn.State = ConnectionState.Open) Then
                Conn.Close()
                Conn.Dispose()
            End If
        End Try
    End Sub

 

以上程式使用的 ADO.NET (DataReader)，其實是從這個範本修改而來。

很簡單。 http://www.dotblogs.com.tw/mis2000lab/archive/2008/04/24/3446.aspx

 

範例很簡單了，所以不附上 C#範例。

 

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

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