Download File dari database MySql Menggunakan VB6

Selamat Pagi… :)
Melanjutkan tutorial sebelumnya tentang upload file ke database, sekarang saya akan menjelaskan tentang bagaimana download file dari database Mysql. Untuk mendownload file dari database mysql sama prosesnya seperti pada saat meng-upload file, hanya saja ada perubahan koding sedikit pada vb6 nya. Baiklah, dengan tidak memperpanjang waktu lagi, berikut ini step by step nya:

• Buat database dan tabel, pada kesempatan saya gunakan database dari tutorial upload file.

•  Setelah database selesai, masuk ke program vb6 nya, silahkan desain form sederhana seperti dibawah ini :  

 

•  Masukkan module koneksi vb6 ke database mysql, (lihat di tutorial upload file ke database)

• Masukkan program nya seperti di bawah ini :

Dim rs As New ADODB.Recordset
Dim itung As Integer
Private Sub Form_Load()
Dim sql As String
itung = 0
Set rs = New ADODB.Recordset
buat_koneksi
buat_tabel
  sql = "select * from upload_foto"
  Set rs = conn.Execute(sql)
  rs.MoveFirst
 
Do While Not rs.EOF
  itung = itung + 1
  MSHFlexGrid1.Rows = itung + 1
  MSHFlexGrid1.TextMatrix(itung, 0) = rs!Nama
  rs.MoveNext
  Loop
MSHFlexGrid1.Refresh
rs.Close
conn.Close
End Sub
Sub buat_tabel()
With MSHFlexGrid1
    .Cols = 1
    .Rows = 1
    .ColAlignment = vbCenter
    .ColAlignmentFixed(0) = 1
    .ColWidth(0) = 3000
    .TextMatrix(0, 0) = "Nama File"
End With
End Sub

Private Sub MSHFlexGrid1_EnterCell()
Dim Tanda As Boolean
Dim sql As String
Tanda = True
itung = 0
Set rs = New ADODB.Recordset
buat_koneksi
  sql = "select * from upload_foto"
  Set rs = conn.Execute(sql)
  rs.MoveFirst
  Do While Tanda = True
  If rs.EOF = True Then
  MsgBox "data tidak ditemukan !", vbExclamation, "gagal"
  rs.MoveFirst
  Tanda = False
  Else
  If rs!Nama = MSHFlexGrid1.Text And Tanda = True Then
    Dim mystream As ADODB.Stream
    Set mystream = New ADODB.Stream
    mystream.Type = adTypeBinary
    mystream.Open
    '''''''''''''''''''''''''''''''''''

    mystream.Write rs!Foto
   
    CommonDialog1.DialogTitle = "Save"
    CommonDialog1.Filter = "Pictures(*.jpg)|*.jpg"
    CommonDialog1.ShowOpen
    mystream.SaveToFile CommonDialog1.FileName, adSaveCreateOverWrite
    mystream.Close
    '''''''''''''''''''''''''''''''''''''
  Tanda = False
  Else
  rs.MoveNext
  DoEvents
  End If
  End If
  Loop
rs.Close
conn.Close
End Sub

• Jalankan dan coba klik salah satu nama pada tabel, tentukan lokasi penyimpanan file dan klik ok, maka file akan langsung di download.

Program ini dapat download hanya gmbar saja, jika teman2 ingin menambahka fie lainnya, ubah saja di program commondialog1.filter nya dengan format yang dari databasenya. Demikian tutorial singkat ini, yang mau download source code nya silakan kesini. Mudah2an tutorial singkat ini dapat bermanfaat,,,amiin