001.<%@ Import Namespace="System.Data"%>
002.<%@ Import Namespace="System.Data.OracleClient"%>
003.<%@ Page Language="VB" %>
004.<script runat="server">
005.
006. Dim objConn As OracleConnection
007. Dim objCmd As OracleCommand
008.
009. Sub Page_Load(sender As Object, e As EventArgs)
010. Dim strConnString As String
011. strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"
012. objConn = New OracleConnection(strConnString)
013. objConn.Open()
014.
015. BindData()
016. End Sub
017.
018. Sub BindData()
019. Dim strSQL As String
020. strSQL = "SELECT * FROM ( SELECT * FROM customer ORDER BY dbms_random.value ) WHERE rownum <= 3"
021.
022. Dim dtReader As OracleDataReader
023. objCmd = New OracleCommand(strSQL, objConn)
024. dtReader = objCmd.ExecuteReader()
025.
026.
027. myRepeater.DataSource = dtReader
028. myRepeater.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. Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound
041.
042.
043. Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
044. IF Not IsNothing(lblCustomerID) Then
045. lblCustomerID.Text = e.Item.DataItem("CustomerID")
046. End IF
047.
048.
049. Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
050. IF Not IsNothing(lblName) Then
051. lblName.Text = e.Item.DataItem("Name")
052. End IF
053.
054.
055. Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
056. IF Not IsNothing(lblEmail) Then
057. lblEmail.Text = e.Item.DataItem("Email")
058. End IF
059.
060.
061. Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
062. IF Not IsNothing(lblCountryCode) Then
063. lblCountryCode.Text = e.Item.DataItem("CountryCode")
064. End IF
065.
066.
067. Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
068. IF Not IsNothing(lblBudget) Then
069. lblBudget.Text = e.Item.DataItem("Budget")
070. End IF
071.
072.
073. Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
074. IF Not IsNothing(lblUsed) Then
075. lblUsed.Text = e.Item.DataItem("Used")
076. End IF
077. End Sub
078.
079.</script>
080.<html>
081.<head>
082.<title>ThaiCreate.Com ASP.NET - Oracle</title>
083.</head>
084.<body>
085. <form id="form1" runat="server">
086. <asp:Repeater id="myRepeater" runat="server">
087. <HeaderTemplate>
088. <table border="1">
089. <tr>
090. <th>CustomerID</th>
091. <th>Name</th>
092. <th>Email</th>
093. <th>CountryCode</th>
094. <th>Budget</th>
095. <th>Used</th>
096. </tr>
097. </HeaderTemplate>
098. <ItemTemplate>
099. <tr>
100. <td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
101. <td><asp:Label id="lblName" runat="server"></asp:Label></td>
102. <td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
103. <td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
104. <td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
105. <td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
106. </tr>
107. </ItemTemplate>
108. </asp:Repeater>
109. </form>
110.</body>
111.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
