Menyimpan dan Menampilkan Gambar di MySQL
Ternyata masih ada sebagian om2x 😀 yang masih kesulitan untuk melakukan hal ini, tapi oke lah berhubung udah lama enggax posting kayaxnya enggak salah juga membahas permasalahan yang satu ini.
Dengan asumsi MySQL dan Visual Basic .NET sudah terinstall dengan baik hal selanjutnya yang perlu disiapkan adalah MySQL Connector/Net, disini saya menggunakan versi 6.2.4
Jadi silahkan download kemudian lakukan instalasi.
Selanjutnya kita akan menyiapkan sebuah tabel, misal dengan nama mahasiswa dengan struktur seperti berikut :
CREATE TABLE mahasiswa ( npm VARCHAR(10), nama VARCHAR(50), foto MEDIUMBLOB )
Gimana udah selesai ? Klo udah kita lanjutkan dengan membuat project baru kemudian tambahkan referensi MySql.Data (menu Project -> Add Reference…)
Apakah udah cukup ? Belum tambahkan juga namespace (package klo istilah javanya) MySql.Data pada bagian paling atas kode program
Perintah diatas berguna untuk menyingkat penulisan kode program contoh :
Private conn As New MySql.Data.MySqlClient.MySqlConnection
bisa disingkat menjadi
Private conn As New MySqlClient.MySqlConnection
Selanjutnya kita akan desain tampilan program seperti gambar dibawah ini
komponen yang yang dibutuhkan 1 buah PictureBox dan 2 buah Button.
Melakukan koneksi
Nah cara yang paling gampang kita tempatkan aja kodenya dibagian constructor
Private conn As New MySqlClient.MySqlConnection Private strSql As String = String.Empty Public Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. ' kode untuk melakukan koneksi mulai dari sini Dim strConn As String = "server=127.0.0.1;uid=root;pwd=rahasia;database=test" conn.ConnectionString = strConn conn.Open() End Sub
Klo kelupaan lokasi constructornya dimana :D, caranya lihat gambar :
Meyimpan gambar
Kodenya sederhana banget, kita lihat cuplikannya
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click ' untuk contoh disini lokasi gambarnya saya hardcode ' kita bisa kembangkan dengan memanfaatkan komponen OpenFileDialog Dim fileName As String = "E:\Gambar\k4m4r82.jpg" strSql = "INSERT INTO mahasiswa (npm, nama, foto) VALUES (@1, @2, @3)" ' ini perintah insert biasa Using cmd As New MySqlClient.MySqlCommand(strSql, conn) With cmd .Parameters.Clear() .Parameters.AddWithValue("@1", "02.02.4114") ' npm .Parameters.AddWithValue("@2", "Kamarudin") ' nama .Parameters.AddWithValue("@3", IO.File.ReadAllBytes(fileName)) ' foto .ExecuteNonQuery() End With End Using MessageBox.Show("Data sudah disimpan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub
Menampilkan gambar
Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click strSql = "SELECT foto FROM mhs WHERE npm = @1" Using cmd As New MySqlClient.MySqlCommand(strSql, conn) With cmd .Parameters.Clear() .Parameters.AddWithValue("@1", "02.02.4114") ' npm Using dtr As MySqlClient.MySqlDataReader = .ExecuteReader() If dtr.HasRows Then If dtr.Read() Then Dim ms As New IO.MemoryStream(CType(dtr.Item("foto"), Byte())) PictureBox1.Image = Image.FromStream(ms) ' tampilkan gambarnya End If End If End Using End With End Using End Sub
Selamat mencoba 🙂
Open Source Project
Kategori
- Continuous Integration (9)
- Database (21)
- Firebird (11)
- MySQL (4)
- SQL Server 2000 (1)
- SQLite (6)
- Freeware (8)
- Jaringan (2)
- Logger (1)
- NuGet (6)
- Testing (1)
- Tools Installer (8)
- Inno Setup (6)
- NSIS (2)
- Uncategorized (17)
- Version Control (1)
- Visual Basic (77)
- Active Report (4)
- Winsock (6)
- Visual Basic .NET (10)
- Visual C# (47)
- .NET Remoting (9)
- Dapper .NET (8)
- Entity Framework (9)
- WCF (1)
- Visual Studio .NET (7)
- Build Events (3)
- Software Testing (4)
Arsip
- July 2018 (1)
- September 2017 (1)
- August 2017 (2)
- April 2017 (1)
- January 2017 (2)
- December 2016 (2)
- November 2016 (1)
- October 2016 (1)
- September 2016 (3)
- August 2016 (1)
- July 2016 (3)
- June 2016 (1)
- March 2016 (1)
- February 2016 (5)
- January 2016 (4)
- October 2015 (1)
- July 2015 (2)
- June 2015 (4)
- May 2014 (1)
- April 2014 (3)
- March 2014 (9)
- June 2013 (1)
- March 2013 (1)
- February 2013 (2)
- January 2013 (2)
- August 2012 (1)
- July 2012 (1)
- June 2012 (1)
- May 2012 (4)
- April 2012 (1)
- March 2012 (2)
- February 2012 (3)
- January 2012 (2)
- December 2011 (3)
- November 2011 (3)
- October 2011 (1)
- September 2011 (2)
- August 2011 (1)
- July 2011 (2)
- June 2011 (4)
- March 2011 (2)
- February 2011 (2)
- January 2011 (4)
- December 2010 (7)
- November 2010 (3)
- October 2010 (3)
- September 2010 (3)
- August 2010 (4)
- July 2010 (3)
- June 2010 (5)
- May 2010 (4)
- April 2010 (8)
- March 2010 (12)
- February 2010 (9)
- January 2010 (23)
- December 2009 (10)
Artikel Favorit
- Menembus pertahanan database Firebird yang diproteksi
- Source Code
- Belajar Winsock bagian 4 – Membuat jaringan VPN sendiri
- Membuat store procedure, trigger dan view di Firebird
- Contoh pemanggilan store procedure dan view firebird dari aplikasi
- Tips mengecek komponen yg di gunakan dalam pembuatan aplikasi
- SELECT SCOPE_IDENTITY(), SELECT LAST_INSERT_ID() dan RETURNING PK
- Nulis kode biar enak diliat
- Beberapa fungsi sederhana yang sering digunakan
- Berkenalan dengan database Firebird
Artikel Terbaru
- Membuat jaringan VPN Menggunakan SoftEther VPN Bagian #1
- GitLab CI untuk .NET Developer Bagian #2
- GitLab CI untuk .NET Developer Bagian #1
- Membuat Service SMS Gateway Untuk Engine Gammu
- OpenRetail – Open Source Project for Retail Business
- Membuat Log Aplikasi Menggunakan Log4Net
- Manajemen Perubahan Struktur Database Menggunakan Liquibase
- Build Otomatis Project Visual Basic 6 Menggunakan Jenkins
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #4
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #3
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #2
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #1
Recent Comments
Blog Stats
- 1,134,999 hits
misi om, mau nanya dikit nih.
kalo implementasi di vb.6 gmn?!
and
emang bedanya vb dan vb.net apa?!
[newbie] om
makasih banyak sebelumnya om.
1. Implementasi di vb6 coba baca postingan sy sebelumnya atw artikel ini.
2. Untuk beda vb classic vs vb .net bisa dilihat disini.
mas, minta email dong. mau blajar 😦
anak kuliahan yang msih sayng awan, 😦
terimakash
bals ke email y mas
k4m4r82@yahoo.com
sangat maksd mas,
maaf. 🙂
mas klo visual basic yg biasa bisa ga
Bisa om, disini contohnya
ohm ? ada contoh perpus vb.net gak ? klo ada ku bisa liat gak ? klo ku tertarik ntar ane beli..
Sory ya om, sy enggak jualan source code
Ok..ohm..mohon pencerahan ohm..cara back up DB di VB.net gmana ya ? ane pake SQl server 2005,perlu aplisi lain gak ya ?
Coba ini om.
mas kalau untuk menyimpan gambar dengan datatbase mysql sintakx gmn??
soalx q pkek VB.net 2003
Perintahnya sama aja kok
erornya ada di sintak ini ya
.Parameters.AddWithValue(“@3”, IO.File.ReadAllBytes(fileName)) ‘ foto
ReadAllBytes di VB.net saya gak ada..
Susah juga ya cobanya soalnya sy cuma nginstall .NET 2005/2008, tapi mungkin coba kode berikut :
cara lain da gak maz,,
soalx q cri referensi lain gak ada yang menyimpan lewat MYsql..
tolong bantuannya mzz..
masih error ya sintak diatas
assalamualaikum..mau tanya maz..
jadi saya membuat laporan penjualan pake database mysql menggunakan dataset..dan saya mendapatkan error…..#42000You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ” at line 1…itu error kenapa ya??makasih bgt mas..maaf
ini scriptnya
Dim myReport As New Cr_Lappengiriman
Dim Q As String
Dim MyDa As New MySql.Data.MySqlClient.MySqlDataAdapter
Dim myDt As New DataSet1
Dim mycn As New koneksi
QUERYnya
MyDa = New MySqlDataAdapter(Q, mycn.bukakoneksi)
MyDa.Fill(myDt, “Lap_pengiriman”)
myReport.SetDataSource(myDt)
myReport.SetParameterValue(“tgl1”, DateTimePicker1.Value)
myReport.SetParameterValue(“tgl2”, DateTimePicker1.Value)
Waalaikumussalam
Klo ngeliat errornya sih berarti ada kesalahan di perintah querynya om.
“Lap_pengiriman” ini view ya?
“lap pengiriman” itu table yang ada di dataset mas..apakah setiap database seperti mysql.accsess..sql server..ada perbedaan dalam penulisan query nya??
tadinya saya pake accses lalu saya ubah menjadi mysql..setelah saya ubah saya menemukan error yang di atas..maaf saya taro sini ya querynya..
Q = ” SELECT SJ.no_sj, SJ.Tgl_sj, Nota.no_nota, Pelanggan.nmplg, Barang.nm_brg, Barang.warna, Barang.ukuran, kirim.jml_kirim ”
Q &= ” FROM (Pelanggan INNER JOIN SP ON Pelanggan.kdplg = SP.Kdplg) INNER JOIN (((Nota INNER JOIN SJ ON Nota.no_nota = SJ.No_nota) INNER JOIN kirim ON SJ.no_sj = kirim.No_sj) INNER JOIN Barang ON kirim.kd_brg = Barang.kd_brg) ON SP.Nosp = Nota.no_sp ”
Q &= ” where SJ.tgl_SJ >=#” & Format(CDate(DateTimePicker1.Value), “dd-MM-yyyy”) & “#”
Q &= ” AND SJ.tgl_SJ <=#" & Format(CDate(DateTimePicker2.Value), "dd-MM-yyyy") & "#"
Coba karakter # diganti petik tunggal
makasih byk mas..salut sama mas..jarang ada admin yang respontif menjawab pertanyaan2..sekali lagi terimakasih..
Sama2x om 🙂
salam…
setelah sya coba..ko di database tidak ada gambarnya..setelah saya klik bloob tidak ada imagenya..yang ada hanya TEXT dan HEX EDITOR..apa yang salah ya??terimakasih
Data gambarnya memang enggak disimpan dalam bentuk aslinya om, biasanya isinya string dengan format hexa.
Klo tombol tampilnya berfungsi enggak ?
tombol tampil berfungsi..keluar gambarnya…
tapi sya coba yang diatas..dan saya liat di mysqlnya..ada 2 type.image dan hexa..tapi kalo saya buat..ko ga ada imagenya ya??
ini koding class untuk menyimpan gambarnya
Public Sub simpan()
Dim mycn As New koneksi
Dim mycmd As New MySqlCommand
mycmd.CommandText = “INSERT INTO jenisbarang(kdjenis, nmjenis, gambar) ” & _
“VALUES(‘” & fkdjenis & “‘,'” & fnmjenis & “‘,'” & fgambar & “‘)”
mycmd.Connection = mycn.bukakoneksi
Try
If mycmd.ExecuteNonQuery = 1 Then
MsgBox(“data di simpan”)
Else
MsgBox(“Insert data barang gagal”)
End If
mycmd.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
kalo koding ini buat apa ya mas??
Parameters.AddWithValue(“@3”, IO.File.ReadAllBytes(fileName))
terimaksih..
Variabel fgambar itu isinya lokasi file kan om ? Klo iya jelas enggak mau om, makanya harus dikonversi dulu ke bentuk binary menggunkan fungsi ReadAllBytes
ReadAllBytes
thanx bgt buat infonya… itu sangat membantu saya gan 😀
Sama-sama om 🙂
mas kalo buat simpan n tampilkan gambar coding c# nya ada ga?
Ini contoh menyimpannya om berdasarkan hasil konversi kode diatas :
mas cara yg pake openfiledalog gmna????
Coba disini.
pak dosen mundur lagi ke jaman pra sejarah nih 😀
Sy belum pernah berhasil nginstal mySql di win XP sebagai server. pertama dulu saya pikir hanya masalah previlege/hak aksesnya saja. cuma dah di otak-atik masih aja gak mau, ada yg nyaranin pake xampp, gak bisa juga. Akhirnya nyerah pake win server 2003/2008 kompi tempat nginstall mySql sebagai server. aplikasinya sendiri multiuser jenis dekstop bukan web. emang sebenernya bisa gak sih xp di tongkrongin mySql Server? gimana ya caranya?
Selama ini sy enggak ada masalah om nginstall mysql di win xp, user tetap bisa login baik dari komputer yg bersangkuatan atw dari komputer lain dengan syarat usernya diberi hak akses untuk login dari komputer lain.
Imports MySql.Data
Public Class Form1
Private conn As New MySqlClient.MySqlConnection
Private strSql As String = String.Empty
Public Sub New()
‘ This call is required by the designer.
InitializeComponent()
‘ Add any initialization after the InitializeComponent() call.
Dim strconn As String = “server = 127.0.0.1;uid=root;pwd=;database=profile”
conn.ConnectionString = strconn
conn.Open()
End Sub
Private Sub btnSimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
Dim filename As String = “D:\DokumenMMS\2012_01_28\IMG_OO29.jpg”
strSql = “Insert into mahasiswa (npm,nama,foto) values (@1,@2,@3)”
Using cmd As New MySqlClient.MySqlCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue(“@1”, “02.02.4114”) ‘ npm
.Parameters.AddWithValue(“@2”, “Febriano”) ‘ nama
.Parameters.AddWithValue(“@3”, System.IO.File.ReadAllBytes(filename)) ‘foto
.ExecuteNonQuery()
End With
End Using
MessageBox.Show(“Data telah disimpan”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub btnTampil_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTampil.Click
strSql = “Select foto from mahasiswa where npm = @1”
Using cmd As New MySqlClient.MySqlCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue(“@1”, “02.02.4114”) ‘ npm
Using dtr As MySqlClient.MySqlDataReader = .ExecuteReader()
If dtr.HasRows Then
If dtr.Read() Then
Dim ms As New IO.MemoryStream(CType(dtr.Item(“foto”), Byte()))
PictureBox1.Image = Image.FromStream(ms) ‘ tampilkan gambarnya
End If
End If
End Using
End With
End Using
End Sub
End Class
kok error di .Parameters.AddWithValue(“@3”, System.IO.File.ReadAllBytes(filename)) ‘foto ?? ada yg salah or kurang kah ??
Emg pake VB .NET versi brp om ?
mas.. saya new ni di vb.net..
saya mau nanya, gmn caranya foto bisa tampil pada saat datagridview di clik..
atau pictureboxnya secara otomatis menampilkan foto sesuai dengan alamat foto yang ada di text box..
tolong ilmuny ya mas
Sy belum pernah make datagridview, jadi belum bisa bantu 😀
mas sy msih newbie ne.. mu tnya klo mau simpan gambar ke SQL Server 2000 dengan vb 6.0 gmn ia mas?? udh coba cari di Google kbnyakan pake database accses.. mohon bntuan na mas.. mkasi..
Sama aja om, klo di ms access kan tipenya OLE utk SQL Server pake image.
Untuk kodenya sama aja
mas ..mau nanya lagi ni…
coding menampilkan foto pada picturebox sesuai dengan alamat foto yang ada di text box pada saat form load gmn mas..??
tolong saya ya mas…
Coba tes seperti ini om :
mas sebelum disave tentu kita pilih gambar dulu kan..
nah pada saat event tersebut bagaimana codingnya,
jika dalam database terdapat NIM,NAMA,ALAMAT,EMAIL,serta Foto.
setelah berhasiil di simpan.
karena banyaknya data jika kita ingin mencari satu data maka digunakan evnt search,,
nah supaya gambar yang tadi kita save tampil pada saat search beserta datanya bagaimana..
terimakasih
Menampilkannya dimana dulu ?
ini dia bang codingnya…., Gambar yang akan disimpan ada 5 buah…, textbox adalah string untuk lokasi filenya… . mohon bantuannya…!!!
——————————————————————————
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim sqlstr As String = “INSERT INTO Gambar” (,Gbr_a,Gbr_b,Gbr_c,Gbr_d,Gbr_e)” & “VALUES(@Gbr_a,@Gbr_b,@Gbr_c,@Gbr_d,@Gbr_e);”
Using CMD As New MySqlCommand(sqlstr, conn.Open)
With CMD
.Parameters.AddWithValue(“@Gbr_a”, System.IO.File.ReadAllBytes(TextBox10.Text.Trim))
.Parameters.AddWithValue(“@Gbr_b”, System.IO.File.ReadAllBytes(TextBox11.Text.Trim))
.Parameters.AddWithValue(“@Gbr_c”, System.IO.File.ReadAllBytes(TextBox12.Text.Trim))
.Parameters.AddWithValue(“@Gbr_d”, System.IO.File.ReadAllBytes(TextBox13.Text.Trim))
.Parameters.AddWithValue(“@Gbr_e”,
System.IO.File.ReadAllBytes(TextBox14.Text.Trim))
.ExecuteNonQuery()
end with
end using
end sub
——————————————————————————
mas mau tnya juga ni mas….. kalau gambar yang disimpan lebih dari satu alias banyak, cara nyimpanya gimana…???. saya suda coba berkali-kali tapi selalu gagal…please..help me….!!!!!
Sy harus tau dulu kode yg sudah om tulis seperti apa ?
alhamdulillah selesai juga bang …..ternyata yang bermasala bukan pada codingnya tetapi pada server mysql, tdinya max allowed packet-nya cuma 42 mb setelah di ubah menjadi 256 mb , semua gambar yang berukuran besar bisa disimpan…..dahsyat…..project saya akhirnya selesai….$$$$$$
Oke om, sippp
Senang bisa membantu 🙂
ass, sob, saya suda nyoba prakikan artikel sob yng di atas nu. uda jalan si programnya……
Tapi kalo gambarnya dikosongkan/filenamenya tidak ada/gambarnya gx ada….kok muncul pesan erorr dan database gx bisa disimpan…., !!! sob ngimana cara penanggulangan erorrnya…???
Ya berarti tinggal cek kan file gambarnya ada atw enggak, trus perintah insertnya juga menyesuaikan :
Assalamu’alikum. Om, saya mau tanya nie, crara menentukan jumlah baris dalam suatu tabel database mysql gimana ya om….?, trs jumalh barisnya ditampilkan pada texbox…!!!
misal gini om..pada tabel siswa, untuk mengetahui jumlah siswa yang berjeniskelamin laki-laki..
please help me om,,,,minta conth coding vb 2005-nya….!!!
Kan tinggal main di query aja om, misal :
untuk menampilkan ke textbox gimana…?
cara menampilkan jumlahnya ke textbox gimana ..om…??
Coba kesini om.
ass, om mau tnya lgi ni om, masalahnya gni om pada saat menampilkan gambar yang pertama sukses…..kok pada saat menyimpan gambar kedua dst.. muncul pesan error :{“Parameter is not valid.”}….!!, tlg dikoreksi ya om dimananya yang salah….?
ni souce codenya om…..!!!
Dim sqlstr As String = “SELECT* FROM soal where paket=@paket and No_soal=@No_soal” Dim cmdt1 As New MySqlCommand(sqlstr, conn.Open)
With cmdt1.Parameters
.AddWithValue(“@paket”,combobox1.Text.Trim)
.AddWithValue(“@No_soal”, combobox2.Text.Trim)
End With
Dim rdr1 As MySqlDataReader = cmdt1.ExecuteReader(CommandBehavior.CloseConnection)
If rdr1.Read = True Then
Label19.Text = rdr1(“Soal”).ToString()
CheckBox1.Text = rdr1(“Jawaban_a”).ToString()
CheckBox2.Text = rdr1(“Jawaban_b”).ToString()
CheckBox3.Text = rdr1(“Jawaban_c”).ToString()
CheckBox4.Text = rdr1(“Jawaban_d”).ToString()
CheckBox5.Text = rdr1(“Jawaban_e”).ToString()
Dim gbrs1 As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_soal”), Byte()))
PictureBox1.Image = Image.FromStream(gbrs1)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbra As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_a”), Byte()))
PictureBox2.Image = Image.FromStream(gbra)
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrb As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_b”), Byte()))
PictureBox3.Image = Image.FromStream(gbrb)
PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrc As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_c”), Byte()))
PictureBox4.Image = Image.FromStream(gbrc)
PictureBox4.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrd As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_d”), Byte()))
PictureBox5.Image = Image.FromStream(gbrd)
PictureBox5.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbre As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_e”), Byte()))
PictureBox6.Image = Image.FromStream(gbre)
PictureBox6.SizeMode = PictureBoxSizeMode.StretchImage
End If
rdr1.Close()
cmdt1.Dispose()
conn.close()
“Ralat om….”
ass, om mau tnya lgi ni om, masalahnya gni om pada saat menampilkan gambar yang pertama sukses…..kok pada saat MENAMPILKAN gambar kedua dst.. muncul pesan error :{“Parameter is not valid.”}….!!, tlg dikoreksi ya om dimananya yang salah….?
ni souce codenya om…..!!!
Dim sqlstr As String = “SELECT* FROM soal where paket=@paket and No_soal=@No_soal” Dim cmdt1 As New MySqlCommand(sqlstr, conn.Open)
With cmdt1.Parameters
.AddWithValue(“@paket”,combobox1.Text.Trim)
.AddWithValue(“@No_soal”, combobox2.Text.Trim)
End With
Dim rdr1 As MySqlDataReader = cmdt1.ExecuteReader(CommandBehavior.CloseConnection)
If rdr1.Read = True Then
Label19.Text = rdr1(“Soal”).ToString()
CheckBox1.Text = rdr1(“Jawaban_a”).ToString()
CheckBox2.Text = rdr1(“Jawaban_b”).ToString()
CheckBox3.Text = rdr1(“Jawaban_c”).ToString()
CheckBox4.Text = rdr1(“Jawaban_d”).ToString()
CheckBox5.Text = rdr1(“Jawaban_e”).ToString()
Dim gbrs1 As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_soal”), Byte()))
PictureBox1.Image = Image.FromStream(gbrs1)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbra As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_a”), Byte()))
PictureBox2.Image = Image.FromStream(gbra)
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrb As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_b”), Byte()))
PictureBox3.Image = Image.FromStream(gbrb)
PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrc As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_c”), Byte()))
PictureBox4.Image = Image.FromStream(gbrc)
PictureBox4.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbrd As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_d”), Byte()))
PictureBox5.Image = Image.FromStream(gbrd)
PictureBox5.SizeMode = PictureBoxSizeMode.StretchImage
Dim gbre As New System.IO.MemoryStream(CType(rdr1.Item(“Gbr_e”), Byte()))
PictureBox6.Image = Image.FromStream(gbre)
PictureBox6.SizeMode = PictureBoxSizeMode.StretchImage
End If
rdr1.Close()
cmdt1.Dispose()
conn.close()
Pesan error yg aneh, klo field gambar bernilai null, harusnya pesan errornya :
Klo salah nama field, pesan errornya :
Lah ini kok malah pesan errornya :
Ini kan berarti salah menyebutkan nama parameter jadi enggak ada hubungannya dg gagal menampilkan gambar ke dua… dst
Ass, Om mau nanya ni om, Gimana cara Menyimpan Teks Pada RichTexBox ke dlm database mysql Agar Format Tulisannya Gak Berubah….???
msi gan saya mau nanya klo nyimpan gambar di mysql dengan vb 6 gmn cra nya…..
mas terima kasih banyak atas ilmunya aplikasi saya berhasil
mas gimana cara nya kl nyetak image pada vb,net
saya pengen meresize gambar lewat php kemudian hasil new resize itu juga bisa tersimpan di servernya atau databasenya…. tu bagaimana ya sriptnya???
ini script saya..script resizenya di taroh mana???
<?php
if($_POST["submit"]=="Update"){
$namafolder="upload/"; //tempat menyimpan file
if (!empty($_FILES["nama_file"]["tmp_name"]))
{
$jenis_gambar = $_FILES['nama_file']['type'];
$nip = $_POST["nip"];
$nama = $_POST["nama"];
$bagian = $_POST["bagian"];
$alamat = $_POST["alamat"];
$tanggal_lahir=$_POST["tanggal_lahir"];
$nohp = $_POST["nohp"];
if($jenis_gambar=="image/jpeg" || $jenis_gambar=="image/jpg" || $jenis_gambar=="image/gif" || $jenis_gambar=="image/x-png")
{
$gambar = $namafolder .basename($_POST['nip']).'.'.basename($_FILES['nama_file']['type']);
if (move_uploaded_file($_FILES['nama_file']['tmp_name'], $gambar)) {
$sql="update data_karyawan set nip='$nip',nama='$nama',bagian='$bagian',alamat='$alamat',nohp='$nohp',nama_file='$gambar' WHERE nip='".$_GET["nip"]."'";
$res=mysql_query($sql) or die (mysql_error());
echo "Data Berhasil Di Ubah ".$gambar;
echo "NIP : $nip”;
echo “”;
echo “$gambar”;
} else {
echo “Gambar gagal dikirim”;
}}
else{
echo “Jenis gambar yang anda kirim salah. Harus .jpg .gif .png”;
}}
else {
echo “Anda belum memilih gambar”;
}
}
?>
bagi yang bisa.. tolong balas coment saya secepatnya yaa…
maaf om agak ngawur :), saya menggunakan cara penyimpan dengan menggunakan class seperti ini :
Sub addRecord(ByVal nama As String, ByVal tempat_lahir As String)
Try
Dim cmd As New MySqlCommand(String.Format(“INSERT INTO `tblproduk` ( `nik` , `nama` , `tempat_lahir` )VALUES (NULL , ‘{0}’, ‘{1}’)”, nama, tempat_lahir), conn)
cmd.ExecuteNonQuery()
MsgBox(“Your Record Added Successfully!”, MsgBoxStyle.Information, “Successful!”)
Catch ex As Exception
MsgBox(“Your Record Added Successfully!”, MsgBoxStyle.Information, “Successful!”)
End Try
End Sub
kalau untuk menyimpan gambar, seperti topik di atas gimana yah.. codingnya, mohon pencerahanya om,
Om ini pertanyaannya ngebingungin, di ataskan sy juga ngasih contohnya pake VB .NET, kode yg om tulis di atas juga pake VB .NET trus butuh pencerahan apa lagi ?
makanya judulnya agak ngawur,,,dah tau ada malah di ada-adain, bikin ruet sendiri,
Dim fileName As String = “E:\Gambar\k4m4r82.jpg
kalau menggunakan open dialog atau diambil dari pictur box, penulisan variabel di atas gimana om, codingnya, mohon pencerahanya lagi,
Coba gini om :
g bisa nyimpen om, ada error pada baris 12 (btnsimpan), untuk variabel pada baris 4 (btnsimpan), tetapi itu saja atau dirubah ??
Pesan errornya apa ? Trus pake VB .NET versi brp ?
pesan error ngeblok warna kuning, pake vb.net 2008
Maksud sy itu bukan blok warna kuningnya om, tetapi “pesan errornya” itu loh yang pake bahasa inggris.
jika menyimpannya di komputer server gimana. saya tidak tahu mengganti 127.0.0.1 atau localhost. ingin diganti ip server
Ya tinggal diganti aj ke ip 127.0.0.1 ke ip komputer server yg sebenarnya misal 192.168.1.1
mohon bantuannya donk bang admin
Public Sub ChangeAvatar(ByVal _imgname As String)
Dim FileSize As UInt32
Dim rawData() As Byte
Dim fs As FileStream
fs = New FileStream(“C:\Users\Dunpul\Documents\Images\6HNm4fb31ce96748e.jpg”, FileMode.Open, FileAccess.Read)
FileSize = fs.Length
rawData = New Byte(FileSize) {}
fs.Read(rawData, 0, FileSize)
fs.Close()
Try
Dim cn As New MySqlConnection(“server=localhost; database=duniapulsa; user id=root; password=;”)
cn.Open()
Using cm As New MySqlCommand(“INSERT INTO Pict (gambar) VALUES (@gambar)”, cn)
cm.Parameters.AddWithValue(“@gambar”, IO.File.ReadAllBytes(“C:\Users\Dunpul\Documents\Images\6HNm4fb31ce96748e.jpg”))
cm.ExecuteNonQuery()
End Using
Catch ex As Exception
Throw ex
End Try
MsgBox(“Done”)
End Sub
ini script saya, waktu saya save ke mysql kok hasilnya nilai image nya NULL ya?? sudah coba berbagai cara tetap hasilnya sama. Thx. before ya.
tanya om 😀 saya mau menampilkan gambar dari database ke array picturebox (9 jumlah picturebox nya) yang pertama load berhasil, terus tombol next (di form yang sama dan array picturebox yang sama) mau munculin gambar yang beda, nah gambar baru saya ada di belakang gambar lama. gimana cara bringtofront nya om? udah nyoba codingan bringtofront tetep ngga bisa. gimana ya om? makasih udah bantu 🙂
Klo main2xnya diproperties Visible g mana om ?
Mas bro, kalo untuk menampilkan gambar yang udah di simpan gmna caranya ??
kok saya gagal terus ya
??
:Mohon di bantu mas bro…………….
Silahkan dicoba lagi ..
Sy bukan orang PINTAR yg bisa langsung tau dengan pesan error “kok saya gagal terus ya”
Permisi gan, kalo mau ngsavenya dari PictureBox gimana ya querynya? mohon pencerahannya 🙂 lagi ngerjain TA soalnya 😥
kalo tidak keberatan tolong di reply ya, atau ke email ane Chunk24.himawan@gmail.com
sebelumnya makasih ya gan 🙂
Misi om… mau nanya… saya ingin menerapkan script diatas kedalam OOP dengan menggunakan parameter… pada saat menyimpan file gambar tidak ada masalah… namun pada saat ingin menampilkannya kembali… saya bingung menerapkan masalah propertynya…
=====================================================================
Form1.vb Tombol Cari
=====================================================================
Private Sub btn_Cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cari.Click
Try
Dim akses_SISWA As New AccessData.Akses_Siswa
Dim daftar As List(Of Siswa_Class) = akses_SISWA.CariSiswaByNis(TextBox1.Text.Trim, “Find”)
TextBox1.Text = daftar.First.NIS
TextBox2.Text = daftar.First.NIK
TextBox3.Text = daftar.First.NamaLengkap
TextBox4.Text = daftar.First.NamaPanggilan
TextBox5.Text = daftar.First.TempatLahir
DateTimePicker1.Value = daftar.First.TanggalLahir
TextBox6.Text = daftar.First.Alamat
ComboBox1.Text = daftar.First.TempatTinggal
TextBox8.Text = daftar.First.NamaOrtu
TextBox9.Text = daftar.First.NoHp
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
=======================================================================
========================================================================
Class_Siswa.vb
======================================================================
Public Class Siswa_Class
#Region “variabel”
Private m_Nis As String
Private m_Nik As String
Private m_NamaLengkap As String
Private m_Namapanggilan As String
Private m_Tempatlahir As String
Private m_TanggalLahir As Date
Private m_Alamat As String
Private m_TempatTinggal As String
Private m_NamaOrtu As String
Private m_NoHP As String
Private m_Photo As String
#End Region
#Region “Property”
Public Property Photo() As String
Get
Return m_Photo
End Get
Set(ByVal value As String)
m_Photo = value
End Set
End Property
#End Region
End Class
========================================================================
========================================================================
Class_Akses_Siswa.vb
========================================================================
Imports MySql.Data
Imports MySql.Data.MySqlClient
Namespace AccessData
Public Class Akses_Siswa
Private my_koneksi As New AksesData.Koneksi_Class
Public parameterDS_NIS As MySqlParameter = New MySqlParameter(“@DS_Nis”, MySqlDbType.VarChar, 12)
Public parameterDS_NIK As MySqlParameter = New MySqlParameter(“@DS_Nik”, MySqlDbType.VarChar, 15)
Public parameterDS_NamaL As MySqlParameter = New MySqlParameter(“@DS_NamaL”, MySqlDbType.VarChar, 25)
Public parameterDS_NamaP As MySqlParameter = New MySqlParameter(“@DS_NamaP”, MySqlDbType.VarChar, 10)
Public parameterDS_TempatLahir As MySqlParameter = New MySqlParameter(“@DS_TempatLahir”, MySqlDbType.VarChar, 25)
Public parameterDS_TanggalLahir As MySqlParameter = New MySqlParameter(“@DS_TanggalLahir”, MySqlDbType.Date)
Public parameterDS_Alamat As MySqlParameter = New MySqlParameter(“@DS_Alamat”, MySqlDbType.Text)
Public parameterDS_TempatTinggal As MySqlParameter = New MySqlParameter(“@DS_TTinggal”, MySqlDbType.VarChar, 50)
Public parameterDS_NamaOrtu As MySqlParameter = New MySqlParameter(“@DS_NmOrtu”, MySqlDbType.VarChar, 25)
Public parameterDS_NoHP As MySqlParameter = New MySqlParameter(“@DS_NoHP”, MySqlDbType.VarChar, 13)
Public parameterDS_photo As MySqlParameter = New MySqlParameter(“@DS_Photo”, MySqlDbType.LongBlob)
Public Function CariSiswaByNis(ByVal NIS As String, ByVal ProcessName As String) As List(Of Siswa_Class)
Dim LSiswa As New List(Of Siswa_Class)()
Try
Dim strSQL As String = “SELECT * from data_siswa WHERE nis=@DS_NisC”
Dim mycommand As New MySqlCommand(strSQL, my_koneksi.buka_koneksi)
mycommand.Parameters.Add(“@DS_Nisc”, MySqlDbType.VarChar).Value = NIS
Dim rdr As MySqlDataReader = mycommand.ExecuteReader
If rdr.Read = False Then
If ProcessName = “Find” Then
Throw New Exception(“NIS SALAH atau Data Siswa yang dicari tidak ditemukan”)
End If
Else
If ProcessName = “Save” Then
Throw New Exception(“Nis sudah ada didalam table”)
End If
Dim siswaS As New Siswa_Class()
siswaS.NIS = rdr(“nis”).ToString()
siswaS.NIK = rdr(“nik”).ToString()
siswaS.NamaLengkap = rdr(“nama_lengkap”).ToString()
siswaS.NamaPanggilan = rdr(“nama_panggilan”).ToString()
siswaS.TempatLahir = rdr(“tempat_lahir”).ToString
siswaS.TanggalLahir = rdr(“tanggal_lahir”).ToString
siswaS.Alamat = rdr(“alamat”).ToString
siswaS.TempatTinggal = rdr(“tempat_tinggal”).ToString
siswaS.NamaOrtu = rdr(“nama_ortu”).ToString
siswaS.NoHp = rdr(“no_hp”).ToString
Dim gambar_DB As New IO.MemoryStream(CType(rdr.Item(“photo”), Byte()))
siswaS.Photo = rdr(“photo”).ToString
LSiswa.Add(siswaS)
End If
rdr.Close()
Catch sqlex As MySqlException
Throw New Exception(sqlex.Message.ToString())
End Try
Return LSiswa
End Function
End Class
End Namespace
=======================================================================
Dari source codenya om, yang disimpan didatabase hanya lokasi fotonya saja ? Iya enggak ?
Sedang contoh postingan saya di atas menyimpan fotonya di database.
Jadi bukan masalah OOP atau enggak, yg berbeda cara menangani file fotonya saja.
gak om, yang saya simpan gambarnya…
Public parameterDS_photo As MySqlParameter = New MySqlParameter(“@DS_Photo”, MySqlDbType.LongBlob)
Function Tambah_data()
….
….
….
…
parameterDS_photo.Value = IO.File.ReadAllBytes(siswa.Photo)
With mycommand.Parameters
……
……
……
.Add(parameterDS_NoHP)
.Add(parameterDS_photo)
End With
End Function
….dan berhasil
untuk menampilkannya yang saya bingung,
betul yang om bilang saya masih bingung cara menagani filenya, untuk menyimpan Propertynya saya gunakan string, tapi untuk menampilan gimana om? apa untuk propertynya harus dirubah?
udah berhasil om… yang saya kirimkan data berupa byte() nya, kalo fungsi CType sendiri untuk apa om?
CType fungsi untuk konversi data. Contoh :
Om saya cobanya ko G bisa ke simpan ke database ya, saya pakai vb.net 2008 dan Appserv sebagai server mysql.
Klo bertanya masalah teknis itu harus detil om.
Pesan errornya apa ?
Error di baris ke berapa ?
Method yang menyebabkan error ?
Struktur tabelnya seperti apa ?
Klo perlu ikutsertakan screenshot errornya.
Jadi saya itu bukan orang “SAKTI”, yg bisa langsung tau jawabannya hanya dengan pertanyaan “saya cobanya ko G bisa ke simpan ke database ya”