閲覧総計：&counter(); （本日：&counter(today); 昨日：&counter(yesterday);)
10/08/10に紹介した「[[カレンダの日付クリック時の処理事例(DBへのINSERT)]]」は、データの
ＤＢへの書込みに少々時間が掛かる。「通信中です！少しおまちください。」のメッセージ
を表示した方がユーザにやさしいと考え、カレンダ機能をAjax化し、UpdateProgressで
「おまちください」メッセージを表示する様にしてみた。 10/08/11
#ref(ajax弁当注文カレンダ60.jpg);
【参考】loading.gif画像は↓こちらの素材集から選んだ
http://www.benricho.org/loading_images/popular01.html
#ref(loading-05.gif);
開発環境：VWD2008 + Access2003
サーバ：ASP.NET3.5 + Access2003
【ajaxOrderCalInsert.aspx】
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.Common" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
'MS-AccessDBのConnectionString
Dim MyDbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\AccessDB.mdb;Persist Security Info=True"
'MS-AccessDBのProviderName
Dim MyDbProviderName As String = "System.Data.OleDb"
' カレンダのそれぞれの日付セルをレンダリングするタイミングで実行
Sub cal_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs)
Dim setting As ConnectionStringSettings = _
ConfigurationManager.ConnectionStrings(MyDbConnectionString)
Dim factory As DbProviderFactory = _
DbProviderFactories.GetFactory(MyDbProviderName)
Using db As DbConnection = factory.CreateConnection()
db.ConnectionString = MyDbConnectionString
' 出力する日付セルに対応する情報を抽出
Dim comm As DbCommand = factory.CreateCommand()
comm.CommandText = "SELECT [ID],[名前],[日付],[商品] FROM [注文テーブル] WHERE [日付]=@CalDate"
comm.Connection = db
Dim param As DbParameter = factory.CreateParameter()
param.ParameterName = "@CalDate"
param.Value = e.Day.Date.ToString("yyyy/MM/dd")
comm.Parameters.Add(param)
db.Open()
Dim reade As DbDataReader = comm.ExecuteReader()
' 各日の注文した昼食弁当情報を日付セル（e.Call）配下のコントロールとして追加
Do While reade.Read()
e.Cell.Controls.Add(New LiteralControl("<br />" & reade.GetString(3)))
Loop
End Using
End Sub
' カレンダの日付セルの選択が変更されたタイミングで実行
Protected Sub cal_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim setting As ConnectionStringSettings = _
ConfigurationManager.ConnectionStrings(MyDbConnectionString)
Dim factory As DbProviderFactory = _
DbProviderFactories.GetFactory(MyDbProviderName)
Using db As DbConnection = factory.CreateConnection()
db.ConnectionString = MyDbConnectionString
' INSERT(挿入)クエリの作成
Dim comm As DbCommand = factory.CreateCommand()
comm.CommandText = "INSERT INTO [注文テーブル] ([名前], [日付], [商品]) VALUES ('山田 太郎', @CalDate, '日替わり弁当')"
comm.Connection = db
'選択の日付セルの日付情報を取得
Dim param As DbParameter = factory.CreateParameter()
param.ParameterName = "@CalDate"
param.Value = cal.SelectedDate.ToString("yyyy/MM/dd")
comm.Parameters.Add(param)
'クエリの実行(INSERTクエリの場合は結果セットを返さないExecuteNonQuery)
db.Open()
comm.ExecuteNonQuery()
End Using
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>
<div>
弁当注文内容をカレンダに表示＆日付クリックで簡単弁当注文 10/08/10<br />
（Ajax仕様に変更：CalendarコントロールをUpdatePanelに入れた 10/08/11）<br />
<br />
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
<asp:Calendar ID="cal" runat="server" onDayRender="cal_DayRender"
OnSelectionChanged="cal_SelectionChanged" BackColor="#FFFFCC"
BorderColor="#FFCC66" BorderWidth="1px" DayNameFormat="Shortest"
Font-Names="Verdana" Font-Size="12pt" ForeColor="#663399" Height="412px"
ShowGridLines="True" Width="864px">
<SelectedDayStyle BackColor="#CCCCFF" Font-Bold="True" />
<SelectorStyle BackColor="#FFCC66" />
<WeekendDayStyle BackColor="#FFCCFF" />
<TodayDayStyle BackColor="#FFCC66" ForeColor="White" />
<OtherMonthDayStyle ForeColor="#CC9966" />
<NextPrevStyle Font-Size="9pt" ForeColor="#FFFFCC" />
<DayHeaderStyle BackColor="#FFCC66" Font-Bold="True" Height="1px" />
<TitleStyle BackColor="#990000" Font-Bold="True" Font-Size="9pt"
ForeColor="#FFFFCC" />
</asp:Calendar>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdateProgress ID="UpdateProgress1" runat="server"
AssociatedUpdatePanelID="UpdatePanel1" DisplayAfter="100">
<ProgressTemplate>
<img src="loading-05.gif" style="width: 32px; height: 32px" /> 通信中です！少しお待ちください。
</ProgressTemplate>
</asp:UpdateProgress>
<br />
</div>
</form>
</body>
</html>
【参考にしたページ】
なし
- http://www.coachcanadaoutlet.ca http://www.prada-outlet.us http://www.louboutinfemme-pascher.fr http://www.ralphlaurensale.eu.com http://www.jordan3.net http://www.louisvuitton-handbags.com.co http://www.poloralphlaurenhome.net http://www.abercrombie.net.co http://www.holister.name http://www.christian-louboutinoutlet.org http://www.rolexwatchesoutlet.us http://www.abercrombieandfitch.net.co http://www.coachoutletstoreonline.us.org http://www.katespade-outlet.us.com http://www.chanelhandbags.in.net http://www.longchamp-outlet.name http://www.jordan4.net http://www.raybans.name http://www.michaelkorsoutletus.eu.com http://www.louisvuittonoutlets.name http://www.airmax-nike.me.uk http://www.hollisterinc.name http://www.cheaptoms.us http://www.fendi.us.com http://www.michaelkorsoutlet-mk.eu.com http://www.hollister-clothing.net http://www.juicy-couture.us http://www.hollisterclothing.us http://www.pandorajewelry.net.co http://timberlandboots.hugeoff.net http://www.hollisterkids.net http://www.abercrombiestores.net http://www.louisvuittonoutlet-inc.us http://oakley.hugeoff.net http://www.ralph-lauren.net.co http://www.louis-vuitton.us.org http://www.louis--vuitton.us http://lululemon.suleymanaltun.com http://www.marc--jacobs.com http://www.airjordan-pascher.fr http://www.abercrombie.in.net http://www.louisvuitton-lvoutlet.me http://www.guccishoes.us.com http://www.coachoutlet.net.so http://www.michaelkorshandbags.com.so http://www.tory-burchoutlet.in.net http://www.rayban-sunglasses.com.co http://www.retrojordans.name http://www.concords11.com http://www.cheapjordansshoes.in.net http://www.p90xworkouts.us http://truereligion.officialbid.net http://www.guccioutlet.net.co http://burberry.stores.net.co http://www.michaelkorshandbags.eu.com http://www.edhardyclothing.in.net http://www.michaelkorsoutletonlinee.in.net http://www.chiflatiron.com.co http://www.oakleysunglassessale.in.net http://burberryoutlet.officialstore.com.co http://www.coachoutletstoreonline.eu.com http://www.gucci.net.co http://www.abercrombieandfitch.cc http://www.coach-outlet.us.com http://www.michaelkorsoutlet.net.so http://www.cocochaneluk.co.uk http://www.louisvuitton-outlet.us.com http://www.louisvuittonhandbags.net.co http://www.ralph-lauren-outlet.co http://www.louisvuittonuk.me.uk http://www.coach-outlet.us.org http://www.ray-bansunglasses.name http://www.louis-vuitton.net.co http://www.adidasshoes.name http://www.louis-vuittonoutlet.us.org http://www.true-religion-outlet.us.com http://www.michaelkorsonlineoutlet.in.net http://www.jordan13.org http://www.abercrombieoutlet.name http://www.kobeshoes.org http://www.hollister-co.net http://www.holisterclothingstore.com http://www.michaelkorsoutlet.com.so http://www.fitflops.org http://www.kobebryantshoes.name http://www.oakley-sunglasses.net.co http://www.kevindurantshoes.name http://www.pradauk.co.uk http://www.michaelkorsukpurse.co.uk http://www.gucci-outlet.org http://burberry.bidinc.org http://www.oakleysunglassescheap.name http://www.oakleysunglasses.us.com http://michaelkors.officialstore.com.co http://www.cheapsoccershoes.in.net http://www.coachoutlet-storeonline.in.net http://www.todsshoes.us http://www.jordan8.net http://www.christianlouboutinoutlet.org http://www.raybanglasses.me.uk http://www.abercrombieoutlet.us.com http://www.montblanc-pens.name http://www.christianlouboutin.name http://www.oakleysunglasses-wholesale.name http://www.raybansunglassesoutlet.name http://www.christianlouboutin-shoes.info http://www.raybansunglass.net.co http://www.ray-banoutlet.name http://www.michaelkors--outlet.in.net http://www.truereligion.eu.com http://www.coach-factoryoutlet.com.co http://www.outlet-celine.com http://www.christianlouboutinoutlet.com.co http://www.oakleysunglasses-outlet.name http://www.fitflop-shoes.us http://www.soccer-jerseys.us.com http://www.michaelkors.com.so http://www.todsoutlet.name http://www.cheap--nfljerseys.us.com http://www.abercrombie-fitch.cc http://www.tory-burch-outlet.name http://www.redchristianlouboutin.com http://www.hermes-birkin.us http://www.michaelkors-mkoutlet.in.net http://timberland.officialfree.net http://www.chanel-handbags.net.co http://www.christianlouboutinsale.name http://www.jordan11s.name http://www.pandorajewelry.name http://burberryoutlet.newestsite.net http://www.louisvuitton.us.com http://www.montblanc.com.co http://www.cheap-jordans.us.com http://www.toms--shoes.com http://beatsbydrdre.outletoff.net http://www.cheapjerseys-wholesale.us.com http://www.christianlouboutinsale.biz http://www.michael-korsoutletonline.eu.com http://www.abercrombiestore.org http://www.rayban-sunglasses.eu.com http://www.louis-vuittonhandbags.name http://www.oakley-sunglasses.com.co http://timberlandboots.dealsinc.net http://www.nike-airmax.me.uk http://www.jordan11.name http://www.saclongchamp--pascher.fr http://www.michaelkors-outlet.com.co http://www.gucci-outlet.name http://michaelkors.aphidsymposium.org http://www.cheaprolexwatches.name http://www.chanelbags.com.co http://www.toms-shoes.cc http://www.insanityworkout.com.co http://www.louisvuittonoutlet.net.co http://www.coachfactoryoutlet.com.so http://www.jordanretro.name http://coachoutlet.officialinc.net http://www.toms-outlet.com.co http://www.poloralph-lauren.net.co http://toryburchoutlet.stores.net.co http://www.michaelkorsbag.org.uk http://www.coachoutlet-factory.com.co http://www.dior-handbags.us http://chanelhandbags.newstore.com.co http://www.abercrombiekids.name http://www.coachfactoryoutletonline.eu.com http://www.jordan11concord.org http://www.abercrombie-fitch.com.co http://www.michaelkorsoutletclearance.in.net http://www.jordanconcords.net http://www.gucci-outlet.net.co http://www.lebronjames-shoes.net http://www.adidaswings.name http://www.celine-outlet.us http://www.hollisterclothing.info http://www.ghdhairstraighteners.com.co http://www.lebronjames-shoes.name http://www.oakleysunglasses-sale.in.net http://www.longchamphandbags.com.co http://truereligion.onlineinc.net.co http://www.hollisteroutlet.name http://www.katespade-handbags.eu.com http://www.ray-ban-sunglasses.org.uk http://www.jordan6.net -- [[2015711yuanyuan]] &new{2015-07-10 (金) 22:01:32};
#comment_nospam
#vote(参考になった[1],ふつう[0],参考にならなかった[0])
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
