Menghubungkan Visual Basic Ke Database

Untuk melihat bagaimana visual basic dapat terhubung ke database. Ikuti langkah

langkah berikut ini. Tetapi sebelumnya penulis ingin memberi tahu bahwa penulis menggunakan database access 2007.

1.      Buatlah form seperti gambar 4.1.

Gambar 4.1 Koneksi Ke Database

1.      Aturlah propertiesnya seperti tabel berikut ini

Nama Kontrol (Toolbox)	Properties	Nilai
Button 1	Text	Buka Koneksi
	Name	cmdbuka
Button 2	Text	Koneksi Tutup
	Name	cmdtutup

Tabel 4.1  Properties Koneksi Ke Database

2.   Isikan scriptnya seperti berikut ini.

1.  Imports System.Data

2.  Imports System.Data.OleDb

3.  Public Class Form1

4.   

5.      Private oconn As New OleDbConnection

6.   

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

8.   

9.      Private Sub cmdbuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbuka.Click

10.         If oconn.State = ConnectionState.Closed Then

11.             oconn.ConnectionString = conStr

12.             Try

13.                 oconn.Open()

14.                 MsgBox("Koneksi Terbuka")

15.             Catch ex As Exception

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

17.                 Exit Sub

18.             End Try

19.         End If

20.     End Sub

21.  

22.     Private Sub cmdtutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtutup.Click

23.         Try

24.             If oconn.State = ConnectionState.Open Then

25.  

26.                 oconn.Close()

27.                 MsgBox("Koneksi telah ditutup")

28.             Else

29.                 MsgBox("Koneksi belum terbentuk")

30.             End If

31.         Catch ex As Exception

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

33.             Exit Sub

34.         End Try

35.  

36.     End Sub

37. End Class

Penjelasan Script :

Baris 1 dan 2              : Mengkoneksikan visual basic ke database.

Baris 5                        : Membuat koneksi baru dengan nama oconn.

Baris 7                        : Mengkoneksikan ke database access dengan nama database coba.accdb.

Baris 9                        : Baris ini otomatis muncul apabila anda mendouble klik tombol buka.

Baris 10                      : Mengecek kondisi database, jika kondisi database tertutup maka akan dibuka.

Baris 11                      : Menyatakan bahwa variabel oconn sama dengan variabel conStr.

Baris 12, 13, 14          : Membuka koneksi database.

Baris 15,16                 : Jika koneksi gagal dibuka.

Baris 17                      : Keluar dari sub.

Baris 18                      : Mengakhiri perintah pengecekkan keselahan dengan try.

Baris 19                      : Mengakhiri perintah IF.

Baris 22                      : Baris ini akan muncul otomatis, apabila anda mendouble klik tombol tutup.

Baris 23                      : Melakukan pengecekkan kesalahan dengan try.

Baris 24                      : Jika kondisi database dalam keadaan terbuka.

Baris 26 dan 27          : Menutup koneksi ke database.

Baris 28 dan 29          : Jika kita menekan tombol tutup, sementara kita belum membuka koneksi ke database (dalam hal ini kita belum menekan tombol buka).

Baris 30                      : Mengakhiri perintah IF.

Baris 31 dan 32          : Jika menutup koneksi ke database gagal.

Baris 33                      : Keluar dari sub.

Baris 34                      : Mengakhiri perintah pengecekkan kesalahan try.