Simpan dan Tampilkan Gambar VB.NET Database SQL Server

Tutorial Vb.NET & SQL Server : cara menyimpan gambar dan menampilkan Gambar di VB.NET menggunakan Database SQL Server khusus pemula, tutorial vb.net lainnya di sector code

Menyimpan gambar dan menampilkan kembali gambar di form VB.NET menggunakan database MySQL server memungkinkan programer vb.net dengan memanfaatkan namespace system.IO untuk mengupload image dan menampilkannya kembali pada PictureBox di visual basic NET, Images yang akan kita simpan ke database SQl Server hanya berisi data type biner, jadi sebelum menyimpan gambar kita harus mengkonversinya terlebih dahulu kedalam bentuk Byte. Bagaimana cara pembuatannya? simak terus tutorial vb.net berikut.
Simpan dan Tampilkan Gambar

Membuat Database SQL Server

Buatlah database baru di sql server dan beri nama "SaveImage",  buat nama table "tbl_images" dan beberapa column, diantaranya "id_gambar","nama" dan "gambar", buat kamu yang belum bisa membuat database di sql server bisa melihat tutorial kami sebelumnya tentang CRUD VB.NET (Create,Read,Update,Delete) Database SQL Server, atau bisa juga langsung dengan mengupdate database baru kamu dengan Script sql berikut :
CREATE TABLE [dbo].[tbl_images](
 [nama] [varchar](50) NULL,
 [gambar] [image] NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
Lihat gambar untuk lebih jelasnya :
membuat database sql server
Jika membuat database sql servernya sudah siap, lanjut kita akan membuat aplikasi vb net menggunakan visual studio, buka visual studionya ya.

Membuat Aplikasi Menyimpan dan Memunculkan Images Vb.NET

Buatlah project baru dan beri nama "SimpanGambar", pada form1.vb ubah menjadi "frmSimpanGambar.vb" dan desain tampilan gambar kamu kira - kira seperti berikut :

simpan gambar di vb net

Membuat Koneksi ke SQL Server

Buatlah sebuah module koneksi yang berfungsi untuk menghubungkan aplikasi dengan database SQL Server, dan beri nama "mdlKoneksi.vb".
Imports System.Data.SqlClient
Module mdlKoneksi
    Public konek As SqlConnection
    Sub konekDB()
        Try
            konek = New SqlConnection _
                ("Data Source=DESKTOP-5VBP3C9\SQLEXPRESS;" _
            + "Initial Catalog=namadatabase;Integrated Security=True")
            konek.Open()
        Catch ex As Exception
            MsgBox("konek Kedatabase Bermasalah, " _
                   + "Periksa koneksi Jaringan Anda")
        End Try
    End Sub
End Module
Penjelasan :
sesuaikan nama database dengan database sql server kamu.

Selanjutnya pada Frmsimpangambar.vb import namespace sqlclient dan system I/O
Imports System.Data.SqlClient
Imports System.IO

Sub Tampilkan data Ke DataGridView

    Sub TampilkanData()
        konekDB()
        Dim dA As SqlDataAdapter = New SqlDataAdapter _
        ("SELECT nama,gambar FROM tbl_images", konek)
        Dim dS As DataSet = New DataSet
        dS.Clear()
        dA.Fill(dS, "tbl_images")
        DataGridView1.DataSource = (dS.Tables("tbl_images"))
        dA.Dispose()
        konek.Close()
    End Sub
Penjelasan :
Untuk menampilkan nama dan gambar dari database sql server ke datagridview,

Code Tombol Browse Images

disini saya menggunakan class opendialog, tambahkan opendialog ke form kamu dan tuliskan code berikut :
    Private Sub Button1_Click(sender As Object, e As EventArgs) _
        Handles Button1.Click
        If OpenFileDialog1.ShowDialog() =
            Windows.Forms.DialogResult.OK Then
            PictureBox1.BackgroundImage =
                Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.BackgroundImageLayout =
                ImageLayout.Zoom
        End If
    End Sub
Penjelasan :
OpenDialog berguna untuk mengambil gambar dari computer dan menampilkannya di PictureBox

Code Tombol Simpan Images
    Private Sub Button2_Click(sender As Object, e As EventArgs) _
        Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Isikan nama Gambar")
        Else
            konekDB()
            Dim CMD As SqlCommand
            Dim SQL As String
            SQL = "INSERT INTO tbl_images VALUES(@nama, @gambar) "
            CMD = New SqlCommand(SQL, konek)
            CMD.Parameters.AddWithValue("@nama", TextBox1.Text)
            Dim MemoryStream As New MemoryStream
            PictureBox1.BackgroundImage.Save(MemoryStream,
            PictureBox1.BackgroundImage.RawFormat)
            Dim Dgambar As Byte() = MemoryStream.GetBuffer
            Dim Images As New SqlParameter("@gambar", SqlDbType.Image)
            Images.Value = Dgambar
            CMD.Parameters.Add(Images)
            CMD.ExecuteNonQuery()
            MsgBox("Gambar Berhasil Disimpan")
            TextBox1.Clear()
            CMD.Dispose()
            konek.Close()
            TampilkanData()
        End If
    End Sub
Penjelasan :
Ketika tombol simpan ditekan dan nama file (textbox1.text) tidak kosong maka akan menyimpan nama dan gambar ke database Sql Server kemudian akan menutup koneksi serta akan memanggila kembali sub TampilkanData() untuk meload kembali images yang barusan kamu simpan.

Code Form_Load

    Private Sub frmSimpanImages_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load
        TampilkanData()
    End Sub
Akan otomatis menampilkan data ke DataGridView saat aplikasi pertama di Load.

Aplikasi simpan dan menampilkan Images ke DataGridView ini sangat sederhana, kamu bisa mengedit sesuai kebutuhan kamu, selamat belajar ya.

COMMENTS

Next Recomended


Feel free to code it up and send us a pull request.

Hi everyone, let's me know how much this lesson can help your work. Please Subscribe and Follow Our Social Media 'kodeajaib[dot]com' to get Latest tutorials and will be send to your email everyday for free!, Just hit a comment if you have confused. Nice to meet you and Happy coding :) all ^^



Follow by E-Mail


Name

ADO.NET,3,Ajax,6,Android,9,AngularJS,4,ASP.NET,4,Blogger Tutorials,7,Bootstrap,7,C++,1,Codeigniter,2,Cplusplus,6,Crystal Report,6,CSharp,25,Ebook Java,2,FlyExam,1,FSharp,3,Game Development,2,Java,35,JDBC,2,Laravel,84,Lumen,2,MariaDB,2,Ms Access,3,MySQL,31,ODBC,6,OleDB,1,PHP,14,PHP Framework,5,PHP MYSQLI,9,PHP OOP,5,Python,8,Python 3,4,SQL Server,4,SQLite,4,Uncategorized,5,Vb 6,2,Vb.Net,89,Video,48,Vue Js,4,WPF,2,Yii,3,
ltr
item
KODE AJAIB: Simpan dan Tampilkan Gambar VB.NET Database SQL Server
Simpan dan Tampilkan Gambar VB.NET Database SQL Server
Tutorial Vb.NET & SQL Server : cara menyimpan gambar dan menampilkan Gambar di VB.NET menggunakan Database SQL Server khusus pemula, tutorial vb.net lainnya di sector code
http://2.bp.blogspot.com/-bgtzi6FDtAE/VkTG01aDoPI/AAAAAAAABJg/72DRdhs0iJ4/s320/tampilkan-gambar-vb-net-3.jpg
http://2.bp.blogspot.com/-bgtzi6FDtAE/VkTG01aDoPI/AAAAAAAABJg/72DRdhs0iJ4/s72-c/tampilkan-gambar-vb-net-3.jpg
KODE AJAIB
https://www.kodeajaib.com/2015/11/simpan-dan-tampilkan-gambar-vbnet.html
https://www.kodeajaib.com/
https://www.kodeajaib.com/
https://www.kodeajaib.com/2015/11/simpan-dan-tampilkan-gambar-vbnet.html
true
3214704946184383982
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy