Progress Monitor for IdealProgrammer.com

Take Swift, Intelligent, Massive, Planned, Loving, Effective (S.I.M.P.L.E.) Action to Transform Self into Ideal

Skip Repetitive Navigational Links

Home

News

Presenters

Contact

Please login

VB.NET ASP.NET Sql Command Update Statement Source Code Example

Description: Illustrates using Sql Command Update Statement in VB.NET ASP.NET.

Example Webform Code:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="SqlCommandUpdate.aspx.vb" Inherits="Database_ADONET_SqlCommandUpdate" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <table>
        <tr>
        <td>Find this First Name: </td><td>
        <asp:TextBox ID="txtFirstName" runat="server"></asp:TextBox>
        </td>
        </tr>
        <tr>
        <td>Update Last Name with this: </td><td>
        <asp:TextBox ID="txtLastName" runat="server"></asp:TextBox>
        </td>
        </tr>
        </table><br />
        <asp:Button ID="btnUpdate" runat="server" Text="Update" /><br />
        <asp:Label ID="lblErrMsg" runat="server" Text="lblErrMsg" ForeColor="#FF3300" 
            Visible="False"></asp:Label><br />
        <asp:GridView ID="GridView1" runat="server" DataSourceID="sdsEmployees">
        </asp:GridView>
        <asp:SqlDataSource ID="sdsEmployees" runat="server" 
            ConnectionString="<%$ ConnectionStrings:Northwind_ConnectionString %>" 
            SelectCommand="SELECT [FirstName], [LastName] FROM [Employees]">
        </asp:SqlDataSource>
    </div>
    </form>
</body>
</html>

Example Code Behind:

Imports System
Imports System.Data
Imports System.Data.SqlClient
 
Partial Class Database_ADONET_SqlCommandUpdate
    Inherits System.Web.UI.Page
 
    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim thisConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("Northwind_ConnectionString").ConnectionString)
 
        'Create Command object
        Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
 
        Try
            ' Open Connection
            thisConnection.Open()
 
            ' 1. Create Command
            ' Sql Update Statement
            Dim updateSql As String = _
               "UPDATE Employees " & _
               "SET LastName = @LastName " & _
               "WHERE FirstName = @FirstName"
            Dim UpdateCmd As New SqlCommand(updateSql, thisConnection)
 
            ' 2. Map Parameters
 
            UpdateCmd.Parameters.Add("@FirstName", _
               SqlDbType.NVarChar, 10, "FirstName")
 
            UpdateCmd.Parameters.Add("@LastName", _
               SqlDbType.NVarChar, 20, "LastName")
 
 
            UpdateCmd.Parameters("@FirstName").Value = txtFirstName.Text
            UpdateCmd.Parameters("@LastName").Value = txtLastName.Text
 
            UpdateCmd.ExecuteNonQuery()
 
        Catch ex As SqlException
            ' Display error
            lblErrMsg.Text = ex.ToString()
            lblErrMsg.Visible = True
 
        Finally
            ' Close Connection
            thisConnection.Close()
 
        End Try
        GridView1.DataBind()
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblErrMsg.Visible = False
 
    End Sub
End Class

Example Connection String:

<connectionStrings>
    <add name="Northwind_ConnectionString"
      connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI" />
    <add name="Pubs_ConnectionString"
      connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=pubs;Integrated Security=SSPI" />
  </connectionStrings>