Save dan Load File Gambar dengan SQL Server dan VB.Net 2008

Save dan Load File Gambar dengan SQL Server dan VB.Net 2008

Diposkan oleh T. Erick Sitorus | 08:02 | Aplikasi | 0 komentar »

Postingan kali ini tentang gambar, yaitu cara save image ataupun load image di VB.Net 2008. Gambar dalam hal ini akan ditampilkan melalui PictureBox.

Pertama-tama, di SQL Server siapkan sebuah table bernama tbl_img (nama database = testing).

Data di tabel hanya contoh, boleh diabaikan. Tabel tbl_img ini untuk menyimpan nama file dengan Path gambar yang kita akan gunakan.

Langsung saja buat sebuah project baru di VB.Net dan rancang form seperti berikut ini :

Catatan : Disamping objek yang terlihat diatas, saya juga menggunakan OpenFileDialog.

Anda bisa download sample programnya (beserta Sql Code utk database) di akhir postingan.

Logika programnya sederhana, awalnya memilih gambar melalui tombol Load Picture lalu save datanya ke database dengan tombol Save Picture.

Berikut adalah contoh Load File Image :

 OpenFileDialog1.Filter = "JPG Files (*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files (*.gif)|*.gif|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|TIFF Files (*.tiff)|*.tiff" 

 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 

    PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName) 

    PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage 

 End If 

dan berikut untuk Save (Nama file & Path) ke Database :

 Dim cmd As SqlCommand = New SqlCommand("INSERT INTO tbl_img (gambar, alamat) VALUES ('" & TextBoxFileName.Text & "', '" & PathFile & "')", koneksi) 

 cmd.CommandType = CommandType.Text 

 Dim DReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection) 

Untuk mempermudah anda bisa Download Program disini

Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.