Catatan
Akses ke halaman ini memerlukan otorisasi. Anda dapat mencoba masuk atau mengubah direktori.
Akses ke halaman ini memerlukan otorisasi. Anda dapat mencoba mengubah direktori.
Saat menggunakan LINQ untuk mengkueri koleksi non-generik IEnumerable seperti ArrayList, Anda harus secara eksplisit mendeklarasikan jenis variabel rentang untuk mencerminkan jenis objek tertentu dalam koleksi. Misalnya, jika Anda memiliki objek ArrayList dari Student, Klausul From Anda seharusnya terlihat seperti ini:
Dim query = From student As Student In arrList
'...
Dengan menentukan jenis variabel rentang, Anda mengonversi setiap item dalam ArrayList menjadi Student.
Penggunaan variabel rentang yang di ketik secara eksplisit dalam ekspresi kueri setara dengan memanggil Cast metode . Cast melempar pengecualian jika pemeran yang ditentukan tidak dapat dilakukan. Cast dan OfType adalah dua metode Operator Kueri Standar yang beroperasi pada jenis non-generik IEnumerable . Di Visual Basic, Anda harus secara eksplisit memanggil Cast metode pada sumber data untuk memastikan jenis variabel rentang tertentu. Untuk informasi selengkapnya, lihat Mengetik Hubungan dalam Operasi Kueri (Visual Basic).
Contoh
Contoh berikut menunjukkan kueri sederhana melalui ArrayList. Perhatikan bahwa contoh ini menggunakan penginisialisasi objek saat kode memanggil Add metode , tetapi ini bukan persyaratan.
Imports System.Collections
Imports System.Linq
Module Module1
Public Class Student
Public Property FirstName As String
Public Property LastName As String
Public Property Scores As Integer()
End Class
Sub Main()
Dim student1 As New Student With {.FirstName = "Svetlana",
.LastName = "Omelchenko",
.Scores = New Integer() {98, 92, 81, 60}}
Dim student2 As New Student With {.FirstName = "Claire",
.LastName = "O'Donnell",
.Scores = New Integer() {75, 84, 91, 39}}
Dim student3 As New Student With {.FirstName = "Cesar",
.LastName = "Garcia",
.Scores = New Integer() {97, 89, 85, 82}}
Dim student4 As New Student With {.FirstName = "Sven",
.LastName = "Mortensen",
.Scores = New Integer() {88, 94, 65, 91}}
Dim arrList As New ArrayList()
arrList.Add(student1)
arrList.Add(student2)
arrList.Add(student3)
arrList.Add(student4)
' Use an explicit type for non-generic collections
Dim query = From student As Student In arrList
Where student.Scores(0) > 95
Select student
For Each student As Student In query
Console.WriteLine(student.LastName & ": " & student.Scores(0))
Next
' Keep the console window open in debug mode.
Console.WriteLine("Press any key to exit.")
Console.ReadKey()
End Sub
End Module
' Output:
' Omelchenko: 98
' Garcia: 97