10: Sub Page_Load()
11: If Not IsPostBack Then
12: BindObjectList()
13: End If
14: End Sub
Sub BindObejctList()の行17では、商品テーブルからレコードを抽出するSQLを生成しています。行18-19では、Web.configからデータベースに接続するConnectionStringを取得しています。行24では、OleDbDataAdapterのFill()メソッドでDataSetに商品テーブルを取り込んでいます。行25-28のWith…End Withでは、ObjectListのDataSourceプロパティにDataSetを設定してDataBind()メソッドでバインドしています。
16: Sub BindObjectList()
17: Dim strSQL As String = "Select * From Products"
18: Dim strCon As String = _
19: ConfigurationSettings.AppSettings("conStringNw")
20: Dim con As New OleDbConnection(strCon)
21: Dim da As New OleDbDataAdapter(strSQL, con)
22: Dim ds As New DataSet()
23:
24: da.Fill(ds, "Products")
25: With olstProducts
26: .DataSource = ds
27: .DataBind()
28: End With
29: End Sub
30: Sub olstProducts_ItemCommand(s As Object, e As ObjectListCommandEventArgs)
31: If e.CommandName = "Order" Then
32: ActiveForm = frmOrder
33: txtvOrder.Text = String.Format("{0} の注文受け付けました.", _
34: e.ListItem("ProductName") )
35: ElseIf e.CommandName = "Cancel" Then
36: ActiveForm = frmCancel
37: txtvCancel.Text = String.Format("{0} の注文取り消しました.", _
38: e.ListItem("ProductName") )
39: End If
40: End Sub
10: Sub Page_Load()
11: If Not IsPostBack Then
12: BindList()
13: End If
14: End Sub
Sub BindList()では、商品区分テーブルをListコントロールにバインドしています。行24では、ListのDataSourceプロパティに商品区分テーブルのOleDbDataReaderを設定しています。行25-26では、DataTextField、DataValueFieldプロパティに商品区分テーブルの商品区分名、商品区分IDのフィールドを設定しています。行27では、DataBind()メソッドで商品区分テーブルをバインドしています。
16: Sub BindList()
17: Dim strSQL As String = "Select * From Categories"
18: Dim strCon As String = ConfigurationSettings.AppSettings("conStringNw")
19: Dim con As New OleDbConnection(strCon)
20: Dim cmd As New OleDbCommand(strSQL, con)
21:
22: con.Open()
23: With lstCategories
24: .DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
25: .DataTextField="CategoryName"
26: .DataValueField="CategoryID"
27: .DataBind()
28: End With
30: End Sub
32: Sub lstCategories_ItemCommand(s As Object, e As ListCommandEventArgs)
33: Dim intCategoryID As Integer = Int32.Parse(e.ListItem.Value)
34: ActiveForm = frmObjectList
35: BindObjectList(intCategoryID)
36: End Sub
Sub BindObjectList()では、商品テーブルから引数で指定された商品区分に属する商品のみ抽出して、ObjectListにバインドします。
38: Sub BindObjectList(intCategoryID As Integer)
39: Dim strSQL As String = "Select * From Products " & _
40: "Where CategoryID = ? " & _
41: "Order by ProductKana"
42: Dim strCon As String = ConfigurationSettings.AppSettings("conStringNw")
43: Dim con As New OleDbConnection(strCon)
44: Dim cmd As New OleDbCommand(strSQL, con)
45:
46: cmd.Parameters.Add("@CategoryID", OleDbType.Integer)
47: cmd.Parameters("@CategoryID").Value = intCategoryID
48:
49: con.Open()
50: With olstProducts
51: .DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
52: .DataBind()
53: End With
55: End Sub
57: Sub olstProducts_ShowItemCommands(s As Object, e As ObjectListShowCommandsEventArgs)
58: If e.ListItem("UnitsInStock") = 0 Then
59: e.Commands.Remove("Order")
60: e.Commands.Remove("Cancel")
61: End If
62: End Sub ASP.NET Mobileでモバイルサイトを構築するための技術情報を公開中
たとえばプログラム上で画像を出力する操作を行うとしたら、
データテーブル準備
Dim dt As DataTable = New DataTable()
Dim dr As DataRow
dt.Columns.Add(New DataColumn("フィールド名", GetType(String)))
dr = dt.NewRow()
ストアド呼び出し
Dim TAAdapter As ストアドtableAdapter = _
New ストアドTableAdapter
Dim dtTB As ストアドDataTable = ストアドDataTable
TAAdapter_new.Fill(dtTB, 引数…)
If Not IsDBNull(dtTB.Rows(0).Item("フィールド名 ")) Then
Select Case dtTB2_new.Rows(0).Item("フィールド名 ")
Case "1"
dr(4) = "http://k.yimg.jp/images/top/sp/logo.gif"
Case "2"
dr(4) = "http://homepage3.nifty.com/hirochang/titlea.gif"
Case "3"
dr(4) = "http://www.dab.hi-ho.ne.jp/takasito/Google.jpg"
Case "4"
dr(4) = "http://www.google.co.jp/intl/ja_jp/images/logo.gif"
Case "5"
dr(4) = "http://image.excite.co.jp/feed/snap/09_06_12_01.gif"
Case "6"
dr(4) = "http://oogle.com/images/logo2.png"
Case "7"
dr(4) = "http://k.yimg.jp/images/top/sp/logo.gif"
Case "8"
dr(4) = "http://k.yimg.jp/images/top/sp/logo.gif"
Case Else
End Select
End If
dt.Rows.Add(dr)
というプロセスを考えてみてほしい。
]]>
ニセイタoneforall.blog.shinobi.jp://entry/302009-05-27T00:08:53+09:002009-05-27T00:08:53+09:00ASP.NET au 文字化け 携帯開発 Mobile Development garbled
VISUALSTUDIO 2008 の 日本のモバイルサイト開発において、au で文字化けがおこるという事象に
見舞われた。
or
②
＜
globalization culture="ja-JP" requestEncoding="shift-jis" responseEncoding="shift-jis" enableBestFitResponseEncoding="true"
／＞
"shift_jis"
But
"shift-jis"
Au but brilliantly funny characters in the terminal has been eliminated.
Very wonderful.
]]>
ニセイタoneforall.blog.shinobi.jp://entry/292009-05-26T23:47:45+09:002009-05-26T23:47:45+09:00ASP.NET で 携帯サイト開発 Asp.net of Development of Japanese Mobile Site
まず、私の開発環境は VISUAL STUDIO 2008 + ＤＢは sqlserver 2005である。
ここで、開発経験のある方はピンとくるかもしれないが、日本の携帯サイト開発は
VISUAL STUDIO 2008 よりも、VISUAL STUDIO 2005 の方がすぐれているという事実がある。
なぜなら、VISUAL STUDIO 2005では 標準装備であった mobile control が2008では
After installing it VISUALSTUDIO2008 templates for mobile development,
Open the template for the mobile once developed, is to remove the existing WEB.confg
Also
Remember.
Web.config for mobile development and the need to use the web.config.
For each carrier VIEWER After downloading this, then, VISUALSTUDIO2008 of
Aspx template and active mobile development,
Select the browser from the file, for each carrier VIEWER of the registered exe
,
Before debugging, you can choose the provisions in the browser.
