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
| 
