Sección de ejemplos vb.net

53 - Realizar cálculos con el método Compute en .NET

Simple ejemplo en vb.net 2005 , del método Compute para ejecutar cálculos en un DataSet o un objeto DataTable

El ejemplo es un formulario que carga una tabla que tiene cuatro campos :

Campo ID, campo Producto, Campo Precio, y Campo Fecha

Los datos se cargan en una grilla, y al pesionar un botón , se utiliza el método Compute para calcular el valor máximo usando la función MAX, el Valor mínimo con MIN, Contar registros estableciendo un criterio o filtro con COUNT , y sumar registros con la función SUM

Código fuente con los siguientes controles :

Un control Button
un DataGridView
Un textBox

Option Explicit On Option Strict On Imports System.Data.SqlClient Public Class Form1 ' Variables/declaraciones ' ''''''''''''''''''''''''''''''''''''''''''''''''''' Private dataset As DataSet ' Connection string Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Integrated Security=True;" & _ "Initial Catalog=" ' Botón para ejecutar el método Compute ' '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim sRet As String = String.Empty With dataset.Tables(0) ' Sumar la columna precio con la función SUM ( sin criterio ) ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim dRet As Double = CType(.Compute("SUM(Precio)", ""), Double) sRet = sRet & "1 - Total Columna precio : " & dRet.ToString & vbNewLine 'Contar los productos donde el precio sea mayor a 100 (Con criterio ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim iCount As Integer = CType(.Compute("Count(Precio)", "Precio > 100"), Integer) sRet = sRet & "2 - Cantidad de Productos > a 100 : " & iCount.ToString & vbNewLine 'Sacar el valor Máximo de la columna precios con MAX ( sin criterio ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim dMax As Double = CType(.Compute("MAX(Precio)", ""), Double) sRet = sRet & "3 - Valor Máximo de Precios : " & dMax.ToString & vbNewLine 'Sacar el valor Mínimo de la columna precios con MIN ( sin criterio ) Dim dMin As Double = CType(.Compute("MIN(Precio)", ""), Double) sRet = sRet & "4 - Valor mínimo de Precios : " & dMin.ToString & vbNewLine 'Sumar los precios donde el campo fecha es mayor o igual a: 01/01/2008 ( Con criterio ) Dim dTotal As Double = CType(.Compute("Sum(Precio)", "Fecha_Pedido>=#01/01/2008#"), Double) sRet = sRet & "5 - Total de Precios con fecha mayor a 01/01/2008 : " & dTotal.ToString & vbNewLine End With TextBox1.Text = sRet.ToString End Sub ' cargar el dataGridView ' '''''''''''''''''''''''''''''''''''''''''''''''' Public Sub cargar_datagridview( _ ByRef DataGridView As DataGridView, _ ByVal sql As String, _ ByVal db As String) Try ' establecer la conexión Using cn As New SqlConnection(cs & db) cn.Open() ' propiedades para el comando sql ''''''''''''''''''''''''''''''''''''''''' Dim cmd As New SqlCommand With cmd .CommandType = CommandType.Text .CommandText = sql .Connection = cn End With ' Nuevo SqlDataAdapter Dim da As New SqlDataAdapter 'Nuevo dataset dataset = New DataSet da.SelectCommand = cmd ' Cargar el dataset da.Fill(dataset) ' Enlazar el DataGridView con el dataset With DataGridView1 .DataSource = dataset.Tables(0) ' Formatear la columna Precio .Columns("Precio").DefaultCellStyle.Format = "c" End With End Using ' error Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub Private Sub Form1_FormClosing( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing dataset.Dispose() End Sub Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Compute" With TextBox1 .Multiline = True .ScrollBars = ScrollBars.Both End With ' llenar el datagridview cargar_datagridview(DataGridView1, _ "Select id,Producto,Precio,Fecha_Pedido from la_tabla", _ "la_base_de_datos") End Sub End Class

Recursos Vb.NET - Enlaces relacionados

Método ExecuteScalar de ADO.NET

Buscar en Recursos vb