VB.NET Sql Command Update Statement Source Code Example

"I tried to learn .NET by taking boot camp classes that cost me $6,000. After taking the classes, I discovered tons of free (and very cheap) videos on the internet created by experts in the field. I found the videos to be much better than the classrooms. The videos were presented by Microsoft presenters that knew the material backwards and forwards, and they were much cheaper and better than the classroom teachers. I have spent the last three years organizing and hunting down the videos for my own use and decided that all could benefit by sharing what I found." - Wade Harvey

Click Here for Free 24 hour pass to lynda.com.
I AM VERY EXCITED ABOUT THIS AMAZING NEW DISCOVERY
Over 40,000 Top-Notch Video Tutorials (or 3,452 hours) on Lynda.com
I had stumbled across Lynda.com many times before, but never stopped to try it out. I recently took the plunge and started using Lynda.com to help me improve my javascript skills (See Javascript Essential Training 2007 by Dori Smith). It has revolutionized my understanding of the language! I love the fact that the exercise files allow you to follow along in real time with what the instructor is saying. Learning by doing is an extremely powerful technique. I have to give the site an A+ for both quality and content.

I am planning on using Lynda Videos to help me improve in:

1. HTML
2. CSS
3. Classic ASP
4. .NET (included in ASP section)
5. AJAX
6. Silverlight (in Microsoft Section)
7. SharePoint (in Microsoft Section)
8. Web Design
9. Blogging
10. SEO
11. and much more

You can learn more about Lynda.com by watching the 5-minute video at About Lynda.com. If you are only focusing on .NET, you are missing out on the "big picture" and on many of the underlying fundamentals! To be an Ideal Programmer, you need to have the largest knowledge base possible.

Looking for premium .NET Training Videos? The best premium .NET Videos that I have found are at Learn Visual Studio. Those videos are only about 50 cents per hour, as compared to $25 per hour that other sites charge!

LearnVisualStudio is currently having a 25% off sale ($50 savings) and giving away a free membership to TrainingSpot ($60 value) when LVS Lifetime Membership is purchased.




Limited Time Offer: Free Lifetime Membership to Progress Monitor ($24.95 value) when you purchase any membership at Learn Visual Studio, Lynda Videos or any hosting account at DiscountASP - just forward order confirmation to harvey007@sbcglobal.net

VB.NET Sql Command Update Statement Source Code Example

Purpose: – Illustrates using Sql Command Update statement and checking the result.

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind Database
4. Attach Northwind Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use VB 2008 (Express or Standard) Edition
2. Create new project; select Console Application; name of Project could be VBNET_Syntax.
3. Right-click project name in solution explorer; add new folder; name of folder could be DatabaseADONET
4. Right-click folder; add class; class name could be clsSqlCommandUpdate.vb
5. Copy code into clsSqlCommandUpdate.vb
6. Copy code into Module1.vb
7. Click green arrow to start with debugging

Step 1: Use View Plain to Cut-n-paste code into clsSqlCommandUpdate.vb

Imports System
Imports System.Data
Imports System.Data.SqlClient


