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
| 
