Cara Menampilkan Database ke Textbox VB6

Kali ini, Tutorial Cara menampikan Data dari Database ke Textbox VB 6 Beserta Tombol Navigasinya. disini saya menggunakan Database SQL SERVER 2000. langkah pertama yaitu membuat Database, anda bisa liat langkahnya di Cara Membuat Database, selanjutnya Membuat koneksi Database di VB6, bisa dilihat di Cara Membuat Koneksi VB6. setelah Koneksi Selesai, kita lanjut di formnya, Terlebih dahulu buatlah Design form dan susun text box, Ini contoh: Design form saya :

Dalam tutorial Kali ini, yang dibutuhkan hanyalah yang ada di kotak merah, Kotak merah besar berisi Textbox-Textboxnya, dan kotak merah kecil meruakan Tombol-Tombol Navigasi. Sebaiknya anda memberi nama pada setiap Textbox dan Tombol navigasi. Selanjutnya buka dialog code pada form tersebut.

Disini Saya membuat Form Barang, untuk menampikan data barang :

'Pertama Deklarasikan variable buka tabel
Dim RsBarang As New ADODB.Recordset  ' selama form terbuka

Buat Procedure menampilkan Data Contoh :

Sub tampil()
With RsBarang
'fungsi IIF ini berfungsi jika Field bernilai Null maka difanti dg ""
    txtkodeBrg.Text = IIf(IsNull(!KodeBrg), "", !KodeBrg)
    txtnamaBrg.Text = IIf(IsNull(!NamaBrg), "", !NamaBrg)
    txtHBeli.Text = IIf(IsNull(!HBeli), "", !HBeli)
    txtHjual.Text = IIf(IsNull(!Hjual), "", !Hjual)
    txtStok.Text = IIf(IsNull(!Stok), "", !Stok)
    cmbSatuan.Text = IIf(IsNull(!Satuan), "", !Satuan)
End With
End Sub

Penjelasan : RsBarang adalah variable buka tabel dengan Recordset.

Fungsi IIF(IsNull(!namafield), "", !namafield) digunakan Untuk mengecek Data pada field Jika data Null atau kosong pada field maka isi textbox digantikan atau diisikan dengan kosong atau "", jika tidak salah penulisan name field ada 3 jenis, tetapi yang saya ingat adalah dengan (!namafield) tanda seru kemudian namafield, itu menurut saya lebih mudah. Prinsipnya untuk mengisi "Nama textbox.Text"=diisikan dengan data dari Databse (!namafield). Selanjutnya pada Form Load:

 Private Sub Form_Load()
'Buka koneksi
If cn.State <> 1 Then KoneksiDB
'Buka tabel Barang
RsBarang.Open "Select * from Barang", cn, adOpenDynamic, adLockOptimistic
'tampilkan Data --> panggil Procedure
call tampil

End Sub

Penjelasan :  cn.state <> 1 digunaka untuk mengecek apakah koneksi telah terhubung jika tidak buka koneksi dengan memanggil procedure koneksi yaitu Procedur keneksi saya KoneksiDB. Cara membuka Tabel gunakan Variable Buka tebel RsBarang.Open "Select * from nama tabel", cn ("cn adalah nama variable koneksi "Public cn As New ADODB.Connection" di modul saat membuat koneksi), adOpenDynamic adalah tipe cursor dan adLockOptimistic dalah tipe Lock atau penguncian terhadap Recordset, Tunggu artike Tipe Cursor dan Tipe Lock. kemudian "call tampil", yaitu memanggil procedur Tampil data yang kita buat diatas. code selesai untuk tampildata, selanjutnya tombol navigasi :

Private Sub cmdFirst_Click() ' Kode untuk memindahkan cursor pada posisi awal
    RsBarang.MoveFirst
    tampil
End Sub

Private Sub cmdLast_Click() ' Kode untuk memindahkan cursor pada posisi Akhir
    RsBarang.MoveLast
    tampil
End Sub

Private Sub cmdNext_Click() ' Kode untuk memindahkan cursor maju satu kedepan
    RsBarang.MoveNext
    If RsBarang.EOF Then
        MsgBox "Data Paling Akhir"
        RsBarang.MoveLast
    End If
    tampil
End Sub

Private Sub cmdPrev_Click()  'Kode untuk memindahkan cursor Mundur satu keBelakang
    RsBarang.MovePrevious
    If RsBarang.BOF Then
        MsgBox "Data Paling Awal"
        RsBarang.MoveFirst
    End If
    tampil
End Sub

Penjelasan : Tombol Navigasi terdapat 4 tombol, Yaitu Tombol First, Next, Previous, dan Last. untuk tombol First dan Last, cukup diketik nama recordset. "movefirst" pertama "movelast" terakhir, kemudia panggil procedure tampil. sedangkan untuk Next dan Prev harus ditambahkan rsbarang.EOF / rsbarang . BOF maksudnya jika data berada pada paling awal ("BOF, Begining of File") maka munculkan pesan "Data Paling Awal. jika data berada pada paling akhir ("EOF, End of File") maka munculkan pesan "Data Paling Akhir" karena jika tidak akan terjadi error. Selesai

Tutorial Selanjutnya Cara Menampilkan Database ke Listview. Ikuti Terus Tutorial VB6, pada akhir Tutorial saya akan Upload project Tutorial lengkap.

UPDATE Note : ini dia source code Project tutorial lengkap dengan database, file ini adalah materi sewaktu saya kuliah, saya harap file nya benar yg ini. Untuk sekarang saya sudah dan tidak sedang menggunakan vb6 dan  mengupdate blog ini. jadi mohon maaf untuk tidak bisa menjawab pertanyaan yang disampaikan, semoga tutorial di blog ini bermanfaat bagi mereka yg sedang dan akan belajar pemrograman vb6.

Terima kasih Telah Berkunjung, mohon maaf jika ada kesalahan.
Semoga infonya bermanfaat,!!