Mega Code Archive

 

Categories / VB.Net / ADO Database

 

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