web 2.0

ASP.NET(vb.net) & DataList - Oracle Database - System.Data.OracleClient

ASP.NET(vb.net) & DataList - Oracle Database - System.Data.OracleClient Example scripts how to use DataList control in asp.net , Using Connector System.Data.OracleClient namespace is the .NET Framework Data Provider how to the connect to Oracle Database.

ShotDev Focus:
- ASP.NET(vb.net) & DataList - Oracle Database - System.Data.OracleClient

Example

DataList1.aspx

  1. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="DataList1.aspx.vb" Inherits="DataList1" %>  
  2.   
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  4.   
  5. <html xmlns="http://www.w3.org/1999/xhtml" >  
  6. <head runat="server">  
  7. <title>ShotDev.Com Tutorial</title>  
  8. </head>  
  9. <body>  
  10. <form id="form1" runat="server" enctype="multipart/form-data">  
  11. <asp:DataList id="myDataList"  
  12. runat="server" RepeatColumns="2"  
  13. cellpadding="2"  
  14. cellspacing="2"  
  15. borderstyle="inset">  
  16. <HeaderTemplate>  
  17. <b>My Category</b><br/>  
  18. </HeaderTemplate>  
  19. <ItemTemplate>  
  20. <div style="width:100px" align="center">  
  21. <asp:Image id="imgPicture" runat="server"></asp:Image>  
  22. <br />  
  23. <asp:HyperLink id="hplCategory" runat="server"></asp:HyperLink>  
  24. <br />  
  25. <asp:LinkButton id="lnkEdit" runat="server" CommandName="Edit">Edit</asp:LinkButton>  
  26. </div>  
  27. </ItemTemplate>  
  28. <EditItemTemplate>  
  29. <asp:Label id="lblCateID" runat="server" Visible = "False" text='<%#Container.DataItem("CategoryID")%>'></asp:Label>  
  30. <asp:TextBox id="txtCategory" runat="server" text='<%#Container.DataItem("CategoryName")%>'></asp:TextBox><br />  
  31. <input id="filPicture" type="file" runat="server"><br />  
  32. &nbsp;<asp:LinkButton id="lnkUpdate" runat="server" CommandName="Update">Update</asp:LinkButton>  
  33. <asp:LinkButton id="lnkCancel" runat="server" CommandName="Cancel">Cancel</asp:LinkButton>  
  34. </EditItemTemplate>  
  35. </asp:DataList>  
  36. </form>  
  37. </body>  
  38. </html>  

