Home » , » Data Base Lanjutan (Koneksi dengan ADODB)

Data Base Lanjutan (Koneksi dengan ADODB)

Written By ibnu ridho on Kamis, 28 November 2013 | 22:33


Setelah kemarin kita belajar tentang membuat database, kemudian kita koneksikan menggunakan modul dan hasilnya database sudah terkoneksi. Perintah Simpan dan Tambah data juga sudah kita buat, maka selanjutnya kita akan buat tombol perintah yang lainnya. OK...Langsung saja, cekibroottt.....!!!

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

lalu double click pada button Next dan ketik coding sprti berikut :

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

lalu double click pada button Back dan ketik coding sprti berikut :

Private Sub Back_Click()
rsobat.MovePrevious
If rsobat.BOF Then
rsobat.MoveFirst
Exit Sub
End If
Tampil

End Sub

9. Selanjutnya kita membuat fungsi tombol First dan Last. Double click pada tombol first, lalu

ketik coding berikut.!

Private Sub First_Click()
rsobat.MoveFirst
MsgBox "Ini Record Awal.", vbInformation, "Pesan"
Tampil
End Sub

Double click pada tombol Last, lalu ketik coding berikut..!

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

Jalankan programnya, dan fungsikan tombolnya..!

0 komentar:

Diberdayakan oleh Blogger.