Menyimpan File Gambar atau Foto ke dalam Database Access

Sudah lama tidak posting artike tentang Visual Basic, sekarang dapat ide untuk membuat program input gambar ke dalam database. Program ini dulu saya pakai saat membuat Program Bantu untuk Pengenalan Objek dengan Gambar dan Suara menggunakan Visual Basic 6.0.
Langsung saja, siapkan form seperti gambar di bawah ini..

Catatan :
1. Tambahkan komponen Common Dialog dan PictureBox
2. Commond dialog diberi nama DGL1
3. PictureBox diberi nama PIC1

Kemudian buat database dengan nama gambar.mdb, dengan nama Tabel, tblSiswa, kemudian buat struktur tabel seperti gambar dibawh ini:

Klik 2 kali form1 atau klik view code untuk mengisi koding berikiut:

Dim CONN As New ADODB.Connection
Dim RSANGGOTA As New ADODB.Recordset
Sub KONEKSi()
Set CONN = New ADODB.Connection
Set RSANGGOTA = New ADODB.Recordset
CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path &
"\DBFOTO.MDB"
End Sub
Private Sub cmdcarigambar_Click()
dlg1.ShowOpen
Text3 = dlg1.FileName
End Sub
Private Sub cmdsimpan_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox " DATA BELUM LENGKAP"
Exit Sub
Else
Call KONEKSi
SIMPAN = "INSERT INTO TBLANGGOTA(NIM,NAMA,LOKASI,FOTO) VALUES " & _
"('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Pic1 & "')"
CONN.Execute SIMPAN
Text1 = "": Text2 = "": Text3 = ""
End If
End Sub
Private Sub Form_Load()
Text3.Enabled = False
End Sub
Private Sub Text3_Change()
Pic1.Picture = LoadPicture(Text3)
End Sub

Selamt mencoba...
Untuk melihat tips dan aplikasi visual basic lainnya dapat dilihat disini