MEMBUAT PROGRAM APLIKASI VB.6 DENGAN KONEKSI ADODB

------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
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
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
3. Buatlah DataBase Pada Ms Access yang terdiri atas :
Field Name Data Type Field Size
Kd_Barang ( Pri key ) Text 10
Nama_Barang Text 20
Jenis_Obat Text 10
Stock Text 10
Harga Currency 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
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
5. Ketiklah coding seperti di bawah ini pada view code module seperti di bawah ini :
6. Kemudian kembali ke form Obat, buka view code lalu ketikkan :
7. Tahap selanjutnya, kita coba membuat tombol ( button ) Save dan New.
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
Private Sub Form_Load()
koneksi
End Sub
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
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
Double Click pada Button Save, Lalu ketikkan Coding berikut :
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.
8. Tahap selanjutnya, kita coba membuat fungsi tombol Back dan next.Sebelum mengisi coding
Back dan Next, Kita buat Sub Tampil, yang mana berguna untuk memanggil data. Ketikkan
Sub Tampil seperti 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
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
lalu double click pada button Next dan ketik coding sprti berikut :
lalu double click pada button Back dan ketik coding sprti berikut :
Coba di jalankankan programnya, dan pastikan ada data yang sudah terisi..!!
Private Sub Tampil()
With rsobat
Text1 = .Fields("Kd_Obat")
Text2 = .Fields("Nama_Obat")
Combo1 = .Fields("Jenis_Obat")
Text3 = .Fields("Stock")
Text4 = .Fields("Harga")
End With
End Sub
Private Sub Next_Click()
rsobat.MoveNext
If rsobat.EOF Then
rsobat.MoveLast
Exit Sub
End If
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Tampil
End Sub
Private Sub Back_Click()
rsobat.MovePrevious
If rsobat.BOF Then
rsobat.MoveFirst
Exit Sub
End If
Tampil
End Sub
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
9. Selanjutnya kita membuat fungsi tombol First dan Last. Double click pada tombol first, lalu
ketik coding berikut.!
Double click pada tombol Last, lalu ketik coding berikut..!
Jalankan programnya, dan fungsikan tombolnya..!
Private Sub First_Click()
rsobat.MoveFirst
MsgBox "Ini Record Awal.", vbInformation, "Pesan"
Tampil
End Sub
Private Sub Last_Click()
rsobat.MoveLast
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
MsgBox "Ini Record Akhir.", vbInformation, "Pesan"
Tampil
End Sub
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
10. Selanjutnya kita membuat fungsi tombol Delete ( hapus ). Double click pada Button Delete,
lalu ketik coding berikut..!
Kemudian jalankan programnya, lalu di coba data yang ada untuk di delete..!
11. Selanjutnya kita buat fungsi tombol Find ( cari ). Double click pada button Find, lalu ketik
coding seperti berikut..!
Private Sub delete_Click()
On Error GoTo kosong
Dim Hapus
Hapus = MsgBox("Apakah Data Obat " & Text1 & " Mau DiHapus ?", vbCritical + vbYesNo,
"Delete...")
If Hapus = 6 Then
If rsobat.BOF Then
koneksi
Set dbkoneksi = Nothing
Set rsobat = Nothing
MsgBox "Data baseobat kosong", , "error database..."
Exit Sub
Else
rsobat.delete
rsobat.MoveLast
End If
End If
Tampil
kosong:
If Err = 91 Then
koneksi
End If
End Sub
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
Jalankan Programnya, dan fungsikan tombol find..!
12. Pada tahap ini kita membuat fungsi tombol Edit. Double click pada button Edit, lalu ketikan
coing berikut...!
Private Sub Find_Click()
On Error GoTo kosong
Dim cari As String
cari = InputBox("MAsukkan Kode Obat Yang Di Cari", "search ...")
rsobat.Close
rsobat.Open "select*from T_Obat where Kd_Obat='" & Trim(cari) & "'"
Tampil
koneksi
kosong:
If Err = 3021 Then
koneksi
rsobat.Close
rsobat.Open "select*from T_Obat", dbkoneksi
txtkodeobat = ""
txtnamaobat = ""
CboJns = ""
Cbosatuan = ""
Txthargaobat = ""
txtstockawal = ""
End If
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
------Dedicated for STMIK MH THAMRIN-------
Kal3w4ng8510 tetaplah Senyum...!!
Kemudian jalankan Program tersebut, pilih data yang akan di edit dan click tombol edit, bila
data sudah di edit, click tombol edit lagi.
13. Yang terakhirr..nehh... buat tombol keluar . Double click pada button Exit, lalu ktik coding
berikut..!
KelaarRRR ehhhHH..deehh...CoYYYY.....hehehehhheee...... Cobaainn...yehh..Coyy.....!!!!
Kalo kaga bisa..... Tanyaiinnn...Ama..Guru...NgaJiii...loee....haahahaa..... Kalo masihh..banyak yang
kurangg...kasihh..masukkan ke gw....yee...!!!!
Kalo mao di sebarinn..sebarinn ajee..Cooyyy... Itung2 dapet pahala...Hihihiiii..... Gudd.. LuccKK
Private Sub edit_Click()
On Error Resume Next
With rsobat
.Fields("Kd_Obat") = Text1
.Fields("Nama_Obat") = Text2
.Fields("Jenis_Obat") = Combo1
.Fields("Harga") = Text4
.Fields("Stock") = Text3
.Update
End With
If edit.Caption = "&edit" Then
edit.Caption = "Edit"
Text1.Enabled = False
Text2.Enabled = True
Combo1.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
sama:
If Err = -2147217887 Then
koneksi
Set rsobat = New ADODB.Recordset
rsobat.Open "select * from Obat", dbkoneksi, adOpenStatic, adLockOptimistic
MsgBox "Kode obat " & Text1.Text & " sudah ada.", vbExclamation, "Kode Obat Kembar"
Exit Sub
End If
Private Sub Exit_Click()
Unload Me
End Sub