Membaca data dengan Datareader

Postingan kali ini mengenai datareader di VB.Net 2008, object ini digunakan khusus untuk membaca data dan sifatnya read only dan forward only. Read Only dalam artian object ini tidak dapat digunakan untuk melakukan manipulasi data. Forward Only sendiri berarti bahwa selama dalam proses pembacaan record maka datareader tersebut tidak dapat melakukan navigasi record ke record sebelumnya yang sudah dibaca.

Berikut adalah contoh penggunaan datareader. Siapkan sebuah database di SQL Server dengan nama testing dan sebuah tabel bernama t_obat. Berikut penampakan tabel t_obat. (SQL Query dapat didownload di akhir postingan ini)

Sekarang buatlah project baru di VB.Net 2008 dan beri nama Test_datareader. Buatlah form dengan tampilan seperti dibawah ini dengan menggunakan 1 label, 2 button dan 1 listbox.

Ketikan kode berikut ini untuk form diatas. Dalam kode ini datareader digunakan untuk membaca data dari database dan ditampilkan ke listbox.

 Imports System.Data.SqlClient  
 Public Class Form1  
   Private Sub ButtonCallDataReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCallDataReader.Click  
     Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     Dim koneksi As New SqlConnection(connectionString)  
     Using cmd As New SqlCommand  
       cmd.Connection = koneksi  
       cmd.CommandType = CommandType.Text  
       cmd.CommandText = "SELECT * FROM t_Obat"  
       Dim mydatareader As SqlDataReader = Nothing  
       Try  
         koneksi.Open()  
         mydatareader = cmd.ExecuteReader  
         While mydatareader.Read  
           ListBoxData.Items.Add(mydatareader(0) & " - " & mydatareader(1) & " - " & mydatareader(2))  
         End While  
       Catch ex As Exception  
         MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
       End Try  
     End Using  
   End Sub  
   Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click  
     Me.Close()  
   End Sub  
 End Class  

Sumber : http://aplikasivbnet.blogspot.com/2011/07/membaca-data-dengan-datareader.html