Menampilkan Data Dari Database

Kali ini kita akan membahas bagaimana menampilkan data yang ada di database ke visual basic. Untuk lebih jelasnya lihatlah langkah-langkah di bawah ini.

1.      Buatlah sebuah form seperti gambar 4.2.

Gambar 4.2 Menampilkan Data Dari Database

3.   Tambahkanlah sebuah module dengan cara klik menu project, kemudian pilih add windows form.

4.      Ketikkan script di module. Scriptnya dapat dilihat di bawah ini.

11. Imports System.Data

22. Imports System.Data.OleDb

33. Module Module1

44. Public oconn As New OleDbConnection

55. Public conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=coba.accdb"

66. Public Sub bukadatabase()

77. If oconn.State = ConnectionState.Closed Then

88. oconn.ConnectionString = conStr

19. Try

210. oconn.Open()

311. Catch ex As Exception

412. MsgBox("koneksi gagal" & vbCr & ex.ToString)

513. Exit Sub

614. End Try

715.  End If

816.  End Sub

117. Public Sub tutupkoneksi()

218. Try

319. If oconn.State = ConnectionState.Open Then

420. oconn.Close()

521. Else

622. MsgBox("Koneksi belum terbentuk")

723. End If

824. Catch ex As Exception

925.  MsgBox("Gagal menutup koneksi" & vbCr & ex.ToString)

126. Exit Sub

127. End Try

128. End Sub

129. End Module

4.   Script di atas sama dengan script pada sub bab 4.1, hanya saja script tersebut kita letakkan di module agar kita dapat memanggil script tersebut apabila dibutuhkan di form lain yang kita buat sebelumnya.5.

5.   Double klik tombol tampilkan, kemudian isikan script di bawah ini. Yang perlu diingat penulis membuat name DataGridView dengan name dgbiodata.

1.  Imports System.Data

2.  Imports System.Data.OleDb

3.  Public Class Form1

4.      Private Sub cmdtampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtampilkan.Click

5.          bukadatabase()

6.          Dim sql As String = "SELECT * From tblbiodata"

7.          Dim da As New OleDbDataAdapter(sql, oconn)

8.          Dim ds As New DataSet

9.          da.Fill(ds)

10.         Dim dt As New DataTable

11.         For Each dt In ds.Tables

12.             dgbiodata.DataSource = dt

13.         Next

14.         dgbiodata.AutoGenerateColumns = True

15.         tutupkoneksi()

16.     End Sub

17. End Class

Penjelasan Script :

Baris 1            : Menghubungkan visual basic dengan database.

Baris 2            : Menghubungkan visual basic ke database dalam hal ini database access.

Baris 3            : Bekerja di form.

Baris 4            : Baris ini akan tampil otomatis, jika kita mendouble klik tombol tampilkan.

Baris 5            : Membuka database. Baris ini sebelumnya sudah dibuat di module, kita tinggal memanggilnya subnya saja.

Baris 6            : Memanggil isi tabel dengan perintah sql dan ditampung di variabel sql.

Baris 7            : Memanggil perintah sql dan oconn  dan ditampung ke dalam variabel da.

Baris 8            : Membuat dataset yang akan digunakan untuk menampung data dari database, dataset ini ditampung di variabel ds.

Baris 9            : Menampilkan isi ds.

Baris 10          : Membuat variabel yang bertipe datatable.

Baris 11          : Melakukan perulangan pada data yang telah di tamping di datatable sampai semua data ditampilkan.

Baris 12          : Menampilkan data ke dalam DataGridView.

Baris 13          : Mengakhiri perulangan for.

Baris 14          : Membuat tampilan kolom DataGridView dapat diperbesar dan diperkecil.

Baris 15          : Menutup koneksi, baris ini sudah di deklarasikan sebelumnya di module.

Catatan Kecil :

1.      DataGridView isinya dapat diedit,  dihapus, ditambah. Untuk mengatasi agar data yang berada di DataGridView tidak dapat diubah, dihapus ataupun ditambah maka anda dapat mengklik tanda panah yang terdapat di datagridview. Kemudian hilangkah tanda centang seperti gambar 4.3. 

Gambar 4.3 Menghilangkan Tanda Centang Di DataGridView

2.        AutoSizeColumsMode       : Properties ini berfungsi untuk membuat datagridview tampil penuh.

3.      Anda juga dapat menghilangkan kolom DataGridView misalnya anda ingin menghilangkan kolom pertama. Untuk lihatlah script di bawah ini.

dgbiodata.Columns.Item(0).Visible = False