Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream - Hallo sahabat Market Terkini, Pada Artikel yang anda baca kali ini dengan judul Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel visual basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream
link : Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream

Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream

Mungkin Anda ingin membuat aplikasi yang dapat menyimpan gambar ke database SQL Server dan mengambilanya kembali dengan Visual Basic .Net Pada artikel yang lalu saya telah membuat contoh kode yang dapat  menyimpan gambar ke database sql server melalui File Stream kali ini Anda akan berlatih menyimpan gambar dengan Memory Stream di VB.NET Lihat gambar di bawah ini:

Berikut adalah kodenya: Imports System.IO Imports System.Data.SqlClient Public Class Form1     Private sConn As String = "Data Source=.;Initial Catalog=dataGambar;Integrated Security=True"        Private Sub Button1_Click(ByVal sender As System.Object, ByVal _     e As System.EventArgs)Handles Button1.Click         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then             PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)         End If     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal  _ e As System.EventArgs)Handles Button2.Click         Dim oConn As New SqlConnection(sConn)         If oConn.State = ConnectionState.Closed Then oConn.Open()         Dim sql As String = "INSERT INTO gambarTbl VALUES(@kode,@gbr)"         Dim oCmd As New SqlCommand(sql, oConn)         With oCmd.Parameters             .AddWithValue("@kode", TextBox1.Text)             .AddWithValue("@gbr", getDataGambar(PictureBox1))         End With         oCmd.ExecuteNonQuery()         MessageBox.Show("kode & gambar telah disimpan", "Simpan", _  MessageBoxButtons.OK)     End Sub     Private Function getDataGambar(ByVal oPic As PictureBox) As Byte()         Dim ms As New MemoryStream()         oPic.Image.Save(ms, oPic.Image.RawFormat)         Dim dataGbr As Byte() = ms.GetBuffer()         Return dataGbr     End Function     Public Sub getData(ByVal sKode As String)         Dim s As String = "select * from gambarTbl where kode='" & sKode & "'"         Dim oconn As New SqlConnection()         oconn.ConnectionString = "Data Source=.;Initial Catalog=dataGambar;Integrated Security=True"         Dim ocmd As SqlCommand = New SqlCommand(s, oconn)         ocmd.CommandType = CommandType.Text         Dim da As SqlDataAdapter = New SqlDataAdapter(ocmd)         Dim ds As New DataSet()         da.Fill(ds)         Dim oTbl As DataTable         oTbl = ds.Tables(0)         If oTbl.Rows.Count > 0 Then             TextBox1.Text = oTbl.Rows(0).Item("kode")             getGbrMem(TextBox1.Text)         End If     End Sub     Private Sub getGbrMem(ByVal sKode As String)         Dim oConn As New SqlConnection(sConn)         If oConn.State = ConnectionState.Closed Then oConn.Open()         Dim oCmd As SqlCommand         oCmd = New SqlCommand("select gbr from gambarTbl where kode='" & _                           sKode & "'", oConn)         Dim imageData As Byte() = DirectCast(oCmd.ExecuteScalar(), Byte())         If Not imageData Is Nothing Then             Using ms As New MemoryStream(imageData, 0, imageData.Length)                 ms.Write(imageData, 0, imageData.Length)                 PictureBox1.Image = Image.FromStream(ms, True)             End Using         End If     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal _   e As System.EventArgs)Handles Button3.Click         Form2.Show()     End Sub End Class Imports System.Data.SqlClient Public Class Form2     Private Sub Form2_Load(ByVal sender As System.Object, ByVal _   e As System.EventArgs)Handles MyBase.Load         Dim s As String = "select * from gambarTbl"         Dim oconn As New SqlConnection()         oconn.ConnectionString = "Data Source=.;Initial Catalog=dataGambar;Integrated Security=True"         Dim ocmd As SqlCommand = New SqlCommand(s, oconn)         ocmd.CommandType = CommandType.Text         Dim da As SqlDataAdapter = New SqlDataAdapter(ocmd)         Dim ds As New DataSet()         da.Fill(ds)         DataGridView1.DataSource = ds.Tables(0)     End Sub     Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal_  e AsSystem.Windows.Forms.DataGridViewCellMouseEventArgs) HandlesDataGridView1.CellMouseDoubleClick               With Form1             .TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value             .getData(.TextBox1.Text)         End With     End Sub End Class

download source code simpan gambar ke database sql server dengan vb.net memory stream

Buat pembelajar program Visual Basic intermediate ato Advance kode ini tidaklah sulit dimengerti. Namun untuk pemula (newbie) mungkin agak sulit. Jika Anda sangat pemula sekali Anda bisa belajar dari e-book saya yang berjudul: E-BOOK TRIK DASAR EBOOK TUTORIAL TRIK DASAR BELAJAR VISUAL BASIC .NET 2010 Jika Anda ingin lanjut belajar program database sql server dengan visual basic .net bisa dari e-book Saya yang ini E-Book Trik Database Visual Basic 2010 Express

Demikianlah Artikel Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream

Sekianlah artikel Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Cara Menyimpan Gambar ke databse SQL Server dengan VB.NET Memory Strream dengan alamat link https://gpbn2.blogspot.com/2016/03/cara-menyimpan-gambar-ke-databse-sql.html

Location:

Berbagi :