ASP.NET(vb.net) & SQL Server Check Exists Rows Data - This is example scripts how to use ASP.NET check exists rows record in SQL Server table.
ShotDev Focus:
- ASP.NET(vb.net) & SQL Server Check Already Exists Add/Insert Record
Example
AspNetSQLServerExistsRecord.aspx
- <%@ Import Namespace="System.Data"%>
- <%@ Import Namespace="System.Data.SqlClient"%>
- <%@ Page Language="VB" %>
- <script runat="server">
- Dim objConn As New SqlConnection
- Dim objCmd As New SqlCommand
- Dim strConnString,strSQL As String
- Sub Page_Load(sender As Object, e As EventArgs)
- strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
- objConn.ConnectionString = strConnString
- objConn.Open()
- End Sub
- Sub btnSave_Click(sender As Object, e As EventArgs)
- Dim intNumRows As Integer
- strSQL = "SELECT COUNT(*) FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "
- objCmd = New SqlCommand(strSQL, objConn)
- intNumRows = objCmd.ExecuteScalar()
- IF intNumRows > 0 Then
- Me.pnlAdd.Visible = False
- Me.lblStatus.Visible = True
- Me.lblStatus.Text = "CustomerID already exists."
- Else
- 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 & "')"
- objCmd = New SqlCommand
- 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
- End IF
- End Sub
- Sub Page_UnLoad()
- 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">
- <asp:Label id="lblCustomerID" runat="server" text="CustomerID"></asp:Label></td>
- <td width="235">
- <asp:TextBox id="txtCustomerID" runat="server" Width="79px"></asp:TextBox>
- </td>
- </tr>
- <tr>
- <td>
- <asp:Label id="lblName" runat="server" text="Name"></asp:Label></td>
- <td>
- <asp:TextBox id="txtName" runat="server" Width="177px"></asp:TextBox>
- </td>
- </tr>
- <tr>
- <td>
- <asp:Label id="lblEmail" runat="server" text="Email"></asp:Label></td>
- <td>
- <asp:TextBox id="txtEmail" runat="server" Width="155px"></asp:TextBox>
- </td>
- </tr>
- <tr>
- <td>
- <asp:Label id="lblCountryCode" runat="server" text="CountryCode"></asp:Label></td>
- <td>
- <asp:TextBox id="txtCountryCode" runat="server" Width="38px"></asp:TextBox>
- </td>
- </tr>
- <tr>
- <td>
- <asp:Label id="lblBudget" runat="server" text="Budget"></asp:Label></td>
- <td>
- <asp:TextBox id="txtBudget" runat="server" Width="76px"></asp:TextBox>
- </td>
- </tr>
- <tr>
- <td>
- <asp:Label id="lblUsed" runat="server" text="Used"></asp:Label></td>
- <td>
- <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.
Loading ...