Ejecutar comandos sql con ExecuteScalar

Sencillo código de muestra para usar el método ExecuteScalar de Ado.NET y poder consultar y recuperar valores desde una base de datos mediante las funciones de sql: Count, Max y Min, Sum etc...

El ejemplo conecta a una base de datos de sql , luego se crea un nuevocomando con una consulta para obtener el valor total con la función Count.

Por último ejecuta el método ExecuteScalar para retornar el valor total

Código fuente

Option Explicit On

Option Strict On

' espacio de nombres

Imports System.Data

Imports System.Data.SqlClient

' Formulario

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles MyBase.Load

'cadena de conexión para la base de datos

Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _"Initial Catalog=la base de datos;" & "Integrated Security=true"

' Inicializar

Dim conexion As New SqlConnection(cs)

Try

' Instanciar un SqlCommand para ejecutar el Select Count

Dim cmd As New SqlCommand("Select Count(*) As Total From Clientes", conexion)

' Ejecutar el Open para Abrir la conexión

conexion.Open()

Dim total As Integer = 0

' Ejecutar el método ExecuteScalar y devolver el registro pertenciente a la 'primera columna de la primer fila del conjunto de datos

total = CType(cmd.ExecuteScalar, Integer)

' convertir el tipo de datos a Integer

' Mostrar el resultado para el Total de Clientes

MsgBox("El total de Clientes es :" & total, MsgBoxStyle.Information) Catch exSql As SqlException

MsgBox(exSql.Message.ToString)

Catch ex As Exception

MsgBox(ex.Message.ToString)

Finally

' cerrar la conexión anterior

If conexion.State = ConnectionState.Open Then

conexion.Close()

End If

End Try

End Sub

End Class