Bagikan melalui

Cara: Menghitung, Menjumlahkan, atau Rata-Rata Data dengan Menggunakan LINQ (Visual Basic)

Language-Integrated Query (LINQ) memudahkan akses informasi database dan menjalankan kueri.

Contoh berikut menunjukkan cara membuat aplikasi baru yang melakukan kueri terhadap database SQL Server. Sampel menghitung, menjumlahkan, dan merata-ratakan hasil dengan menggunakan klausa Aggregate dan Group By. Untuk informasi selengkapnya, lihat Klausul Agregat dan Klausul Grup Berdasarkan.

Contoh dalam artikel ini menggunakan database sampel Northwind. Untuk mendapatkan database, lihat Mengunduh Database Sampel..

Nota

Komputer Anda mungkin menampilkan nama atau lokasi yang berbeda untuk beberapa elemen antarmuka pengguna Visual Studio dalam instruksi berikut. Edisi Visual Studio yang Anda miliki dan pengaturan yang Anda gunakan menentukan elemen-elemen ini. Untuk informasi lebih lanjut, lihat Mempersonalisasi IDE.

Untuk membuat koneksi ke database

  1. Di Visual Studio, buka Server Explorer/Database Explorer dengan mengklik Server Explorer/Database Explorer pada menu Tampilan.

  2. Klik kanan Koneksi Data di Server Explorer/Database Explorer lalu klik Tambah Koneksi.

  3. Tentukan koneksi yang valid ke database sampel Northwind.

Untuk menambahkan proyek yang berisi LINQ ke file SQL

  1. Di Visual Studio, pada menu File, pilih Baru, lalu klik Proyek. Pilih Visual Basic Aplikasi Windows Forms sebagai jenis proyek.

  2. Pada menu Proyek, klik Tambahkan Item Baru. Pilih templat item LINQ ke SQL Classes.

  3. Beri nama file northwind.dbml. Klik Tambahkan. Object Relational Designer (O/R Designer) dibuka untuk berkas northwind.dbml.

Untuk menambahkan tabel ke kueri di Perancang O/R

  1. Di Server Explorer/Database Explorer, perluas koneksi ke database Northwind. Buka folder Tabel.

    Jika Anda telah menutup Perancang O/R, Anda dapat membukanya kembali dengan mengklik dua kali file northwind.dbml yang Anda tambahkan sebelumnya.

  2. Klik tabel Pelanggan dan seret ke panel kiri perancang. Klik tabel Pesanan dan seret ke panel kiri perancang.

    Perancang membuat objek Customer dan Order baru untuk proyek Anda. Perhatikan bahwa perancang secara otomatis mendeteksi hubungan antara tabel dan membuat properti anak untuk objek terkait. Misalnya, IntelliSense akan menunjukkan bahwa objek Customer memiliki properti Orders untuk semua pesanan yang terkait dengan pelanggan tersebut.

  3. Simpan perubahan Anda dan tutup perancang.

  4. Simpan proyek Anda.

Untuk menambahkan kode untuk mengkueri database dan menampilkan hasilnya

  1. Dari Toolbox, seret kontrol DataGridView ke Formulir Windows default untuk proyek Anda, Form1.

  2. Klik dua kali Form1 untuk menambahkan kode ke event formulir Load.

  3. Saat Anda menambahkan tabel ke Perancang O/R, perancang menambahkan objek DataContext untuk proyek Anda. Objek ini berisi kode yang harus Anda miliki untuk mengakses tabel-tabel tersebut, serta untuk mengakses objek-objek dan koleksi-koleksi individual pada setiap tabel. Objek DataContext untuk proyek Anda dinamai berdasarkan nama file .dbml Anda. Untuk proyek ini, objek DataContext diberi nama northwindDataContext.

    Anda dapat membuat instans DataContext dalam kode Anda dan mengkueri tabel yang ditentukan oleh Perancang O/R.

    Tambahkan kode berikut ke dalam event Load untuk mengkuis tabel yang diekspos sebagai properti dari DataContext serta menghitung, menjumlahkan, dan menghitung rata-rata dari hasilnya. Sampel menggunakan klausa Aggregate untuk mengkueri satu hasil, dan klausa Group By untuk memperlihatkan rata-rata hasil yang dikelompokkan.

    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. Tekan F5 untuk menjalankan proyek Anda dan melihat hasilnya.

Lihat juga

  • Last updated on