摘要:[習題]Calendar日曆控制項的.OnDayRender()方法與 DayRender事件 #2--搭配資料庫，設計自己的個人行事曆行事曆
這個範例，請您務必先完成另一個基礎，才能進行下去。
使用上一個範例的技巧
（[習題]Calendar日曆控制項的.OnDayRender()方法與 DayRender事件），作法其實很雷同。
1. 除了上述的範例（日曆控制項的 DayRender事件），您要先學會之外，
2. 另外要寫一些 ADO.NET程式（在此使用 DataReader來作）
程式執行結果：
本範例已經收錄在這本書裡面：
C#版：http://24h.pchome.com.tw/books/prod/DJAA2V-A83003754
VB版：http://24h.pchome.com.tw/books/prod/DJAA2V-A84340111
'----自己（宣告）寫的----
Imports System
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
'----自己（宣告）寫的----
Protected Sub calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
Dim Conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("事先寫在Web.Config檔裡面的連結字串").ConnectionString)
Dim dr As SqlDataReader = Nothing
Dim cmd As SqlCommand = New SqlCommand("select * from Calendar_Schedule", Conn)
Try '==== 以下程式，只放「執行期間」的指令！=====================
Conn.Open()
dr = cmd.ExecuteReader()
While dr.Read()
Dim csTime As Date = FormatDateTime(dr("cs_time"), DateFormat.ShortDate)
'*******************************************************(start)
'-- Cell 屬性表示正在呈現的儲存格，
'-- Day 屬性則表示要呈現在儲存格中的日期。
'--新增一個 Label控制項到日曆裡面的 cell。
If e.Day.Date = csTime Then
'-- 出現一個 Label控制項。
Dim LB As New Label
LB.Text = dr("cs_title")
e.Cell.Controls.Add(LB)
End If
'*******************************************************(end)
End While
Catch ex As Exception '---- 如果程式有錯誤或是例外狀況，將執行這一段
Response.Write("Error Message---- " + ex.ToString())
Finally
If Not (dr Is Nothing) Then
cmd.Cancel()
'----關閉DataReader之前，一定要先「取消」SqlCommand
'參考資料： http://blog.darkthread.net/blogs/darkthreadtw/archive/2007/04/23/737.aspx
dr.Close()
End If
If (Conn.State = ConnectionState.Open) Then
Conn.Close()
Conn.Dispose() '---- 一開始宣告有用到 New的,最後必須以 .Dispose()結束
End If
End Try
End Sub
//----自己（宣告）寫的----
using System.Web.Configuration;
using System.Data;
using System.Data.SqlClient;
//----自己（宣告）寫的----
protected void Calendar1_DayRender(object sender, DayRenderEventArgs e)
{
SqlConnection Conn = new SqlConnection(WebConfigurationManager.ConnectionStrings["先寫在Web.Config檔裡面的連結字串"].ConnectionString);
SqlDataReader dr = null;
String sqlstr = "Select * From Calendar_Schedule";
SqlCommand cmd = new SqlCommand(sqlstr, Conn);
try //==== 以下程式，只放「執行期間」的指令！===================
{
Conn.Open();
dr = cmd.ExecuteReader();
while (dr.Read())
{
DateTime csTime = DateTime.Parse(dr["cs_time"].ToString());
//日期格式的轉換，請參閱 http://www.dotblogs.com.tw/mis2000lab/archive/2011/04/28/formatdatetime_vb_csharp_20110428.aspx
//*******************************************************(start)
//-- Cell 屬性表示正在呈現的儲存格，
//-- Day 屬性則表示要呈現在儲存格中的日期。
//--新增一個 Label控制項到日曆裡面的 cell。
if (e.Day.Date.ToShortDateString() == String.Format("{0:yyyy/M/d}", csTime))
{ //***因為 e.Day.Date產生的日期，不會自動補零。例如 2013/1/1
//***在C#語法裡面，將會對應不到資料庫裡面的日期（2013/01/01）。VB語法會自動處理這個缺失。
//-- 出現一個 Label控制項。
Label LB = new Label();
LB.Text = dr["cs_title"].ToString();
e.Cell.Controls.Add(LB);
}
//*******************************************************(end)
}
}
catch (Exception ex)
{ //---- 如果程式有錯誤或是例外狀況，將執行這一段
Response.Write("Error Message---- " + ex.ToString());
}
finally {
if (dr != null) {
cmd.Cancel();
dr.Close();
}
if (Conn.State == ConnectionState.Open) {
Conn.Close();
Conn.Dispose();
}
}
}
上面程式的缺點：
補充（一）......................................................................................................................................
缺點一：Calendar的 DayRender事件，是日曆上的「每一天」都會執行一次。
一個月有30天，就會重複執行 30次。 如此一來，就會重複開關資料庫 30之多。
如果您的DB裡面有 30筆記錄，上面的程式就會跑900次迴圈，很沒效率！
缺點二：SQL指令應該只抓取"當天"、或是"當月份"的資料即可。不要用 Select * from 資料表的寫法。
................................................................................................................................................................
這篇文章真難得，一天改了三次。
補充（二）
我們作業流程作了改變，(1). 程式碼就大幅減少了，而且(2). 程式執行的迴圈次數也大幅縮短。
簡單地說，未來改進的特點如下：
- 月曆控制項的 DayRender事件，在月曆控制項上面的當月份，「每一天」都會執行一次。如果一個月有 30天，本範例頂多只執行 30次而已。
- 每次 DayRender事件產生時，就拿即時產生的「那一天（也就是程式碼e.Day.Date）」去比對資料庫。那一天有行程，才在畫面上呈現出來。
................................................................................................................................................................
ADO.NET的程式是書本裡面， Ch. 14的 DataReader範本，也提供了C# 版本，您可以在書上找到。
唯一小小修正的部分，只有在 While 迴圈。
書裡的光碟，VB、C#都提供給您了，一魚兩吃！
==== 廣 告 ====================================================
很多人、很多書商，輕視這些基礎的、入門的 Web控制項，
但是我們真正寫程式，用最多的就是這些基礎控制項。
您對他越熟悉，基本功夫就會越穩固。
ASP.NET 4.0 專題實務 / 松崗出版
「上集」第三章
我就搜錄各種最常用的範例、程式碼，將近一百頁！
比較一下你手邊的書本，看看他提供什麼範例給你，
您就知道他是要教會你？還是隨便帶過去、混過去？
說不定，您手邊的入門書，連自己動手寫程式連結資料庫都 "沒有" 呢.....
這就是 ADO.NET程式...........
網路上找到的好範例：
marcus116 -- [.NET] 行事曆控制項(ASP.NET calendar)加上農曆日期
http://www.dotblogs.com.tw/marcus116/archive/2011/04/10/22441.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.主講 事先錄好的影片，並非上課側錄！ 觀看時，有如「一對一」面對面講課。
