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
pop
Rabu, 30 September 2020
Vb.Net: Memadukan 2 Gambar Dalam 1 File - Part 3
Diterbitkan September 30, 2020
Artikel Terkait
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon