bag.2 Melakukan Query dengan VB.net ke SQL Server

Meneruskan dari POSTING yang sebelumnya. Kini kita akan belajar bagaimana menggunanakan fungsi ExecuteReader() dan DataReader(). Sebelumnya, tabel dengan nama TblPegawai telah berisi data seperti ini:

OK ok,, sekarang, masih di ruang lingkup hitam-putis alias konsol, bikin project baru, VB ConsolApplication. Namanya terserah.

Import dulu class sqlClientnya:

Imports System.Data.SqlClient

Lalu bikin koneksinya:

Dim con As New SqlConnection _

   ("Data Source=(local)\sqlexpress; " & _

   "Integrated Security=sspi; Database=master")

Deklarasikan sqlcommand sbg pengeksekusi query:

Dim Query As New SqlCommand

Lalu coba buka koneksi:

Try

con.Open()

Console.WriteLine("Koneksi Berhasil.")

Query.Connection = con

Catch ex As Exception

Console.WriteLine("Error Membuka Koneksi:" _

& vbNewLine & ex.ToString)

Console.ReadKey()

End 'Jika gagal program berhenti.

End Try

Isikan perintah SQLnya pada sqlcommandnya(Query):

Query.CommandText = "SELECT * FROM TblPegawai"

Deklarasikan SqlDataReader:

Dim Data As SqlDataReader

Eksekusi perintah SQLnya, dan tampung di datareader

Data = Query.ExecuteReader

Setelah itu, lakukan proses pembacaan data sesuai hasil eksekusi dari perintah SQL diatas

While Data.Read

      Console.WriteLine(" {0} - {1} - {2} - {3}", _

           Data(0), Data(1), Data(2), Data(3))

End While

Perulangan while akan berlangsung selama datareader masih bisa untuk di baca, atau dari baris pertama sampai baris terakhir. Nah, Array pada setiap perulangan merupakan nomor kolom dari baris data tersebut.

 Klik disini untuk download Listing Program bag 1 dan 2