Public Class clsSqlCommandUpdate
    'Create Connection
    Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
        "integrated security=sspi;database=Northwind")


    
    
    Sub Main()

        OpenConnection()

        'Insert Rows to make sure they exist
        Console.WriteLine(vbCrLf)
        Console.WriteLine("***Insert Rows to make sure they exist***")
        InsertRows()

        'Display Rows Before Update
        Console.WriteLine(vbCrLf)
        Console.WriteLine("***Display Rows Before Update***")
        SelectRows()

        'Update Rows
        Console.WriteLine(vbCrLf)
        Console.WriteLine("***Perform Update***")
        UpdateRows()

        'Display Rows after update
        Console.WriteLine(vbCrLf)
        Console.WriteLine("***Display Rows After Update***")
        SelectRows()

        'Clean up with delete of all inserted rows
        Console.WriteLine(vbCrLf)
        Console.WriteLine("***Clean Up By Deleting Inserted Rows***")
        DeleteRows()

        ' Close Connection
        thisConnection.Close()
        Console.WriteLine("Connection Closed")

        Console.ReadLine()
    End Sub
    Sub OpenConnection()
        Try
            ' Open Connection
            thisConnection.Open()
            Console.WriteLine("Connection Opened")
        Catch ex As SqlException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        End Try
    End Sub
    Sub SelectRows()

        Try
            ' Sql Select Query 
            Dim sql As String = "SELECT * FROM Employees"
            Dim cmd As SqlCommand = New SqlCommand(sql, thisConnection)

            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader
            Dim strEmployeeID As String = "EmployeeID"
            Dim strFirstName As String = "FirstName"
            Dim strLastName As String = "LastName"

            Console.WriteLine("{0} | {1} | {2}", _
                   strEmployeeID.PadRight(10), _
                   strFirstName.PadRight(10), _
                   strLastName)
            Console.WriteLine("==========================================")
            While dr.Read()
                'reading from the datareader
                Console.WriteLine("{0} | {1} | {2}", _
                   dr("EmployeeID").ToString().PadRight(10), _
                   dr("FirstName").ToString().PadRight(10), _
                   dr("LastName"))
            End While
            dr.Close()
            Console.WriteLine("==========================================")

        Catch ex As SqlException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        End Try

    End Sub

    Sub InsertRows()


        'Insert Rows to make sure row exists before updating
        'Create Command object
        Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()

        Try

            ' Create INSERT statement with named parameters
            nonqueryCommand.CommandText = _
               "INSERT  INTO Employees (FirstName, LastName) VALUES (@FirstName, @LastName)"

            ' Add Parameters to Command Parameters collection
            nonqueryCommand.Parameters.Add("@FirstName", SqlDbType.VarChar, 10)
            nonqueryCommand.Parameters.Add("@LastName", SqlDbType.VarChar, 20)

            ' Prepare command for repeated execution
            nonqueryCommand.Prepare()

            ' Data to be inserted
            Dim names() As String = {"Wade", "David", "Charlie"}
            For i As Integer = 0 To 2
                nonqueryCommand.Parameters("@FirstName").Value = names(i)
                nonqueryCommand.Parameters("@LastName").Value = names(i)

                Console.WriteLine("Executing {0}", _
                   nonqueryCommand.CommandText)
                Console.WriteLine("Number of rows affected : {0}", _
                   nonqueryCommand.ExecuteNonQuery())
            Next i
        Catch ex As SqlException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        Finally
            

        End Try

    End Sub

    Sub UpdateRows()

        Try
            ' 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 = "Wade"
            UpdateCmd.Parameters("@LastName").Value = "Harvey"

            UpdateCmd.ExecuteNonQuery()

        Catch ex As SqlException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        End Try

    End Sub

    Sub DeleteRows()

        Try
            'Create Command objects
            Dim scalarCommand As New SqlCommand("SELECT COUNT(*) FROM Employees", thisConnection)

            ' Execute Scalar Query
            Console.WriteLine("Before Delete, Number of Employees = {0}", _
               scalarCommand.ExecuteScalar())


            ' Set up and execute DELETE Command
            'Create Command object
            Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
            nonqueryCommand.CommandText = _
               "DELETE FROM Employees WHERE " & _
               "Firstname='Wade'  or " & _
               "Firstname='Charlie' AND Lastname='Charlie' or " & _
               "Firstname='David' AND Lastname='David' "
            Console.WriteLine("Executing {0}", nonqueryCommand.CommandText)
            Console.WriteLine("Number of rows affected : {0}", _
               nonqueryCommand.ExecuteNonQuery())

            ' Execute Scalar Query
            Console.WriteLine("After Delete, Number of Employee = {0}", _
               scalarCommand.ExecuteScalar())

        Catch ex As SqlException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        End Try

    End Sub

End Class

Module Module1

    Sub Main()
        '***** DataBaseADONET *************

        Dim mySqlCommandUpdate As New clsSqlCommandUpdate
        mySqlCommandUpdate.Main()

        
    End Sub

End Module

Related posts:

1. C# SQL Update Statement Example – C# Sql Command – C# SQL Update Statement Example C# source code example illustrates how to use Sql Command...
2. VB.NET Sql Command Delete Statement Source Code Example Example illustrates using VB.NET Sql Command Delete Statement and checking...
3. C# Sql Command Delete Statement Source Code Example C# Source Code Example that illustrates using Sql Command Delete...
4. VB.NET ASP.NET Sql Command Update Statement Source Code Example VB.NET ASP.NET Sql Command Update Statement Source Code Example...
5. C# ASP.NET Sql Command Update Statement Source Code Example C# ASP.NET Sql Command Update Statement Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.