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:

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
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:
- HTML
- CSS
- Classic ASP
- .NET (included in ASP section)
- AJAX
- Silverlight (in Microsoft Section)
- SharePoint (in Microsoft Section)
- Web Design
- Blogging
- SEO
- and much more

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:
- Install Visual Basic (Express or Standard Edition)
- Install SQL Server Express
- Download Northwind Database
- 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:
- Use VB 2008 (Express or Standard) Edition
- Create new project; select Console Application; name of Project could be VBNET_Syntax.
- Right-click project name in solution explorer; add new folder; name of folder could be DatabaseADONET
- Right-click folder; add class; class name could be clsSqlCommandUpdate.vb
- Copy code into clsSqlCommandUpdate.vb
- Copy code into Module1.vb
- 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
Step 2: Use View Plain to Cut-n-paste code into Module1.vb
Module Module1
Sub Main()
'***** DataBaseADONET *************
Dim mySqlCommandUpdate As New clsSqlCommandUpdate
mySqlCommandUpdate.Main()
End Sub
End Module
Related posts:
- C# SQL Update Statement Example – C# Sql Command – C# SQL Update Statement Example C# source code example illustrates how to use Sql Command...
- VB.NET Sql Command Delete Statement Source Code Example Example illustrates using VB.NET Sql Command Delete Statement and checking...
- C# Sql Command Delete Statement Source Code Example C# Source Code Example that illustrates using Sql Command Delete...
- VB.NET ASP.NET Sql Command Update Statement Source Code Example VB.NET ASP.NET Sql Command Update Statement Source Code Example...
- 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.

i want to sqlserver update coding using in vb.net coding in vb