Útmutató: Lekérdezési eredmények szűrése LINQ használatával (Visual Basic)
A nyelvvel integrált 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, és hogyan szűri az eredményeket egy adott érték alapján a Where
záradék használatával. További információ: Hol található záradék.
A jelen témakör példái a Northwind mintaadatbázist használják. Ha nem rendelkezik ezzel az adatbázissal a fejlesztői számítógépén, letöltheti azt a Microsoft letöltőközpontból. Útmutatásért lásd : Mintaadatbázisok letöltése.
Feljegyzés
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ó: Az IDE személyre szabása.
Adatbázis-kapcsolat létrehozása
A Visual Studióban nyissa meg a Server Explorer/Adatbázis-kezelőt a Nézet menü Server Explorer/Adatbázis-kezelő parancsára kattintva.
Kattintson a jobb gombbal az Adat Csatlakozás parancsra a Kiszolgálókezelő/adatbázis-kezelőjében, majd kattintson az Add Csatlakozás ion (Csatlakozás ion hozzáadása) parancsra.
Adjon meg érvényes kapcsolatot a Northwind mintaadatbázishoz.
LINQ-t tartalmazó projekt hozzáadása AZ SQL-fájlhoz
A Visual Studio Fájl menüjében mutasson az Új pontra, majd kattintson a Project gombra. Projekttípusként válassza a Visual Basic Windows Forms-alkalmazást .
A Projekt menüben kattintson az Új elem hozzáadása elemre. Válassza ki a LINQ to SQL Classes elemsablont.
A fájl neve legyen
northwind.dbml
. Kattintson a Hozzáadás gombra. Megnyílik az Object Relational Tervező (O/R Tervező) a northwind.dbml fájlhoz.
Táblák hozzáadása lekérdezéshez az O/R Tervező
A Server Explorer/Database Explorerben bontsa ki a Northwind-adatbázishoz való kapcsolatot. Bontsa ki a Táblák mappát.
Ha bezárta az O/R Tervező, újra megnyithatja a korábban hozzáadott northwind.dbml fájlra duplán kattintva.
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
ésOrder
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 azt mutatja, hogy azCustomer
objektum rendelkezik azOrders
adott ügyfélhez kapcsolódó összes rendelés tulajdonságával.Mentse a módosításokat, és zárja be a tervezőt.
Mentse a projektet.
Kód hozzáadása az adatbázis lekérdezéséhez és az eredmények megjelenítéséhez
Az Eszközkészletből húzzon egy vezérlőt DataGridView a projekt alapértelmezett Windows-űrlapjára, a Form1 formátumra.
Az Űrlap1 gombra duplán kattintva kódot adhat hozzá az
Load
űrlap eseményéhez.Amikor táblákat adott hozzá az O/R Tervező, a tervező hozzáadott egy DataContext objektumot a projekthez. Ez az objektum tartalmazza azt a kódot, amelyet hozzá kell férnie a táblákhoz az egyes táblákhoz tartozó objektumokon és gyűjteményeken kívül. A DataContext projekt objektumának neve a .dbml fájl neve alapján történik. Ebben a projektben az DataContext objektum neve
northwindDataContext
.Létrehozhat egy példányt a DataContext kódban, és lekérdezheti az O/R Tervező által megadott táblákat.
Adja hozzá a következő kódot az eseményhez az
Load
adatkörnyezet tulajdonságaiként közzétett táblák lekérdezéséhez. A lekérdezés szűri az eredményeket, és csak a benne találhatóLondon
ügyfeleket adja vissza.Dim db As New northwindDataContext Dim customers_London = From cust In db.Customers Where cust.City = "London" Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.City, cust.Country DataGridView1.DataSource = customers_London
Nyomja le az F5 billentyűt a projekt futtatásához és az eredmények megtekintéséhez.
Az alábbiakban néhány további szűrőt is kipróbálhat.
Dim companies_H = From cust In db.Customers Where cust.Orders.Count > 0 And cust.CompanyName.StartsWith("H") Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.Country Dim customers_USA = From cust In db.Customers Where cust.Orders.Count > 15 And cust.Country = "USA" Select cust.CustomerID, cust.CompanyName, OrderCount = cust.Orders.Count, cust.Country