DataList1.aspx.vb

  1. Imports system.Data  
  2. Imports System.Data.OracleClient  
  3. Partial Class DataList1  
  4. Inherits System.Web.UI.Page  
  5. Dim objConn As OracleConnection  
  6. Dim objCmd As OracleCommand  
  7. Dim strSQL As String  
  8.   
  9. Protected Sub Page_Load(ByVal sender As ObjectByVal e As System.EventArgs) Handles Me.Load  
  10. Dim strConnString As String  
  11. strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"  
  12. objConn = New OracleConnection(strConnString)  
  13. objConn.Open()  
  14.   
  15. If Not Page.IsPostBack() Then  
  16. BindData()  
  17. End If  
  18. End Sub  
  19.   
  20. Protected Sub BindData()  
  21. strSQL = "SELECT * FROM category"  
  22.   
  23. Dim dtReader As OracleDataReader  
  24. objCmd = New OracleCommand(strSQL, objConn)  
  25. dtReader = objCmd.ExecuteReader()  
  26.   
  27. '*** BindData to DataList ***'  
  28. myDataList.DataSource = dtReader  
  29. myDataList.DataBind()  
  30.   
  31. dtReader.Close()  
  32. dtReader = Nothing  
  33.   
  34. End Sub  
  35.   
  36. Protected Sub Page_Unload(ByVal sender As ObjectByVal e As System.EventArgs) Handles Me.Unload  
  37. objConn.Close()  
  38. objConn = Nothing  
  39. End Sub  
  40.   
  41. Protected Sub myDataList_CancelCommand(ByVal source As ObjectByVal e As DataListCommandEventArgs) Handles myDataList.CancelCommand  
  42. myDataList.EditItemIndex = -1  
  43. BindData()  
  44. End Sub  
  45.   
  46. Protected Sub myDataList_EditCommand(ByVal source As ObjectByVal e As DataListCommandEventArgs) Handles myDataList.EditCommand  
  47. myDataList.EditItemIndex = e.Item.ItemIndex  
  48. BindData()  
  49. End Sub  
  50.   
  51. Protected Sub myDataList_ItemDataBound(ByVal sender As ObjectByVal e As DataListItemEventArgs) Handles myDataList.ItemDataBound  
  52. '*** Image ***'  
  53. Dim img As Image = CType(e.Item.FindControl("imgPicture"), Image)  
  54. If Not IsNothing(img) Then  
  55. img.ImageUrl = "images/" & e.Item.DataItem("Picture")  
  56. 'img.Attributes.Add("OnClick","window.location='http://www.shotdev.com?CateID="&e.Item.DataItem("CategoryID")&"'")  
  57. 'img.Style.Add("cursor","hand")  
  58. End If  
  59.   
  60. '*** HyperLink ***'  
  61. Dim hplCate As HyperLink = CType(e.Item.FindControl("hplCategory"), HyperLink)  
  62. If Not IsNothing(hplCate) Then  
  63. hplCate.Text = e.Item.DataItem("CategoryName")  
  64. hplCate.ToolTip = e.Item.DataItem("CategoryName")  
  65. hplCate.NavigateUrl = "http://www.shotdev.com?CateID=" & e.Item.DataItem("CategoryID")  
  66. End If  
  67. End Sub  
  68.   
  69. Protected Sub myDataList_UpdateCommand(ByVal source As ObjectByVal e As DataListCommandEventArgs) Handles myDataList.UpdateCommand  
  70. '*** CategoryID ***'  
  71. Dim lblCateID As Label = CType(e.Item.FindControl("lblCateID"), Label)  
  72. '*** txtCategory ***'  
  73. Dim txtCategory As TextBox = CType(e.Item.FindControl("txtCategory"), TextBox)  
  74.   
  75. strSQL = "UPDATE category SET CategoryName = '" & txtCategory.Text & "' " & _  
  76. " WHERE CategoryID = " & lblCateID.Text & " "  
  77. objCmd = New OracleCommand(strSQL, objConn)  
  78. objCmd.ExecuteNonQuery()  
  79.   
  80. '*** If Select File Upload ***'  
  81. Dim filPicture As HtmlInputFile = CType(e.Item.FindControl("filPicture"), HtmlInputFile)  
  82. Dim strFileName As String  
  83. If Trim(filPicture.PostedFile.FileName) <> "" Then  
  84. strFileName = System.IO.Path.GetFileName(filPicture.Value)  
  85. filPicture.PostedFile.SaveAs(Server.MapPath(strFileName))  
  86. strSQL = "UPDATE category SET Picture = '" & strFileName & "' " & _  
  87. " WHERE CategoryID = " & lblCateID.Text & " "  
  88. objCmd = New OracleCommand(strSQL, objConn)  
  89. objCmd.ExecuteNonQuery()  
  90. End If  
  91.   
  92. myDataList.EditItemIndex = -1  
  93. BindData()  
  94. End Sub  
  95. End Class  

Create a asp.net file and save to path root-path/dotnet/

Run
http://localhost/dotnet/DataList1.aspx

Screenshot

ASP.NET(vb.net) & DataList - Oracle Database - System.Data.OracleClient

ASP.NET(vb.net) & DataList - Oracle Database - System.Data.OracleClient
.
.
.

Download this script.
Download

1 Star2 Stars3 Stars4 Stars5 Stars6 Stars7 Stars8 Stars9 Stars10 Stars (No Ratings Yet)
Loading ... Loading ...

Leave a Reply

You must be logged in to post a comment.