MEMBUAT PROGRAM APLIKASI VB.6 DENGAN KONEKSI ADODB

MEMBUAT PROGRAM APLIKASI VB.6 DENGAN KONEKSI ADODB

Di sini kita akan mencoba membuat program sederhana tentang data obat yang mana database

dengan menggunakan Ms Accees (Mdb) dengan conection ADODB ( Portable).

1. Buatlah Form Tampilan Seperti dibawah ini ..!

2. Cari dan Aktifkan :

- Microsoft Aktivex data Objects 2.1 Library

- Microsoft DAO 2.5/3.51 Compability Library

3. Buatlah DataBase Pada Ms Access yang terdiri atas :

Field Name Data Type Field Size

Kd_Obat ( Pri key ) Text 10

Nama_Obat Text 20

Jenis_Obat Text 10

Stock Text 10

Harga Currency

Simpan DataBase Tersebut dengan Nama Obat dan Table dengan nama T_Obat, bagusnya simpan

dalam satu folder dengan VB, agar terlihat rapih.

4. Disini kita akan membuat koneksi untuk kedatabase dengan view code Module. Seperti

gambar dibawah ini :

- Klik kanan pada project, kemudian add dan klik module

- Klik Open

5. Ketiklah coding seperti di bawah ini pada view code module seperti di bawah ini :

Double Click pada Button New, Lalu ketikkan coding seperti berikut :

Global dbkoneksi As ADODB.Connection

Global rsobat As ADODB.Recordset

Sub koneksi()

Set dbkoneksi = New ADODB.Connection

dbkoneksi.Open "Provider=Microsoft.jet.Oledb.4.0; Data Source=" & App.Path & "\Obat.mdb"

Set rsobat = New ADODB.Recordset

rsobat.Open "select * from T_Obat", dbkoneksi, adOpenKeyset, adLockOptimistic

End Sub

6. Kemudian kembali ke form Obat, buka view code lalu ketikkan :

Private Sub Form_Load()

koneksi

End Sub

7. Tahap selanjutnya, kita coba membuat tombol ( button ) Save dan New.

Double Click pada Button New, Lalu ketikkan coding seperti berikut :

Private Sub New_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text1.Enabled = True

Text2.Enabled = True

Combo1.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text1.SetFocus

End Sub

Double Click pada Button Save, Lalu ketikkan Coding berikut :

Private Sub Save_Click()

On Error Resume Next

With rsobat

.AddNew

.Fields("Kd_Obat") = Text1

.Fields("Nama_Obat") = Text2

.Fields("Jenis_Obat") = Combo1

.Fields("Harga") = Text4

.Fields("Stock") = Text3

.Update

End With

sama:

If Err = -2147217887 Then

koneksi

Set rsobat = New ADODB.Recordset

rsobat.Open "select * from Obat", dbkoneksi, adOpenStatic, adLockOptimistic

MsgBox "Data Obat : " & Text1 & _

" sudah terdaftar", vbInformation, "Isi Kode Yang Lain"

Exit Sub

End If

Text1.Enabled = False

Text2.Enabled = False

Combo1.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

End Sub

Setelah selesai, Coba di RUN ( jalankan), lalu coba input 2 data dengan menjalankan tombol

save dan new. Lalu buka database accessnya, dan lihat data yang ada pada Tabel T_Obat, apakah

data tersebut masuk atau tidak, bila masuk berarti coding untuk tombol save berhasil, namun bila

tidak, cek field name yang ada pada database dengan yang di coding dan serta nama database dan

tabel, keduanya harus sesuai (sama), tidak boleh beda huruf sedikitpun besar dan kecilnya.