Cara Membuat Loading Database dengan Progressbar di VB6 - Pada pertemuan kali ini Saya kan memberikan tips bagaimana membuat Loading Data dengan ProgressBar di VB6.
Artikel ini adalah salah satu artikel permintaan pengunjung via Facebook yang isi pesannya berbunyi "Bagaimana cara membuat timer yang fungsinya menghitung waktu koneksi load data pada Datagrid", maka dengan senang hati Saya mencoba untuk membuatnya walau sedikit telat artikel ini saya terbitkan dengan alasan waktu dan kesibukan. Dengan terbitnya artikel ini mungkin bisa membantu maksud dari permintaan tersebut walaupun tidak sesuai harapan.
Pernahkah Anda melihat sebuah tampilan yang sedang meng-load sebuah data?.Dimana ketika kita meng-Load sebuah data ada sebuah semacam progressbar yang menampilkan sejauh mana proses itu berlangsung, dengan menampilkan persentase hasil dari pada men-load data tersebut.Kita Ambil contoh ketika kita meng-install sebuah aplikasi pasti kita menemukan memen ini, ada yang cukup dan ada yang sebentar tergantung dari isi file tersebut yang sedang di load.
Kali ini tip dan trik akan membuat tip tersebut secara sederhana saja. Baiklah sekarang langsung Saja ke Tutorial cara membuat Loading Data dengan ProgressBar di VB6:
Cara Membuat Loading Database dengan Progressbar di VB6
1. Buka Form VB6 Anda dan pilih Standar EXE
2. Buatlah Database dan Tabel-nya sesuai keinginan.Contoh Database yang Saya buat, Name Database teman Name Table:Tabel_Teman di simpan satu folder dengan Form ini
3. Sekarang kembali ke Form pilih Menu Project > References > Centang Microsot AciveX Objects 2.0 Library dan ok
4. Tambahkan Component dengan CTRL+T dan centang Microsof Windows Commom Controlls 5.0 kemudian Ok
5. Tanamkan pada Form : 1 DataGrid, 1 CommandButton, 1 Label dan 1 ProgresBar
6. Desainlah seperti Gambar dibawah ini :
 |
| FormDesain |
7. Setelah Anda selesai mendesain form sekarang buka jendela kode dan Copy-Paste kode dibawah ini di bagian General - Declarations
Option Explicit 'Setiap variabel yg digunakan harus dideklarasikan
Private WithEvents objRst As ADODB.Recordset
Private rsTotal As ADODB.Recordset
Private maks As Integer
Private Sub Command1_Click()
Dim strConn As String
Dim strSQL As String
'mouse menjadi bentuk Hourglass (jam pasir)
Screen.MousePointer = vbHourglass
DoEvents
'Sesuaikan lokasi database di PC Anda
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\teman.mdb;" & "Persist Security Info=False"
'Buat recordset baru untuk menampung jumlah record
Set rsTotal = New ADODB.Recordset
rsTotal.CursorLocation = adUseClient
rsTotal.Open "SELECT COUNT('nama') AS Jlh FROM Tabel_Teman", strConn 'sesuaikan nama Tabel Anda
'Tampung jumlah record seluruhnya dari rsTotal
maks = Val(rsTotal.Fields(0))
'Ambil data dari tabel t_mhs
strSQL = "SELECT * FROM Tabel_Teman"
'Buat recordset baru untuk melihat proses kemajuan
Set objRst = New ADODB.Recordset
objRst.CursorLocation = adUseClient
objRst.Properties("Initial Fetch Size") = 0
objRst.Properties("Background Fetch Size") = 1
DoEvents
'Inisialisasi jumlah record ke progressbar
ProgressBar1.Max = maks
ProgressBar1.Value = 0
'Buka tabel... di sini mulai proses pengambilan...
objRst.Open strSQL, strConn, adOpenKeyset, adLockOptimistic, adAsyncFetch
DoEvents
End Sub
Private Sub Form_Load()
End Sub
Private Sub objRst_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Me.Caption = Progress 'Tampilkan kemajuan di judul atas form
ProgressBar1.Value = Progress
'Tampilkan persentase kemajuan di Label1
Label1.Caption = Format((Progress / maks) * 100, "###") & "%"
'Jika seluruh record sudah berhasil diambil...
If ProgressBar1.Value = MaxProgress Then
'Tampilkan ke DataGrid
ProgressBar1.Value = 0
Label1.Caption = ""
Set DataGrid1.DataSource = objRst
'Normalkan pointer Mouse kembali
Screen.MousePointer = vbDefault
End If
End Sub
Catatan Penting :
- Database dan Tabel sesuaikan dengan kepunyaan Anda
- Simpan Database Anda satu folder dengan Form ini
- Fungsi progrssBar adalah untuk meghitung lamanya data saat diload ke form, sedangkan
- Datagrid berfungsi untuk menampilkan isi DataBase
8. Setalah itu silahkan simpan hasil pekerjaan Anda dan jalankan Program
Sekian tip Cara Membuat Loading Database dengan Progressbar di VB6 dari Saya semoga bermanfaat.Selamat mencoba semoga berhasil.
No comments:
Post a Comment