web 2.0

ASP.NET(vb.net) & Oracle Edit/Update Rows Record

Author: admin | Posted: 13-06-2010 | Category: ASP.NET(vb.net) & Oracle (System.Data.OracleClient)

ASP.NET(vb.net) & Oracle Edit/Update Rows Record - This is  example scripts how to use ASP.NET edit update rows in Oracle database.

ShotDev Focus:
- ASP.NET(vb.net) & Oracle Edit/Update Rows Record

Example

AspNetOracleEditListRecord.aspx

view plaincopy to clipboardprint?
  1. <%@ Import Namespace="System.Data"%>  
  2. <%@ Import Namespace="System.Data.OracleClient"%>  
  3. <%@ Page Language="VB" %>  
  4. <script runat="server">  
  5.   
  6. Dim objConn As OracleConnection  
  7. Dim objCmd As OracleCommand  
  8.   
  9. Sub Page_Load(sender As Object, e As EventArgs)  
  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. BindData()  
  16. End Sub  
  17.   
  18. Sub BindData()  
  19. Dim strSQL As String  
  20. strSQL = "SELECT * FROM customer"  
  21.   
  22. Dim dtReader As OracleDataReader  
  23. objCmd = New OracleCommand(strSQL, objConn)  
  24. dtReader = objCmd.ExecuteReader()  
  25.   
  26. '*** BindData to Repeater ***'  
  27. myRepeater.DataSource = dtReader  
  28. myRepeater.DataBind()  
  29.   
  30. dtReader.Close()  
  31. dtReader = Nothing  
  32.   
  33. End Sub  
  34.   
  35. Sub Page_UnLoad()  
  36. objConn.Close()  
  37. objConn = Nothing  
  38. End Sub  
  39.   
  40. Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound  
  41.   
  42. '*** CustomerID ***'  
  43. Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)  
  44. IF Not IsNothing(lblCustomerID) Then  
  45. lblCustomerID.Text = e.Item.DataItem("CustomerID")  
  46. End IF  
  47.   
  48. '*** Name ***'  
  49. Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)  
  50. IF Not IsNothing(lblName) Then  
  51. lblName.Text = e.Item.DataItem("Name")  
  52. End IF  
  53.   
  54. '*** Email ***'  
  55. Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)  
  56. IF Not IsNothing(lblEmail) Then  
  57. lblEmail.Text = e.Item.DataItem("Email")  
  58. End IF  
  59.   
  60. '*** CountryCode ***'  
  61. Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)  
  62. IF Not IsNothing(lblCountryCode) Then  
  63. lblCountryCode.Text = e.Item.DataItem("CountryCode")  
  64. End IF  
  65.   
  66. '*** Budget ***'  
  67. Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)  
  68. IF Not IsNothing(lblBudget) Then  
  69. lblBudget.Text = e.Item.DataItem("Budget")  
  70. End IF  
  71.   
  72. '*** Used ***'  
  73. Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)  
  74. IF Not IsNothing(lblUsed) Then  
  75. lblUsed.Text = e.Item.DataItem("Used")  
  76. End IF  
  77.   
  78. '*** Hyperlink ***'  
  79. Dim hplEdit As Hyperlink = CType(e.Item.FindControl("hplEdit"),Hyperlink)  
  80. IF Not IsNothing(hplEdit) Then  
  81. hplEdit.Text = "Edit"  
  82. hplEdit.NavigateUrl = "AspNetOracleEditForm.aspx?CustomerID=" & e.Item.DataItem("CustomerID")  
  83. End IF  
  84.   
  85. End Sub  
  86.   
  87. </script>  
  88. <html>  
  89. <head>  
  90. <title>ShotDev.Com Tutorial</title>  
  91. </head>  
  92. <body>  
  93. <form id="form1" runat="server">  
  94. <asp:Repeater id="myRepeater" runat="server">  
  95. <HeaderTemplate>  
  96. <table border="1">  
  97. <tr>  
  98. <th>CustomerID</th>  
  99. <th>Name</th>  
  100. <th>Email</th>  
  101. <th>CountryCode</th>  
  102. <th>Budget</th>  
  103. <th>Used</th>  
  104. <th>Edit</th>  
  105. </tr>  
  106. </HeaderTemplate>  
  107. <ItemTemplate>  
  108. <tr>  
  109. <td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>  
  110. <td><asp:Label id="lblName" runat="server"></asp:Label></td>  
  111. <td><asp:Label id="lblEmail" runat="server"></asp:Label></td>  
  112. <td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>  
  113. <td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>  
  114. <td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>  
  115. <td align="right"><asp:Hyperlink id="hplEdit" runat="server"></asp:Hyperlink></td>  
  116. </tr>  
  117. </ItemTemplate>  
  118. </asp:Repeater>  
  119. </form>  
  120. </body>  
  121. </html>  

AspNetOracleEditForm.aspx

