Tahap Terahir (Koneksi Database dengan ADODB)

Tahap perahir kita akan membuat tombol Delete, Find, Edit dan Keluar. Oke langsung saja.....

10. Selanjutnya kita membuat fungsi tombol Delete ( hapus ). Double click pada Button Delete,
lalu ketik coding 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

11. Selanjutnya kita buat fungsi tombol Find ( cari ). Double click pada button Find, lalu ketik

coding seperti 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

12. Pada tahap ini kita membuat fungsi tombol Edit. Double click pada button Edit, lalu ketikan

coing berikut...!

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
End Sub

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..!

Private Sub Exit_Click()
Unload Me
End Sub

KelaarRRR ehhhHH..deehh...CoYYYY.....hehehehhheee...... Cobaainn...yehh..Coyy.....!!!!
Kalo kaga bisa..... Tanyaiinnn...Ama..Guru...NgaJiii.......haahahaa..... Kalo masihh..banyak yang
kurangg...kasihh..masukkan ke gw....yee...!!!!

Kalo mao di sebarinn..sebarinn ajee..Cooyyy... Itung2 dapet pahala...Hihihiiii..... Gudd.. LuccKK

JANGAN TAKUT GAGAL SEBELUM MENCOBA, OK!!

"MAN JADDA WAJADA"