制定投影

發行項
05/22/2023

下列範例顯示 C# 中的 select 陳述式和 Visual Basic 中的 Select 陳述式如何與其他功能結合，以構成查詢投影。

範例 1

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句)，傳回 Customers 的連絡人名稱序列。

var nameQuery =
    from cust in db.Customers
    select cust.ContactName;

Dim nameQuery = From cust In db.Customers _
                Select cust.ContactName

範例 2

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句) 和「匿名型別」，傳回 Customers 的連絡人名稱和電話號碼序列。

var infoQuery =
    from cust in db.Customers
    select new { cust.ContactName, cust.Phone };

Dim infoQuery = From cust In db.Customers _
                Select cust.ContactName, cust.Phone

範例 3

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句) 和「匿名型別」，傳回員工的姓名和電話號碼序列。 FirstName 和 LastName 欄位會合併成單一欄位 (Name)，而在產生的序列中 HomePhone 欄位會重新命名為 Phone。

var info2Query =
    from emp in db.Employees
    select new
    {
        Name = emp.FirstName + " " + emp.LastName,
        Phone = emp.HomePhone
    };

Dim info2Query = From emp In db.Employees _
                 Select Name = emp.FirstName & " " & emp.LastName, _
             Phone = emp.HomePhone

範例 4

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句) 和「匿名型別」，傳回所有 ProductID 的序列和名為 HalfPrice 的計算值。此值設為 UnitPrice 除以 2。

var specialQuery =
    from prod in db.Products
    select new { prod.ProductID, HalfPrice = prod.UnitPrice / 2 };

Dim specialQuery = From prod In db.Products _
                   Select prod.ProductID, HalfPrice = CDec(prod.UnitPrice) / 2

範例 5

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句) 和「條件陳述式」，傳回產品名稱和產品可用性的序列。

var prodQuery =
    from prod in db.Products
    select new
    {
        prod.ProductName,
        Availability =
            prod.UnitsInStock - prod.UnitsOnOrder < 0
        ? "Out Of Stock" : "In Stock"
    };

Dim prodQuery = From prod In db.Products _
                Select prod.ProductName, Availability = _
                    If(prod.UnitsInStock - prod.UnitsOnOrder < 0, _
                    "Out Of Stock", "In Stock")

範例 6

下列範例使用 Visual Basic Select 子句 (C# 中的 select 子句) 和「已知型別」 (Name)，傳回員工姓名的序列。

public class Name
{
    public string FirstName = "";
    public string LastName = "";
}

 void empMethod()
 {
 Northwnd db = new Northwnd(@"c:\northwnd.mdf");
 var empQuery =
     from emp in db.Employees
     select new Name
     {
         FirstName = emp.FirstName,
         LastName = emp.LastName
     };
}

Public Class Name
    Public FirstName As String
    Public LastName As String
End Class

Dim db As New Northwnd("c:\northwnd.mdf")
Dim empQuery = From emp In db.Employees _
               Select New Name With {.FirstName = emp.FirstName, .LastName = _
                   emp.LastName}

範例 7

下列範例使用 Visual Basic 中的 Select 和 Where (C# 中的 select 和 where)，傳回倫敦客戶連絡人名稱的「篩選序列」。

var contactQuery =
    from cust in db.Customers
    where cust.City == "London"
    select cust.ContactName;

Dim contactQuery = _
    From cust In db.Customers _
    Where cust.City = "London" _
    Select cust.ContactName

範例 8

下列範例使用 Visual Basic 中的 Select 子句 (C# 中的 select 子句) 和「匿名型別」，傳回客戶相關資料的「合適子集」(Shaped Subset)。

var custQuery =
    from cust in db.Customers
    select new
    {
        cust.CustomerID,
        CompanyInfo = new { cust.CompanyName, cust.City, cust.Country },
        ContactInfo = new { cust.ContactName, cust.ContactTitle }
    };

Dim custQuery = From cust In db.Customers _
                Select cust.CustomerID, CompanyInfo = New With {cust.CompanyName, _
                    cust.City, cust.Country}, ContactInfo = _
                    New With {cust.ContactName, cust.ContactTitle}

範例 9

下列範例使用巢狀查詢，傳回下列結果：

所有訂單與其對應 OrderID 的序列。
訂單中有折扣之項目的序列。
不包含運送成本時所節省的金額。

var ordQuery =
    from ord in db.Orders
    select new
    {
        ord.OrderID,
        DiscountedProducts =
            from od in ord.OrderDetails
            where od.Discount > 0.0
            select od,
        FreeShippingDiscount = ord.Freight
    };

Dim ordQuery = From ord In db.Orders _
               Select ord.OrderID, DiscountedProducts = _
               (From od In ord.OrderDetails _
                Where od.Discount > 0.0 _
                Select od), _
           FreeShippingDiscount = ord.Freight

另請參閱

查詢範例

共用方式為