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