Mendownload file yang disimpan di database access menggunakan vb6

hai ketemu lagi bareng tutor marcode.. kali ini kita akan melanjutkan tutorial yang sebelumnya yaitu Menyimpan File di vb 6 menggunakan database access. setelah disimpan pasti temen2 bingung gimana caranya untuk mendownload file tersebut kan? tenang aja setiap masalah pasti ada solusinya..hehe #sokPuitis

ok gak usah basa basi lagi kita lanjut tutorialnya..

pertama tama apa yang kita perlukan..

1. karena kita lanjut tutorial kemaren jadi untuk database kita pake file kemarin.. disini
2. project yang kita gunakan juga yang kemaren.. silahkan download disini
3. tambahkan 1 form (2 label, 1 button, 1 drive, 1 dir, 1 listview)

jika listview tidak ada di toolbox silahkan tekan CTRL + T untuk menampilkan components kemudian centang microsoft windows common controls 6.0 (SP4)  seperti gambar berikut

jika sudah tampil silahkan desain form seperti gambar berikut ini :

*untuk listview atur dibagian properties : checkboxes = true

sudah.. lanjut kita ke kodiing.. he
sekarang klik 2x di form load
Private Sub Form_Load()
With ListView1
.View = lvwReport
.FullRowSelect = True
.GridLines = True
With .ColumnHeaders
    .Add , , "nama File", 4100, 0
    .Add , , "Alamat File", 5100, 2
End With
End With
'perintah diatas digunakan untuk mengatur judul kolom listview

buka
con.CursorLocation = adUseClient
Set cari = New Recordset
sql = "Select * from tbfile"
cari.Open sql, con
'melakukan perintah cari file dari tabel tbfile

Dim Lst As ListItem

'jika tidak ada data file akan tampil pesan
If cari.EOF Then
    MsgBox "tidak ada file di database", vbInformation, "Informasi"
    Exit Sub
Else
'jika ada akan melakukan perulangan untuk menampilkan file ke listview
    Do While Not cari.EOF
        Set Lst = ListView1.ListItems.Add(, , cari!nama)
        With Lst
        .SubItems(1) = cari!file
        End With
        cari.MoveNext
    Loop
End If

End Sub

*perintah ini akan dieksekusi pada saat form ini jalan atau dipanggil

kemudian lanjut dengan mengklik 2x drive1.. kodingnya seperti ini :
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

terakhir kita tambahkan perintah di button download file seperti ini :
Private Sub Command1_Click()
Dim data As String

With ListView1
    Dim i As Integer
   
    For i = 1 To .ListItems.Count 'akan melakukan perulangan sebanyak data yang ada
    data = Dir1.Path & "\" & .ListItems(i).Text 'variabel data akan menampung alamat dari dir.path yang kita tentukan
    If .ListItems(i).Checked = True Then 'memeriksa file apa saja yang dicentang/didownload
    FileCopy .ListItems(i).ListSubItems(1).Text, data 'melakukan perintah copy file dari alamat yang ada di kolom 2 ke variabel data
    End If
Next
End With

MsgBox "File berhasil didownload..!", vbInformation, "Informasi"
End Sub

selesai.. :)
silahkan jalankan form tersebut.. kemudian centang file yang akan di download.. tentukan directory file penyimpanan kemudian tekan tombol download file

jika ada yang belum mengerti silahkan komen :)

untuk source code silahkan download disini

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)