Cara Menyimpan Gambar VB.Net

Tutorial Kali ini akan membahas tentang bagaimana menyimpan file gambar yang ada di form vb.net.
berikut adalah codingnya:

Private Sub simpan()

        If TextBox1.Text = "" Then

            MsgBox("Kode Masih Kosong....", MsgBoxStyle.Critical, "Warning")

            TextBox1.Focus()

        ElseIf TextBox2.Text = "" Then

            MsgBox("Nama Masih Kosong...", MsgBoxStyle.Critical, "Warning")

            TextBox2.Focus()

        ElseIf PictureBox1.Image Is Nothing Then

            MsgBox("Maaf,Photo Masih Kosong....", MsgBoxStyle.Critical, "Warning")

            Button5.Focus()

        Else

            Dim koneksi As New OleDbConnection(koneksi_database)

            koneksi.Open()

            Dim memory_stream As New MemoryStream

            PictureBox1.Image.Save(memory_stream, PictureBox1.Image.RawFormat)

            Dim gambar() As Byte = memory_stream.GetBuffer

            memory_stream.Close()

            Dim sql_string As String = "insert into siswa values('" & TextBox1.Text & "','" & TextBox2.Text & "',@gambar)"

            Dim sql_command As New OleDbCommand(sql_string, koneksi)

            sql_command.Parameters.Add("@gambar", OleDbType.Binary).Value = gambar

            Dim reader As OleDbDataReader

            reader = sql_command.ExecuteReader

            koneksi.Close()

        End If

    End Sub

'===============================================================================

Private Sub ubah()

        If TextBox1.Text = "" Then

            MsgBox("Kode Masih Kosong....", MsgBoxStyle.Critical, "Warning")

            TextBox1.Focus()

        ElseIf TextBox2.Text = "" Then

            MsgBox("Nama Masih Kosong...", MsgBoxStyle.Critical, "Warning")

            TextBox2.Focus()

        ElseIf PictureBox1.Image Is Nothing Then

            MsgBox("Maaf,Photo Masih Kosong....", MsgBoxStyle.Critical, "Warning")

            Button5.Focus()

        Else

            Dim koneksi As New OleDbConnection(koneksi_database)

            koneksi.Open()

            Dim memory_stream As New MemoryStream

            PictureBox1.Image.Save(memory_stream, PictureBox1.Image.RawFormat)

            Dim gambar() As Byte = memory_stream.GetBuffer

            memory_stream.Close()

            Dim sql_string As String = "update siswa set nama='" & TextBox2.Text & "',gambar=@gambar where kode='" & TextBox1.Text & "'"

            Dim sql_command As New OleDbCommand(sql_string, koneksi)

            sql_command.Parameters.Add("@gambar", OleDbType.Binary).Value = gambar

            Dim reader As OleDbDataReader

            reader = sql_command.ExecuteReader

            koneksi.Close()

        End If

    End Sub

'===============================================================================

untuk lebih lengkapnya bisa download disini