Mega Code Archive

 

Categories / VB.Net / ADO Database

 

Execute Scalar Example

Imports System Imports System.Data Imports System.Data.SqlClient     Public Class MainClass         Public Shared Sub ExecuteScalarExample(ByVal con As IDbConnection)             Dim com As IDbCommand = con.CreateCommand             com.CommandType = CommandType.Text             com.CommandText = "SELECT COUNT(*) FROM HumanResources.Employee;"             Dim result As Integer = CInt(com.ExecuteScalar)             Console.WriteLine("Employee count = " & result)         End Sub         Public Shared Sub Main()             Using con As New SqlConnection                 con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;"                 con.Open()                 ExecuteScalarExample(con)                 con.Close()             End Using         End Sub     End Class