Contents of binsertv.aspx:
<%@ Page Language="VB" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.SqlClient" %> <script runat="server"> Sub Page_Load(sender As System.Object, e As System.EventArgs) End Sub Sub AddAcct(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim numa as Integer Dim strUpdateStmt As String Dim acctadded As String ' ' The page is tested for validity (Page.IsValid) before any update occurs ' results.InnerHtml="" if Page.IsValid then strUpdateStmt = "INSERT into glmaster (major,minor,sub1,sub2,acctdesc,balance) VALUES (" & _ mjr.Text & "," & _ mnr.Text & "," & _ s1.Text & "," & _ s2.Text & "," & _ "'" & ad.Text & "',0.0)" acctadded="Last Successful Account Add:<p>Major="+mjr.Text+"<br>" acctadded=acctadded+"Minor="+mnr.Text+"<br>" acctadded=acctadded+"Sub 1="+s1.Text+"<br>" acctadded=acctadded+"Sub 2="+s2.Text+"<br>" acctadded=acctadded+"Acct. Desc.="+ad.Text Try Dim myConnection = New SqlConnection("server=AUCKLAND;database=gl001;uid=gl001;pwd=11111;") Dim myCommand = New SqlCommand(strUpdateStmt, myConnection) myConnection.Open() numa = myCommand.ExecuteNonQuery() results.InnerHtml=acctadded+"<p>"+ numa.ToString & " record inserted OK." myConnection.Close() Call ClearForm Catch exc as exception if Instr(1, exc.tostring, "duplicate key") > 0 then results.InnerHtml="<b>ERROR:<br>The Account:</b><br>" & acctadded & "<br><b>already exists.<br> You cannot insert duplicate account numbers.</b>" else results.InnerHtml = "<b>* Error while Inserting</b>.<br />" _ + exc.Message + "<br />" + exc.Source end if End Try else end if End Sub Sub ClearForm() mjr.Text="" mnr.Text="" s1.Text="" s2.Text="" ad.Text="" End Sub </script> <html> <head> </head> <body> <center> <table border="1"> <tbody> <tr> <td> <img src="captsm.gif" /></td> <td valign="center" align="middle" bgcolor="#aaaaaa"> <font face="COMIC SANS MS"><font size="4"><b> The Simple Insert in VB.NET with Validation <hr /> Adds a row to <i>glmaster</i> </b></font></font></td> </tr> </tbody> </table> </center> <form id="Form1" method="post" runat="server"> <p> <asp:ValidationSummary id="ValidationSummary1" runat="server" HeaderText="Summary of Errors:"></asp:ValidationSummary> </p> <p> <asp:Label id="Label1" runat="server" Font-Bold="True">Enter the New Account Number and Description:</asp:Label> </p> <p> Major <asp:TextBox id="mjr" MaxLength="4" columns="4" Runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" EnableClientScript="False" Width="208px" Display="Dynamic" ControlToValidate="mjr" ErrorMessage="Major Account Code is Required"></asp:RequiredFieldValidator> <asp:RangeValidator id="RangeValidator1" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="mjr" ErrorMessage="Major Account must be between 0 and 9999" MinimumValue="0" MaximumValue="9999" Type="Integer"></asp:RangeValidator> <asp:CompareValidator id="CompareValidator1" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="mjr" ErrorMessage="Must be digits 0-9 only" Operator="DataTypeCheck" Type="Integer"></asp:CompareValidator> <br /> Minor <asp:TextBox id="mnr" MaxLength="4" columns="4" Runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="mnr" ErrorMessage="Minor Account Code is Required"></asp:RequiredFieldValidator> <asp:RangeValidator id="RangeValidator2" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="mnr" ErrorMessage="Minor Account must be between 0 and 9999" MinimumValue="0" MaximumValue="9999" Type="Integer"></asp:RangeValidator> <asp:CompareValidator id="CompareValidator2" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="mnr" ErrorMessage="Must be digits 0-9 only" Operator="DataTypeCheck" Type="Integer"></asp:CompareValidator> <br /> Sub 1 <asp:TextBox id="s1" MaxLength="4" columns="4" Runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="RequiredFieldValidator3" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s1" ErrorMessage="Sub Account1 is required"></asp:RequiredFieldValidator> <asp:RangeValidator id="RangeValidator3" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s1" ErrorMessage="Sub Account 1 must be between 0 and 9999" MinimumValue="0" MaximumValue="9999" Type="Integer"></asp:RangeValidator> <asp:CompareValidator id="CompareValidator3" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s1" ErrorMessage="Must be digits 0-9 only" Operator="DataTypeCheck" Type="Integer"></asp:CompareValidator> <br /> Sub 2 <asp:TextBox id="s2" MaxLength="4" columns="4" Runat="server"></asp:TextBox> <asp:RequiredFieldValidator id="RequiredFieldValidator4" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s2" ErrorMessage="Sub Account 2 is required"></asp:RequiredFieldValidator> <asp:RangeValidator id="RangeValidator4" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s2" ErrorMessage="Sub Account2 must be between 0 and 9999" MinimumValue="0" MaximumValue="9999" Type="Integer"></asp:RangeValidator> <asp:CompareValidator id="CompareValidator4" runat="server" EnableClientScript="False" Display="Dynamic" ControlToValidate="s2" ErrorMessage="Must be digits 0-9 only" Operator="DataTypeCheck" Type="Integer"></asp:CompareValidator> <br /> Account Description <asp:TextBox id="ad" MaxLength="50" columns="40" Runat="server"></asp:TextBox> <br /> <asp:RequiredFieldValidator id="RequiredFieldValidator5" runat="server" Display="Dynamic" ControlToValidate="ad" ErrorMessage="Account description cannot be blank"></asp:RequiredFieldValidator> <asp:RegularExpressionValidator id="RegularExpressionValidator1" runat="server" ControlToValidate="ad" ErrorMessage="A thru Z, a thru z, and blank are the ONLY allowable characters (50 characters maximum)" ValidationExpression="^[a-zA-Z0-9 ]{1,50}$"></asp:RegularExpressionValidator> </p> <p> <asp:Button id="btnAdd" onclick="AddAcct" Runat="server" Text="Add Account"></asp:Button> </p> </form> <p></p> <p> <font color="#ff0000"> <div id="results" runat="server"></div> </font> </p> </body> </html>
***** end of file *** printed: 156 lines on: 11/23/2009 6:01:19 AM