Cara menyimpan gambar di vb 6 menggunakan database acces

tutorial kali ini akan mengupas bagaimana caranya menyimpan gambar di vb 6 menggunakan database acces ? caranya mudah sekali, kita cukup meyimpan nama file gambarnya saja ke database sedangkan gambarny cukup kita pindahkan ke folder yang telah kita tentukan.. mudah bukan.. hehe

sebelumnya anda harus tahu terlebih dahulu koneksi vb 6.0 menggunakan ADODB untuk database M.Access dan sql server

yang kita perlukan yaitu :

1. database dbgambar dan tabel tbgambar acces (disini)
2. 1 form ( 1 commond dialog, 1 image, 1 label, 1 text, 2 button)
3. 1 module
4. 1 buah folder beri nama gambar (letakkan di dalam satu folder dg project)

jika command dialog tidak ada di toolbox silahkan tambahkan dulu.. caranya : klik Project > components (CTRL + T)
centang microsoft common dialog control 6.0 (SP6) > OK

lanjuut.. silahkan atur form seperti gambar dibawah ini :

sekarang kita lanjut coding :
silahkan ketik perintah berikut di module

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 & "\dbgambar.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

Baca juga artikel terkait : menampilkan gambar yang sudah disimpan

setelah itu kita kembali ke form 1, dibagian code (general) (declarations) paling atas ketikkan ini
Option Explicit
Dim gam As New Recordset
Dim sql As String

kemudian silahkan klik 2x di tombol  cari foto
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
End Sub

kemudian klik 2x di text1, tambahkan perintah ini
Private Sub Text1_Change()
Image1.Picture = LoadPicture(Text1.Text)
End Sub

terakhir silahkan klik 2x di tombol simpan
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Gambar masih kosong"
Command1.SetFocus
Exit Sub
End If

Dim gambar As String
gambar = App.Path & "\gambar\" & Text1.Text
SavePicture Image1.Picture, gambar

buka
Set gam = New Recordset
sql = "insert into tbgambar values('" & Text1.Text & "','" & gambar & "')"
Set gam = con.Execute(sql)

MsgBox "Gambar berhasil disimpan..!", vbInformation, "Informasi"
Text1.Text = ""
tampilgambar
End Sub

jika berhasil simpan akan seperti gambar dibawah ini 

 
untuk download source code silahkan disini
jika ada yang bingung silahkan komen

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