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
kodingan di atas apanya yg disimpan ke db, gambarnya atau pathnya?
BalasHapusmuka loe
BalasHapussedih baca komen nya
BalasHapusBangke wkwkw
Hapushahahahahhahahahahah
BalasHapusg jelas dan penuh teka teki dan belum bisa diartikan sampai sekarang koding ini
BalasHapusbang, button5 itu yang mana ???
BalasHapus