001.<%@ Page Language="VB" %>
002.<%@ import Namespace="System.Data" %>
003.<%@ import Namespace="System.Data.OleDb" %>
004.<script runat="server">
005. Dim objConn As OleDbConnection
006. Dim objCmd As OleDbCommand
007. Dim sumTotal As Double
008.
009. Sub Page_Load(sender As Object, e As EventArgs)
010. Dim strConnString As String
011. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
012. Server.MapPath("database/mydatabase.mdb")&";"
013. objConn = New OleDbConnection(strConnString)
014. objConn.Open()
015.
016. BindData()
017. End Sub
018.
019. Sub BindData()
020. Dim strSQL As String
021. strSQL = "SELECT * FROM customer"
022.
023. Dim dtReader As OleDbDataReader
024. objCmd = New OleDbCommand(strSQL, objConn)
025. dtReader = objCmd.ExecuteReader()
026.
027.
028. myGridView.DataSource = dtReader
029. myGridView.DataBind()
030.
031. dtReader.Close()
032. dtReader = Nothing
033.
034. End Sub
035.
036. Sub Page_UnLoad()
037. objConn.Close()
038. objConn = Nothing
039. End Sub
040.
041. Private Sub myGridView_RowDataBound(sender As Object, e As GridViewRowEventArgs)
042.
043. Dim lblCustomerID As Label = CType(e.Row.FindControl("lblCustomerID"),Label)
044. IF Not IsNothing(lblCustomerID) Then
045. lblCustomerID.Text = e.Row.DataItem("CustomerID")
046. End IF
047.
048.
049. Dim lblName As Label = CType(e.Row.FindControl("lblName"),Label)
050. IF Not IsNothing(lblName) Then
051. lblName.Text = e.Row.DataItem("Name")
052. End IF
053.
054.
055. Dim lblEmail As Label = CType(e.Row.FindControl("lblEmail"),Label)
056. IF Not IsNothing(lblEmail) Then
057. lblEmail.Text = e.Row.DataItem("Email")
058. End IF
059.
060.
061. Dim lblCountryCode As Label = CType(e.Row.FindControl("lblCountryCode"),Label)
062. IF Not IsNothing(lblCountryCode) Then
063. lblCountryCode.Text = e.Row.DataItem("CountryCode")
064. End IF
065.
066.
067. Dim lblBudget As Label = CType(e.Row.FindControl("lblBudget"),Label)
068. IF Not IsNothing(lblBudget) Then
069. lblBudget.Text = FormatNumber(e.Row.DataItem("Budget"),2)
070. End IF
071.
072.
073. Dim lblUsed As Label = CType(e.Row.FindControl("lblUsed"),Label)
074. IF Not IsNothing(lblUsed) Then
075. lblUsed.Text = FormatNumber(e.Row.DataItem("Used"),2)
076. End IF
077.
078. sumTotal = sumTotal + e.Row.DataItem("Used")
079.
080.
081. Dim lblTotal As Label = CType(e.Row.FindControl("lblTotal"),Label)
082. IF Not IsNothing(lblTotal) Then
083. lblUsed.Text = FormatNumber(sumTotal,2)
084. End IF
085. End Sub
086.
087.</script>
088.<html>
089.<head>
090. <title>ThaiCreate.Com ASP.NET - GridView</title>
091.</head>
092.<body>
093.<form id="form1" runat="server">
094.<asp:GridView id="myGridView" runat="server" AutoGenerateColumns="False" onRowDataBound="myGridView_RowDataBound">
095.
096. <Columns>
097.
098. <asp:TemplateField HeaderText="CustomerID">
099. <ItemTemplate>
100. <asp:Label id="lblCustomerID" runat="server"></asp:Label>
101. </ItemTemplate>
102. </asp:TemplateField>
103.
104. <asp:TemplateField HeaderText="Name">
105. <ItemTemplate>
106. <asp:Label id="lblName" runat="server"></asp:Label>
107. </ItemTemplate>
108. </asp:TemplateField>
109.
110. <asp:TemplateField HeaderText="Email">
111. <ItemTemplate>
112. <asp:Label id="lblEmail" runat="server"></asp:Label>
113. </ItemTemplate>
114. </asp:TemplateField>
115.
116. <asp:TemplateField HeaderText="CountryCode">
117. <ItemTemplate>
118. <asp:Label id="lblCountryCode" runat="server"></asp:Label>
119. </ItemTemplate>
120. </asp:TemplateField>
121.
122. <asp:TemplateField HeaderText="Budget">
123. <ItemTemplate>
124. <asp:Label id="lblBudget" runat="server"></asp:Label>
125. </ItemTemplate>
126. </asp:TemplateField>
127.
128. <asp:TemplateField HeaderText="Used">
129. <ItemTemplate>
130. <asp:Label id="lblUsed" runat="server"></asp:Label>
131. </ItemTemplate>
132. </asp:TemplateField>
133.
134. <asp:TemplateField HeaderText="Total">
135. <ItemTemplate>
136. <asp:Label id="lblTotal" runat="server"></asp:Label>
137. </ItemTemplate>
138. </asp:TemplateField>
139.
140. </Columns>
141.</asp:GridView>
142.</form>
143.</body>
144.</html>
