ASP.NET(vb.net) & Oracle Random Rows Record - This is example scripts how to use ASP.NET random rows data or record from Oracle database.
ShotDev Focus:
- ASP.NET(vb.net) & Oracle Random Record
Example
AspNetOracleRandomRecord.aspx
- <%@ Import Namespace="System.Data"%>
- <%@ Import Namespace="System.Data.OracleClient"%>
- <%@ Page Language="VB" %>
- <script runat="server">
- Dim objConn As OracleConnection
- Dim objCmd As OracleCommand
- Sub Page_Load(sender As Object, e As EventArgs)
- Dim strConnString As String
- strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"
- objConn = New OracleConnection(strConnString)
- objConn.Open()
- BindData()
- End Sub
- Sub BindData()
- Dim strSQL As String
- strSQL = "SELECT * FROM ( SELECT * FROM customer ORDER BY dbms_random.value ) WHERE rownum <= 3"
- Dim dtReader As OracleDataReader
- objCmd = New OracleCommand(strSQL, objConn)
- dtReader = objCmd.ExecuteReader()
- '*** BindData to Repeater ***'
- myRepeater.DataSource = dtReader
- myRepeater.DataBind()
- dtReader.Close()
- dtReader = Nothing
- End Sub
- Sub Page_UnLoad()
- objConn.Close()
- objConn = Nothing
- End Sub
- Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound
- '*** CustomerID ***'
- Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
- IF Not IsNothing(lblCustomerID) Then
- lblCustomerID.Text = e.Item.DataItem("CustomerID")
- End IF
- '*** Name ***'
- Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
- IF Not IsNothing(lblName) Then
- lblName.Text = e.Item.DataItem("Name")
- End IF
- '*** Email ***'
- Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
- IF Not IsNothing(lblEmail) Then
- lblEmail.Text = e.Item.DataItem("Email")
- End IF
- '*** CountryCode ***'
- Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
- IF Not IsNothing(lblCountryCode) Then
- lblCountryCode.Text = e.Item.DataItem("CountryCode")
- End IF
- '*** Budget ***'
- Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
- IF Not IsNothing(lblBudget) Then
- lblBudget.Text = e.Item.DataItem("Budget")
- End IF
- '*** Used ***'
- Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
- IF Not IsNothing(lblUsed) Then
- lblUsed.Text = e.Item.DataItem("Used")
- End IF
- End Sub
- </script>
- <html>
- <head>
- <title>ShotDev.Com Tutorial</title>
- </head>
- <body>
- <form id="form1" runat="server">
- <asp:Repeater id="myRepeater" runat="server">
- <HeaderTemplate>
- <table border="1">
- <tr>
- <th>CustomerID</th>
- <th>Name</th>
- <th>Email</th>
- <th>CountryCode</th>
- <th>Budget</th>
- <th>Used</th>
- </tr>
- </HeaderTemplate>
- <ItemTemplate>
- <tr>
- <td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
- <td><asp:Label id="lblName" runat="server"></asp:Label></td>
- <td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
- <td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
- <td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
- <td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
- </tr>
- </ItemTemplate>
- </asp:Repeater>
- </form>
- </body>
- </html>
Screenshot
.
.
.
Download this script.
Loading ...