001.<%@ Import Namespace="System.Data"%>
002.<%@ Import Namespace="System.Data.OleDb"%>
003.<%@ Page Language="VB" %>
004.<script runat="server">
005. Sub Page_Load(sender As Object, e As EventArgs)
006. Dim dt As DataTable
007.
008.
009.
010.
011.
012.
013.
014.
015. dt = CreateDataSet.Tables(0)
016.
017.
018.
019.
020.
021. myGridView.DataSource = dt
022. myGridView.DataBind()
023. End Sub
024.
025.
026.
027. Function CreateDataTable() As DataTable
028. Dim objConn As New OleDbConnection
029. Dim dtAdapter As OleDbDataAdapter
030. Dim dt As New DataTable
031.
032.
033. Dim strConnString As String
034. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
035. objConn = New OleDbConnection(strConnString)
036. objConn.Open()
037.
038. Dim strSQL As String
039. strSQL = "SELECT * FROM customer"
040.
041. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
042. dtAdapter.Fill(dt)
043.
044. dtAdapter = Nothing
045.
046. objConn.Close()
047. objConn = Nothing
048.
049. Return dt
050.
051. End Function
052.
053.
054. Function CreateDataSet() As DataSet
055. Dim objConn As New OleDbConnection
056. Dim objCmd As New OleDbCommand
057. Dim dtAdapter As New OleDbDataAdapter
058.
059. Dim ds As New DataSet
060. Dim strConnString,strSQL As String
061.
062. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
063. strSQL = "SELECT * FROM customer"
064.
065. objConn.ConnectionString = strConnString
066. With objCmd
067. .Connection = objConn
068. .CommandText = strSQL
069. .CommandType = CommandType.Text
070. End With
071. dtAdapter.SelectCommand = objCmd
072.
073. dtAdapter.Fill(ds)
074.
075. dtAdapter = Nothing
076. objConn.Close()
077. objConn = Nothing
078.
079. Return ds
080.
081. End Function
082.
083.
084. Function CreateDsToDt() As DataTable
085. Dim objConn As New OleDbConnection
086. Dim objCmd As New OleDbCommand
087. Dim dtAdapter As New OleDbDataAdapter
088.
089. Dim ds As New DataSet
090. Dim dt As DataTable
091. Dim strConnString,strSQL As String
092.
093. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
094. strSQL = "SELECT * FROM customer"
095.
096. objConn.ConnectionString = strConnString
097. With objCmd
098. .Connection = objConn
099. .CommandText = strSQL
100. .CommandType = CommandType.Text
101. End With
102. dtAdapter.SelectCommand = objCmd
103.
104. dtAdapter.Fill(ds)
105. dt = ds.Tables(0)
106.
107. dtAdapter = Nothing
108. objConn.Close()
109. objConn = Nothing
110.
111. Return dt
112.
113. End Function
114.
115.
116. Function DataTableRows() As DataTable
117. Dim dt As New DataTable
118. Dim dr As DataRow
119.
120.
121. dt.Columns.Add("CustomerID")
122. dt.Columns.Add("Name")
123. dt.Columns.Add("Email")
124. dt.Columns.Add("CountryCode")
125. dt.Columns.Add("Budget")
126. dt.Columns.Add("Used")
127.
128.
129. dr = dt.NewRow
130. dr("CustomerID") = "C001"
131. dr("Name") = "Win Weerachai"
132. dr("Email") = "win.weerachai@thaicreate.com"
133. dr("CountryCode") = "TH"
134. dr("Budget") = "1000000"
135. dr("Used") = "600000"
136. dt.Rows.Add(dr)
137.
138.
139. dr = dt.NewRow
140. dr("CustomerID") = "C002"
141. dr("Name") = "John Smith"
142. dr("Email") = "john.smith@thaicreate.com"
143. dr("CountryCode") = "EN"
144. dr("Budget") = "2000000"
145. dr("Used") = "800000"
146. dt.Rows.Add(dr)
147.
148.
149. dr = dt.NewRow
150. dr("CustomerID") = "C003"
151. dr("Name") = "Jame Born"
152. dr("Email") = "jame.born@thaicreate.com"
153. dr("CountryCode") = "US"
154. dr("Budget") = "3000000"
155. dr("Used") = "600000"
156. dt.Rows.Add(dr)
157.
158.
159. dr = dt.NewRow
160. dr("CustomerID") = "C004"
161. dr("Name") = "Chalee Angel"
162. dr("Email") = "chalee.angel@thaicreate.com"
163. dr("CountryCode") = "US"
164. dr("Budget") = "4000000"
165. dr("Used") = "100000"
166. dt.Rows.Add(dr)
167.
168. Return dt
169. End Function
170.</script>
171.<html>
172.<head>
173.<title>ThaiCreate.Com ASP.NET - GridView</title>
174.</head>
175.<body>
176. <form id="form1" runat="server">
177. <asp:GridView id="myGridView" runat="server">
178. </asp:GridView>
179. </form>
180.</body>
181.</html>