view plaincopy to clipboardprint?
  1. <%@ Import Namespace="System.Data"%>  
  2. <%@ Import Namespace="System.Data.OracleClient"%>  
  3. <%@ Page Language="VB" %>  
  4. <script runat="server">  
  5. Dim objConn As New OracleConnection  
  6. Dim objCmd As New OracleCommand  
  7. Dim dtReader As OracleDataReader  
  8. Dim strConnString,strSQL As String  
  9.   
  10. Sub Page_Load(sender As Object, e As EventArgs)  
  11. strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"  
  12. objConn.ConnectionString = strConnString  
  13. objConn.Open()  
  14.   
  15. IF Not Page.IsPostBack() Then  
  16. ViewData()  
  17. End IF  
  18. End Sub  
  19.   
  20. Sub ViewData()  
  21.   
  22. '*** DataTable ***'  
  23. Dim dtAdapter As OracleDataAdapter  
  24. Dim dt As New DataTable  
  25. strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "  
  26. dtAdapter = New OracleDataAdapter(strSQL, objConn)  
  27. dtAdapter.Fill(dt)  
  28.   
  29. If dt.Rows.Count > 0 Then  
  30. Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")  
  31. Me.txtName.Text = dt.Rows(0)("Name")  
  32. Me.txtEmail.Text = dt.Rows(0)("Email")  
  33. Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")  
  34. Me.txtBudget.Text = dt.Rows(0)("Budget")  
  35. Me.txtUsed.Text = dt.Rows(0)("Used")  
  36. End IF  
  37.   
  38. End Sub  
  39.   
  40. Sub btnSave_Click(sender As Object, e As EventArgs)  
  41.   
  42. strSQL = "UPDATE customer SET " & _  
  43. " CustomerID = '"& Me.txtCustomerID.Text &"' " & _  
  44. " ,Name = '"& Me.txtName.Text &"' " & _  
  45. " ,Email = '"& Me.txtEmail.Text &"' " & _  
  46. " ,CountryCode = '"& Me.txtCountryCode.Text &"' " & _  
  47. " ,Budget = '"& Me.txtBudget.Text &"' " & _  
  48. " ,Used = '"& Me.txtUsed.Text &"' " & _  
  49. " WHERE CustomerID = '" & Request.QueryString("CustomerID") & "' "  
  50.   
  51. objCmd = New OracleCommand  
  52. With objCmd  
  53. .Connection = objConn  
  54. .CommandText = strSQL  
  55. .CommandType = CommandType.Text  
  56. End With  
  57.   
  58. Me.pnlAdd.Visible = False  
  59. Try  
  60. objCmd.ExecuteNonQuery()  
  61. Me.lblStatus.Text = "Record Updated"  
  62. Me.lblStatus.Visible = True  
  63. Catch ex As Exception  
  64. Me.lblStatus.Text = "Record can not update"  
  65. End Try  
  66.   
  67. End Sub  
  68.   
  69. Sub Page_UnLoad()  
  70. objConn.Close()  
  71. objConn = Nothing  
  72. End Sub  
  73.   
  74. </script>  
  75. <html>  
  76. <head>  
  77. <title>ShotDev.Com Tutorial</title>  
  78. </head>  
  79. <body>  
  80. <form id="form1" runat="server">  
  81. <asp:Panel id="pnlAdd" runat="server">  
  82. <table width="353" border="1">  
  83. <tbody>  
  84. <tr>  
  85. <td width="102">  
  86. &nbsp;<asp:Label id="lblCustomerID" runat="server" text="CustomerID"></asp:Label></td>  
  87. <td width="235">  
  88. &nbsp;<asp:TextBox id="txtCustomerID" runat="server" Width="79px"></asp:TextBox>  
  89. </td>  
  90. </tr>  
  91. <tr>  
  92. <td>  
  93. &nbsp;<asp:Label id="lblName" runat="server" text="Name"></asp:Label></td>  
  94. <td>  
  95. &nbsp;<asp:TextBox id="txtName" runat="server" Width="177px"></asp:TextBox>  
  96. </td>  
  97. </tr>  
  98. <tr>  
  99. <td>  
  100. &nbsp;<asp:Label id="lblEmail" runat="server" text="Email"></asp:Label></td>  
  101. <td>  
  102. &nbsp;<asp:TextBox id="txtEmail" runat="server" Width="155px"></asp:TextBox>  
  103. </td>  
  104. </tr>  
  105. <tr>  
  106. <td>  
  107. &nbsp;<asp:Label id="lblCountryCode" runat="server" text="CountryCode"></asp:Label></td>  
  108. <td>  
  109. &nbsp;<asp:TextBox id="txtCountryCode" runat="server" Width="38px"></asp:TextBox>  
  110. </td>  
  111. </tr>  
  112. <tr>  
  113. <td>  
  114. &nbsp;<asp:Label id="lblBudget" runat="server" text="Budget"></asp:Label></td>  
  115. <td>  
  116. &nbsp;<asp:TextBox id="txtBudget" runat="server" Width="76px"></asp:TextBox>  
  117. </td>  
  118. </tr>  
  119. <tr>  
  120. <td>  
  121. &nbsp;<asp:Label id="lblUsed" runat="server" text="Used"></asp:Label></td>  
  122. <td>  
  123. &nbsp;<asp:TextBox id="txtUsed" runat="server" Width="76px"></asp:TextBox>  
  124. </td>  
  125. </tr>  
  126. </tbody>  
  127. </table>  
  128. <br />  
  129. <asp:Button id="btnSave" onclick="btnSave_Click" runat="server" Text="Save"></asp:Button>  
  130. <br />  
  131. </asp:Panel>  
  132. <asp:Label id="lblStatus" runat="server" visible="False"></asp:Label>  
  133. </form>  
  134. </body>  
  135. </html>  

Screenshot

ASP.NET(vb.net) & Oracle Edit/Update Rows Record

ASP.NET(vb.net) & Oracle Edit/Update Rows Record
.
.
.
Download this script.
Download

Category: ASP.NET(vb.net) & Oracle (System.Data.OracleClient) by admin

1 Star2 Stars3 Stars4 Stars5 Stars6 Stars7 Stars8 Stars9 Stars10 Stars (1 votes, average: 1.00 out of 10)
Loading ... Loading ...

One Response to “ASP.NET(vb.net) & Oracle Edit/Update Rows Record”

  1. 2botanical, on January 13th, 2022 at 07:03 Said:

    1virtually…

    …

Leave a Reply

You must be logged in to post a comment.