Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

61 - 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 nuevo comando 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

Buscar en Recursos vb