Execute Non Query Example
Imports System Imports System.Data Imports System.Data.SqlClient Public Class MainClass Public Shared Sub ExecuteNonQueryExample(ByVal con As IDbConnection) Dim com As IDbCommand = con.CreateCommand com.CommandType = CommandType.Text com.CommandText = "UPDATE HumanResources.Employee SET Title = 'Production Supervisor' WHERE EmployeeID = 24;" Dim result As Integer = com.ExecuteNonQuery Console.WriteLine(result) End Sub Public Shared Sub Main() Using con As New SqlConnection con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;" con.Open() ExecuteNonQueryExample(con) con.Close() End Using End Sub End Class