MEMBUAT PROGRAM VISUAL BASIC DENGAN MENGKONEKSIKAN DATABASE MS.ACCES

Untuk dapat menghubungkan Visual BASIC dengan database Access, saya akan menggunakan komponen ADO Data Control (ADODC). Komponen ini dapat dihubungkan dengan beberapa komponen yang digunakan untuk mengakses data seperti textbox, datagrid, dsb. Untuk lebih jelasnya kita akan coba membuat sebuah program untuk mempraktekkan cara kerja ADODC. Pada program ini saya akan coba hubungkan database BANK yang telah saya buat dengan form

Visual BASIC.

Buatlah sebuah project baru dengan tipe project VB Standar EXE

Contoh, seperti terlihat gambar dibawah :

Sebelum membuat form,terlebih dahulu buatlah modul untuk mengkoneksikan database ke visual basic. Ketikkan perintah modul seperti dibawah ini :

Public koneksi As New ADODB.Connection

Public strKonek As String

Function konek() As Boolean

'On Error GoTo out

If koneksi.State = adStateOpen Then

koneksi.Close

End If

Set koneksi = New ADODB.Connection

strKonek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BANK.mdb;"

Call koneksi.Open(strKonek)

koneksi.CursorLocation = adUseClient

konek = True

out:

End Function

Sub main()

If konek() Then

MDIForm1.Show

Else

MsgBox "Gagal koneksi ke database!", vbCritical

End If

End Sub

Contoh gambar sebagai berikut :

Untuk pengaturan properties pada TDBGrid1 ini antara lain yang perlu dilakukan adalah :

· AllowAddnew, AllowArrow, AllowUpdate dan AllowDelete semuanya kita set True

· DataSource kita link ke Adodc yang ada yaitu Adodc2

· Properties lainnya dapat anda biarkan defaultnya, atau bisa juga anda atur sesuai keinginan.

· Untuk menambahkan data, kita dapat langsung menuliskannya dalam record TDBGrid.

· Untuk menghapus row, kita seleksi row tersebut ( arahkan mouse pada samping kiri TDBGrid hingga mouse icon berbentuk panah menyamping “ è “ ), lalu tekan tombol Delete pada keyboard.

· Untuk berpindah record, anda dapat menggunakan up down left right pada keyboard, atau tombol pada Adodc sumbernya, atau langsung menggunakan klik mouse pada row yang diinginkan.

Pada command1 (baru) ketikkan perintah seperti dibawah ini :

Private sub command1_click()

text1.Text = ""

text2.Text = ""

text3.Text = ""

text1.Setfocus

End Sub

Contoh gambar sebagai berikut :

Pada command2 (simpan) ketikkan perintah seperti dibawah ini :

Private Sub Command2_Click()

With TblLayanan

!kode_Layanan = Text1.Text

!Nama_Layanan = Text2.Text

!previx = Text3.Text

.Update

End With

End Sub

Contoh gambar sebagai berikut :

Kemudian pada command3 (hapus) ketikkan perintah seperti dibawah ini :

Private Sub Command3_Click()

On Error GoTo out

If MsgBox("Apakah Data Ini Ingin Di Hapus", vbExclamation + vbYesNo) = vbYes Then

TblLayanan.Delete

'perintah SQL untuk menghapus data ditabel layanan

Else

MsgBox "Data tidak jadi dihapus", vbInformation

End If

Exit Sub

out:

End Sub

Contoh gambar sebagai berikut :

Pada command4 (keluar), ketikkan perintah sebagai berikut :

Private Sub Command4_Click()

Unload Me

End Sub

Contoh gambar sebagai berikut :

Untuk menampilkan form pada MDI form, ketikkan perintah dibawah ini :

Private Sub mnLayanan_Click()

FormLayanan.Show

End Sub

Private Sub mnnasabah_Click()

FormNasabah.Show

End Sub

Private Sub mnpeminjaman_Click()

FormPeminjaman.Show

End Sub

Private Sub mnpetugas_Click()

FormPetugas.Show

End Sub

Private Sub mntransaksi_Click()

FormTransaksi.Show

End Sub

Maka gambar yang akan ditampilkan akan seperti dibawah ini :

demikianlah semua form yang telah saya buat beserta perintah-perintah nya.

Mudah-mudahan apa yang telah saya buat ini bisa menjadi referensi bagi para pembaca.

Atas perhatiannya saya ucapkan terima kasih.