Megosztás a következőn keresztül:

Útmutató: A lekérdezési eredmény minimális vagy maximális értékének megkeresése a LINQ (Visual Basic) használatával

Language-Integrated lekérdezés (LINQ) megkönnyíti az adatbázis-információk elérését és a lekérdezések végrehajtását.

Az alábbi példa bemutatja, hogyan hozhat létre olyan új alkalmazást, amely lekérdezéseket hajt végre egy SQL Server-adatbázison. A minta a Aggregate és Group By záradékok használatával határozza meg az eredmények minimális és maximális értékeit. További információ: összesítő záradék és csoportosítási záradék.

A cikkben szereplő példák a Northwind mintaadatbázist használják. Az adatbázis beszerzéséhez lásd: Mintaadatbázisok letöltése.

Jegyzet

Előfordulhat, hogy a számítógép különböző neveket vagy helyeket jelenít meg a Visual Studio felhasználói felületének egyes elemeihez az alábbi utasításokban. Ezeket az elemeket a Visual Studio-kiadás és a használt beállítások határozzák meg. További információért lásd: Az IDE személyre szabása.

Adatbázis-kapcsolat létrehozása

  1. A Visual Studio-ban nyissa meg Server Explorer/Database Explorer a Nézet menüben a /Database Explorer parancsára kattintva.

  2. Kattintson a jobb gombbal Server Explorer/ adatkapcsolatokra, majd kattintson Kapcsolat hozzáadásaparancsra.

  3. Adjon meg érvényes kapcsolatot a Northwind mintaadatbázishoz.

LINQ-t tartalmazó projekt hozzáadása AZ SQL-fájlhoz

  1. A Visual Studióban a Fájl menüben mutasson rá az Új elemre, majd kattintson a Projektre. Projekttípusként válassza a Visual Basic Windows Forms-alkalmazás lehetőséget.

  2. A Project menüben kattintson az Új tétel hozzáadásagombra. Válassza ki a LINQ-t az SQL-osztályok elemsablonhoz.

  3. Nevezze el a fájlt northwind.dbml. Kattintson a hozzáadása gombra. Az Object Relational Designer (O/R Designer) megnyílt a northwind.dbml fájlban.

Táblák hozzáadása lekérdezéshez az O/R Designerhez

  1. A Server Explorer/Database Explorerterületen bontsa ki a Northwind-adatbázishoz való kapcsolatot. Nyissa meg a Táblák mappát.

    Ha bezárta az O/R Designert, újra megnyithatja a korábban hozzáadott northwind.dbml fájlra duplán kattintva.

  2. Kattintson a Vevők táblára, és húzza a tervező bal oldali ablaktáblájára. Kattintson a Rendelések táblára, és húzza a tervező bal oldali ablaktáblájára.

    A tervező új Customer és Order objektumokat hoz létre a projekthez. Figyelje meg, hogy a tervező automatikusan észleli a táblák közötti kapcsolatokat, és gyermektulajdonságokat hoz létre a kapcsolódó objektumokhoz. Az IntelliSense például megmutatja, hogy a Customer objektum Orders tulajdonságot tartalmaz az adott ügyfélhez kapcsolódó összes rendeléshez.

  3. Mentse a módosításokat, és zárja be a tervezőt.

  4. Mentse el a projektet.

Kód hozzáadása az adatbázis lekérdezéséhez és az eredmények megjelenítéséhez

  1. A eszközkészlet-ból húzza a DataGridView vezérlőt az alapértelmezett Windows-űrlapra, a Form1-re.

  2. Kattintson duplán az Űrlap1 gombra, ha kódot szeretne hozzáadni az űrlap Load eseményéhez.

  3. Amikor táblákat adott hozzá az O/R Designerhez, a tervező hozzáadott egy DataContext objektumot a projekthez. Ez az objektum tartalmazza azt a kódot, amely szükséges a táblákhoz való hozzáféréshez, valamint az egyes táblákhoz tartozó objektumokat és gyűjteményeket. A projekt DataContext objektuma a .dbml fájl neve alapján lesz elnevezve. Ebben a projektben a DataContext objektum neve northwindDataContext.

    Létrehozhatja a DataContext egy példányát a kódban, és lekérdezheti az O/R Designer által megadott táblákat.

    Adja hozzá a következő kódot a Load eseményhez. Ez a kód lekérdezi az adatkörnyezet tulajdonságaiként közzétett táblákat, és meghatározza az eredmények minimális és maximális értékeit. A minta a Aggregate záradékot használja egyetlen eredmény lekérdezéséhez, a Group By záradék pedig a csoportosított eredmények átlagának megjelenítéséhez.

    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. A projekt futtatásához és az eredmények megtekintéséhez nyomja le F5.

Lásd még:

  • Last updated on