Cómo: Recuento, suma o promedio de datos mediante LINQ (Visual Basic)

Language-Integrated Consulta (LINQ) facilita el acceso a la información de la base de datos y la ejecución de consultas.

En el ejemplo siguiente se muestra cómo crear una nueva aplicación que realiza consultas en una base de datos de SQL Server. El ejemplo cuenta, suma y promedio los resultados mediante las cláusulas Aggregate y Group By. Para más información, consulte Cláusula Aggregate y Cláusula Group By.

En los ejemplos de este artículo se usa la base de datos de ejemplo Northwind. Para obtener la base de datos, consulte Descargar bases de datos de ejemplo..

Para crear una conexión a una base de datos

1. En Visual Studio, abra Explorador de servidores/Explorador de bases de datos haciendo clic en Explorador de servidores/Explorador de bases de datos en el menú ver .

2. Haga clic con el botón derecho en Conexiones de Datos en Explorador de Servidores/Explorador de Bases de Datos y, a continuación, haga clic en Agregar Conexión.

3. Especifique una conexión válida a la base de datos de ejemplo Northwind.

Para agregar un proyecto que contiene un archivo LINQ to SQL

1. En el menú Archivo de Visual Studio, apunte a Nuevo y haga clic en Proyecto. Seleccione Visual Basic Aplicación de Windows Forms como tipo de proyecto.

2. En el menú del proyecto , haga clic en Agregar nuevo ítem. Seleccione la plantilla de elemento Clases de LINQ to SQL.

3. Asigne al archivo el nombre northwind.dbml. Haga clic en Agregar. El Diseñador relacional de objetos (Diseñador de O/R) se abre para el archivo northwind.dbml.

Para agregar tablas a la consulta al Diseñador de O/R

1. En Explorador de servidores/Explorador de bases de datos, expanda la conexión a la base de datos Northwind. Expanda la carpeta Tablas .

   Si ha cerrado el Diseñador de O/R, puede volver a abrirlo haciendo doble clic en el archivo northwind.dbml que agregó anteriormente.

2. Haga clic en la tabla Clientes y arrástrela al panel izquierdo del diseñador. Haga clic en la tabla Pedidos y arrástrela al panel izquierdo del diseñador.

   El diseñador crea nuevos objetos Customer y Order para el proyecto. Observe que el diseñador detecta automáticamente las relaciones entre las tablas y crea propiedades secundarias para objetos relacionados. Por ejemplo, IntelliSense mostrará que el objeto Customer tiene una propiedad Orders para todos los pedidos relacionados con ese cliente.

3. Guarda los cambios y cierra el diseñador.

4. Guarde el proyecto.

Para agregar código para consultar la base de datos y mostrar los resultados

1. En el cuadro de herramientas , arrastre un control DataGridView al formulario predeterminado de Windows Forms para tu proyecto, Form1.

2. Haga doble clic en Form1 para agregar código al evento Load del formulario.

3. Al agregar tablas al Diseñador de O/R, el diseñador agregó un objeto DataContext para el proyecto. Este objeto contiene el código que debe tener para tener acceso a esas tablas y para tener acceso a objetos y colecciones individuales para cada tabla. El objeto DataContext del proyecto se denomina en función del nombre del archivo .dbml. Para este proyecto, el objeto DataContext se denomina northwindDataContext.

   Puede crear una instancia del DataContext en el código y consultar las tablas especificadas por el Diseñador de O/R.

   Agregue el siguiente código al evento Load para consultar las tablas que se exponen como propiedades de su DataContext y calcular el recuento, la suma y el promedio de los resultados. El ejemplo usa la cláusula Aggregate para consultar un único resultado y la cláusula Group By para mostrar un promedio para los resultados agrupados.

   Dim db As New northwindDataContext
   Dim msg = ""
   
   Dim londonCustomerCount = Aggregate cust In db.Customers
                             Where cust.City = "London"
                             Into Count()
   msg &= "Count of London Customers: " & londonCustomerCount & vbCrLf
   
   Dim averageOrderCount = Aggregate cust In db.Customers
                           Where cust.City = "London"
                           Into Average(cust.Orders.Count)
   msg &= "Average number of Orders per customer: " &
          averageOrderCount & vbCrLf
   
   Dim venezuelaTotalOrders = Aggregate cust In db.Customers
                              Where cust.Country = "Venezuela"
                              Into Sum(cust.Orders.Count)
   msg &= "Total number of orders from Customers in Venezuela: " &
          venezuelaTotalOrders & vbCrLf
   
   MsgBox(msg)
   
   Dim averageCustomersByCity = From cust In db.Customers
                                Group By cust.City
                                Into Average(cust.Orders.Count)
                                Order By Average
   
   DataGridView1.DataSource = averageCustomersByCity
   
   'Another way to grab the count and sum
   
   londonCustomerCount = (From cust in db.Customers
                          Where cust.City = "London").Count()
   
   venezuelaTotalOrders = (From cust in db.Customers
                           Where cust.Country = "Venezuela"
                           Select cust.Orders).Sum()
   

4. Presione F5 para ejecutar el proyecto y ver los resultados.

Consulte también

• LINQ
• Consultas
• LINQ a SQL
• Métodos DataContext (O/R Designer)
• Cláusula Aggregate
• Cláusula Group By