Menyimpan File di vb 6 menggunakan database access

hari ini kita akan membahas tentang cara menyimpan file Pdf di vb 6.. sama seperti tutorial sebelumnya yaitu Cara menyimpan video di vb 6 menggunakan database access kita hanya menggunakan filter di commond dialognya saja..

ok lanjut kita ke tutorialnya.. hehe


yang diperlukan yaitu :

1. database dbfile dan tabel tbfile bisa di download disini
2. 1 form ( 1 commond dialog, 1 text, 2 button)
3. 1 module
4. 1 folder beri nama file (letakkan di dalam satu folder dg project)

jika commond dialog tidak ada di toolbox silahkan tambahkan dulu.. caranya : klik Project > components (CTRL + T)

lanjut buatlah tampilan form seperti ini :

sekarang kita buat perintah di module seperti ini:
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbfile.accdb;Persist Security Info=False"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

 kalau sudah kembali ke form,tambahkan perintah di paling atas code (general) (declarations)
Option Explicit
Dim data1 As New Recordset
Dim sql As String

selanjutnya klik 2x tombol cari file
Private Sub Command1_Click()
CommonDialog1.Filter = "PDF (*.pdf)|*.pdf"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
End Sub

*perintah diatas digunakan untuk file PDF jika kalian mau menambahkan silahkan tambah dibagian filter

baca juga artikel terkait : mendownload file yang sudah disimpan dalam database

ok terakhir di tombol simpan,ketikkan perintah berikut :
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "file masih kosong"
Command1.SetFocus
Exit Sub
End If

Dim data As String
data = App.Path & "\file\" & Text1.Text
FileCopy Text1.Text, data


buka
Set data1 = New Recordset
sql = "insert into tbfile values('" & Text1.Text & "','" & data & "')"
Set data1 = con.Execute(sql)
tutup
MsgBox "File berhasil disimpan..!", vbInformation, "Informasi"
Text1.Text = ""
End Sub


selesaiii.. bagaimana apakah berhasil ???

silahkan komen bila belum mengerti.. hehe

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.. :)