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