Insert gambar Database dengan VB.net

Insert Imagae dalama database??? loh…?? kok..? Wuih..gimana tuh (sok..keren) .. | ihh..apaan sih norak ..!!! , berat..kalee databasenya nanti.. -___-..
yupz..itu secuplik kutipan ketika Saya pertama kali belajar bagaimana cara mengisert data ke dalam database.. lebih tepatnya ketika berpikir.. Ihh gimana sih kok aplikasi itu kalo..di klik idnya..tiba” fotonya muncul?? (Gumaam orang bingung sepeerti saya) ..Ahaa.. I have Idea..hmm ini sih pasti id itu udah ada gambarnya tuh dalam database … | SALAH…..  hahaha..yupz memang sebagain besar ada bebrapa cara untuk penyimpanan data gambar dalam database..dalam hal ini Saya mencoba bercerita (Dongeng kalii  ) tentaang bagaimana caranya Meninsertkan file Gambar (Image) ke dalam database.. lohh..nanti berat Tau databasenya..Yupz.. betul tekhnik ini bukanlah tekhnik yg tepat jika anda menggunakan file image yg cukup besar.., tetapi ada baiknya kita mengetahui sedikit cerita bagaimana sih cara meninsertkan gambar pada database?? ( khusus untuk aplikasi yg menampung image kecil <=20 kb anjuran ), oke daripada banyak cerita..langsung kita ke TKP 
Pertama” buatlah form dan desaign seperti tampak dibawah ini 

dan buatlah satu buat database acces dengan nama nostrad.mdb dan buat tabel tb_user dengan attribut id(autonumber),nama(text),gambar(ole object).
dan tambahkan satu buah OpenFileDialog , kemudian berikan nama OFD.
Selanjutnya tambahakan satu buah module dengan nama module “mdelkonek”
dan ketikan script dibawah ini






*******************Script Module mdelkonek****************************


Imports System.Data.OleDb ‘Library oldb untuk koneksi ke ms.access
Module mdlkonek
Public con As OleDbConnection = Nothing
Public cmdac As OleDbCommand
Sub konekdbac()
Try
Dim constring As String = “Provider=Microsoft.JET.OLEDB.4.0;Data Source=nostrad.mdb”
con = New OleDbConnection(constring)
con.Open()
con.Close()
MsgBox(“Connection Open”)
Catch
MsgBox(“Not Connect”)
End Try
End Sub
” procedure untuk mengecek koneksi , apakah terbuka atau tertutup
Sub checkconecction()
If con.State = ConnectionState.Connecting Or con.State = ConnectionState.Open Then
con.Close()
ElseIf con.State = ConnectionState.Closed Or con.State = ConnectionState.Broken Then
con.Open()
End If
End Sub
End Module


**************************Akhir Script Module mdelkonek**********************************************


Selanjutnya anda mulai mengontrol desaign dari form yg sudah dibuat
Imports System.IO ” library untuk input-output data (Files stream operational)
Imports System.Data.OleDb
Public Class Image_Process
Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
Try
OFD.Title = “Browse Image”
OFD.FileName = “Pilih Gambar”
OFD.Filter = “Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png”
OFD.ShowDialog()
txt_addres.Text = OFD.FileName
txt_addres.SelectionStart = txt_addres.Text.Length
img.Image = Image.FromFile(txt_addres.Text)
Catch ex As Exception
MsgBox(“Query Error”)
End Try
End Sub
Private Sub bt_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click
Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim gambar(fs.Length) As Byte
checkconecction()
Try
fs.Read(gambar, 0, CInt(fs.Length))
fs.Close()
Dim cmdString As String = “insert into tb_user(nama,gambar) values(‘” & txt_nama.Text & “‘,@foto)”
cmdac = New OleDbCommand(cmdString, con)
cmdac.Parameters.AddWithValue(“@foto”, gambar)
cmdac.ExecuteNonQuery()
MessageBox.Show(“Data has Beeen Stored”)
Catch ex As Exception
MsgBox(“Data Failed to Store”)
Finally
con.Close()
End Try
End Sub
Private Sub Image_Process_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konekdbac()
End Sub
Private Sub bt_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_exit.Click
checkconecction()
Me.Close()
End Sub
Sub resetall()
txt_nama.Clear()
txt_addres.Clear()
img.Image = Nothing
txt_nama.Focus()
End Sub
Private Sub bt_reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_reset.Click
resetall()
End Sub
End Class
Sekian Dongeng ini semoga bermanfaat