Aracılığıyla paylaş

Nasıl yapılır: LINQ Kullanarak Verileri Sayma, Toplama veya Ortalama (Visual Basic)

Language-Integrated Sorgusu (LINQ), veritabanı bilgilerine erişmeyi ve sorguları yürütmeyi kolaylaştırır.

Aşağıdaki örnekte, SQL Server veritabanında sorgular gerçekleştiren yeni bir uygulamanın nasıl oluşturulacağı gösterilmektedir. Örnek, Aggregate ve Group By yan tümcelerini kullanarak sonuçları sayar, toplar ve ortalamasını alır. Daha fazla bilgi için bkz. Aggregate Clause ve Group By Clause.

Bu makaledeki örneklerde Northwind örnek veritabanı kullanılmıştır. Veritabanını edinmek için bkz. Örnek Veritabanlarını İndirme..

Not

Bilgisayarınız, aşağıdaki yönergelerde bazı Visual Studio kullanıcı arabirimi öğeleri için farklı adlar veya konumlar gösterebilir. Sahip olduğunuz Visual Studio sürümü ve kullandığınız ayarlar bu öğeleri belirler. Daha fazla bilgi için bkz. IDE kişiselleştirme.

Veritabanına bağlantı oluşturmak için

  1. Visual Studio'da, Görünüm menüsünde /Veritabanı Gezgini tıklayarak /Veritabanı Gezgini açın.

  2. Sunucu Gezgini/Veri Bağlantıları sağ tıklayın ve Bağlantı Ekleöğesine tıklayın.

  3. Northwind örnek veritabanı için geçerli bir bağlantı belirtin.

LINQ to SQL dosyası içeren bir proje eklemek için

  1. Visual Studio'da, Dosya menüsünde Yeni üzerine gelin ve Projeöğesine tıklayın. Proje türü olarak Visual Basic Windows Forms Uygulaması'ni seçin.

  2. Project menüsünde Yeni Öğe Ekletıklayın. LINQ to SQL Sınıfları öğe şablonunu seçin.

  3. dosyayı northwind.dbmlolarak adlandırın. Ekle'ye tıklayın. Nesne İlişkisel Tasarımcısı (O/R Tasarımcısı) northwind.dbml dosyası için açılır.

O/R Tasarımcısı'na sorguya tablo eklemek için

  1. Sunucu Gezgini/Veritabanı Gezginiiçinde, Northwind veritabanı bağlantısını genişletin. Tablolar klasörünü genişletin.

    O/R Tasarımcısı'nı kapattıysanız, daha önce eklediğiniz northwind.dbml dosyasına çift tıklayarak yeniden açabilirsiniz.

  2. Müşteriler tablosuna tıklayın ve tasarımcının sol bölmesine sürükleyin. Siparişler tablosuna tıklayın ve tasarımcının sol bölmesine sürükleyin.

    Tasarımcı, projeniz için yeni Customer ve Order nesneleri oluşturur. Tasarımcının tablolar arasındaki ilişkileri otomatik olarak algılayıp ilgili nesneler için alt özellikler oluşturduğuna dikkat edin. Örneğin IntelliSense, Customer nesnesinin bu müşteriyle ilgili tüm siparişler için bir Orders özelliği olduğunu gösterir.

  3. Değişikliklerinizi kaydedin ve tasarımcıyı kapatın.

  4. Projenizi kaydedin.

Veritabanını sorgulamak ve sonuçları görüntülemek için kod eklemek için

  1. Araç Kutusu'den, bir adet DataGridView denetimini, projeniz için varsayılan Windows Formu olarak adlandırılan Form1'e sürükleyin.

  2. Formun Load olayına kod eklemek için Form1'e çift tıklayın.

  3. O/R Tasarımcısı'na tablo eklediğinizde tasarımcı projeniz için bir DataContext nesnesi ekledi. Bu nesne, bu tablolara erişmek ve her tablo için tek tek nesnelere ve koleksiyonlara erişmek için ihtiyacınız olan kodu içerir. Projenizin DataContext nesnesi, .dbml dosyanızın adına göre adlandırılır. Bu proje için DataContext nesnesi northwindDataContextolarak adlandırılır.

    Kodunuzda bir DataContext örneği oluşturabilir ve O/R Tasarımcısı tarafından belirtilen tabloları sorgulayabilirsiniz.

    Load özellikleri olarak sunulan tabloları sorgulamak ve sonuçları saymak, toplamak ve ortalamasını almak için aşağıdaki kodu DataContext olayına ekleyin. Örnek, tek bir sonucu sorgulamak için Aggregate yan tümcesini ve gruplandırılmış sonuçların ortalamasını göstermek için Group By yan tümcesini kullanır.

    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. Projenizi çalıştırmak ve sonuçları görüntülemek için F5 tuşuna basın.

Ayrıca bkz.

  • Last updated on