ASP.NET(vb.net) & Oracle Add/Insert Rows Record

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

ASP.NET(vb.net) & Oracle Add/Insert Rows Record - This is example scripts how to use ASP.NET add insert new rows to Oracle database.

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

Example

AspNetOracleAddInsert.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OracleClient"%>
<%@ Page Language="VB" %>
<script runat="server">

Sub Page_Load(sender As Object, e As EventArgs)

End Sub

Sub btnSave_Click(sender As Object, e As EventArgs)
Dim objConn As New OracleConnection
Dim objCmd As New OracleCommand
Dim strConnString,strSQL As String

strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"

strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
" VALUES " & _
" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"
objConn.ConnectionString = strConnString
objConn.Open()
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With

Me.pnlAdd.Visible = False

Try
objCmd.ExecuteNonQuery()
Me.lblStatus.Text = "Record Insert Sucessful."
Me.lblStatus.Visible = True
Catch ex As Exception
Me.lblStatus.Visible = True
Me.lblStatus.Text = "Record Cannot Insert : Error ("& ex.Message &")"
End Try

objConn.Close()
objConn = Nothing

End Sub

</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Panel id="pnlAdd" runat="server">
<table width="353" border="1">
<tbody>
<tr>
<td width="102">
&nbsp;<asp:Label id="lblCustomerID" runat="server" text="CustomerID"></asp:Label></td>
<td width="235">
&nbsp;<asp:TextBox id="txtCustomerID" runat="server" Width="79px"></asp:TextBox>
</td>
</tr>
<tr>
<td>
&nbsp;<asp:Label id="lblName" runat="server" text="Name"></asp:Label></td>
<td>
&nbsp;<asp:TextBox id="txtName" runat="server" Width="177px"></asp:TextBox>
</td>
</tr>
<tr>
<td>
&nbsp;<asp:Label id="lblEmail" runat="server" text="Email"></asp:Label></td>
<td>
&nbsp;<asp:TextBox id="txtEmail" runat="server" Width="155px"></asp:TextBox>
</td>
</tr>
<tr>
<td>
&nbsp;<asp:Label id="lblCountryCode" runat="server" text="CountryCode"></asp:Label></td>
<td>
&nbsp;<asp:TextBox id="txtCountryCode" runat="server" Width="38px"></asp:TextBox>
</td>
</tr>
<tr>
<td>
&nbsp;<asp:Label id="lblBudget" runat="server" text="Budget"></asp:Label></td>
<td>
&nbsp;<asp:TextBox id="txtBudget" runat="server" Width="76px"></asp:TextBox>
</td>
</tr>
<tr>
<td>
&nbsp;<asp:Label id="lblUsed" runat="server" text="Used"></asp:Label></td>
<td>
&nbsp;<asp:TextBox id="txtUsed" runat="server" Width="76px"></asp:TextBox>
</td>
</tr>
</tbody>
</table>
<br />
<asp:Button id="btnSave" onclick="btnSave_Click" runat="server" Text="Save"></asp:Button>
<br />
</asp:Panel>
<asp:Label id="lblStatus" runat="server" visible="False"></asp:Label>
</form>
</body>
</html>

Screenshot

.
.
.
Download this script.