01.
<%@ Import
Namespace
=
"System.Data"
%>
02.
<%@ Import
Namespace
=
"System.Data.OracleClient"
%>
03.
<%@ Page Language=
"VB"
%>
04.
<script runat=
"server"
>
05.
06.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
07.
BindData()
08.
End
Sub
09.
10.
Sub
BindData()
11.
12.
Dim
ds
As
DataSet
13.
ds = CreateDataSet()
14.
15.
16.
Dim
dr
As
DataRow
17.
dr = ds.Tables(
"customer"
).NewRow()
18.
dr.Item(
"CustomerID"
) =
"C005"
19.
dr.Item(
"Name"
) =
"Weerachai Nukitram"
20.
dr.Item(
"Email"
) =
"webmaster@thaicreate.com"
21.
dr.Item(
"CountryCode"
) =
"TH"
22.
dr.Item(
"Budget"
) =
"2000000"
23.
dr.Item(
"Used"
) =
"100000"
24.
ds.Tables(
"customer"
).NewRow()
25.
ds.Tables(
"customer"
).Rows.Add(dr)
26.
27.
28.
29.
Me
.myDataGrid.DataSource = ds.Tables(0).DefaultView
30.
Me
.myDataGrid.DataBind()
31.
32.
End
Sub
33.
34.
35.
Function
CreateDataSet()
As
DataSet
36.
Dim
objConn
As
New
System.Data.OracleClient.OracleConnection
37.
Dim
objCmd
As
New
System.Data.OracleClient.OracleCommand
38.
Dim
dtAdapter
As
New
System.Data.OracleClient.OracleDataAdapter
39.
40.
Dim
ds
As
New
DataSet
41.
Dim
strConnString,strSQL
As
String
42.
43.
strConnString =
"Data Source=TCDB;User Id=myuser;Password=mypassword;"
44.
45.
strSQL =
"SELECT * FROM customer "
46.
objConn.ConnectionString = strConnString
47.
With
objCmd
48.
.Connection = objConn
49.
.CommandText = strSQL
50.
.CommandType = CommandType.Text
51.
End
With
52.
dtAdapter.SelectCommand = objCmd
53.
54.
dtAdapter.Fill(ds,
"customer"
)
55.
56.
dtAdapter =
Nothing
57.
objConn.Close()
58.
objConn =
Nothing
59.
60.
Return
ds
61.
62.
End
Function
63.
64.
</script>
65.
<html>
66.
<head>
67.
<title>ThaiCreate.Com ASP.NET - System.Data.OracleClient</title>
68.
</head>
69.
<body>
70.
<form id=
"form1"
runat=
"server"
>
71.
<asp:DataGrid id=
"myDataGrid"
AutoGenerateColumns=
"true"
runat=
"Server"
></asp:DataGrid>
72.
</form>
73.
</body>
74.
</html>