Rabu, 30 September 2020

Vb.Net: Memadukan 2 Gambar Dalam 1 File - Part 3

Artikel ini lanjutan dari Part 2 yah Seperti komitmen Rani sebelumnya, di part ini akan dibahas bagaimana menyimpan bitmap hasil penggabungan gambar ke dalam tabel database. Pada acuan ini kita akan menggunakan database SQL Server dan bentuk abel yang akan kita gunakan: CREATE TABLE dbo.[tblImage] (   ID INT IDENTITY ( 1,1 ) PRIMARY KEY ,   ImageBin VARBINARY( MAX ) ) Kita tambahkan import SQL Client Imports System.Data.SqlClient Dan code pada Command5_Click: Private Sub Button5_Click( ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button5.Click     If imgMerge Is Nothing Then MsgBox( "Belum ada gambar." ) : Exit Sub     Dim stream As New MemoryStream()     Dim content As Byte()     imgMerge.Save(stream, System.Drawing.Imaging.ImageFormat.Png)     content = stream.ToArray()     Try         Dim cnn As SqlConnection         Dim connectionString As String = "Data Source=MYPC;" & _             "Initial Catalog=LATIHAN;Persist Security Info=True;" & _             "User ID=sa;Password=xxxxx"         cnn = New SqlConnection(connectionString)         cnn.Open()         Dim cmd As New SqlCommand( "INSERT INTO tblImage (ImageBin) " & _                                   "VALUES (@img)" , cnn)         cmd.Parameters.AddWithValue( "@img" , content)         cmd.ExecuteNonQuery()         cnn.Close()         MsgBox( "Gambar tersimpan ke database." )     Catch ex As Exception         MsgBox( "Error :" & ex.Message)     End Try End Sub Jika kita lanjut dari proses running sebelum nya, mari kita coba klik tombo Save to Database. Jika proses insert ke database berhasil maka akan muncul pesan: Dan data gambar tersimpan dalam tabel database. Yang perlu code lengkap nya ada disini yah... Click here if you like this article.
Sumber http://rani-irsan.blogspot.com


EmoticonEmoticon