Entradas

Mostrando entradas de septiembre 25, 2010

Metodo Exceute Scalar en vb.net

'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.ToSt…