Compartir vía

Cómo: Buscar el valor mínimo o máximo en un resultado de consulta mediante LINQ (Visual Basic)

  • Artículo

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 determina los valores mínimo y máximo de 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 Descarga de bases de datos de ejemplo.

Nota

El equipo puede mostrar nombres o ubicaciones diferentes para algunos de los elementos de la interfaz de usuario de Visual Studio en las instrucciones siguientes. La edición de Visual Studio que tiene y la configuración que usa determinan estos elementos. Para obtener más información, consulte Personalizar el IDE.

Creación de 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 el Server Explorer/Database Explorer y luego 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 Añadir nuevo elemento. 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.

Agregar tablas para consultar 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.

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

  1. En el Cuadro de herramientas, arrastra un control DataGridView a la instancia predeterminada de Windows Forms del 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, además de 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 código siguiente al evento Load. Este código consulta las tablas que se exponen como propiedades del contexto de datos y determina los valores mínimos y máximos 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 minimumOrders = Aggregate cust In db.Customers
                    Where cust.City = "London"
                    Into Min(cust.Orders.Count)

MsgBox("Minimum Orders from a London Customer: " & minimumOrders)

Dim maximumOrdersByCountry = From cust In db.Customers
                             Group By cust.Country
                               Into MaxOrders = Max(cust.Orders.Count)

DataGridView1.DataSource = maximumOrdersByCountry

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

Consulte también