18 May 2015


Artikel ini lanjutan dari Part 2 yah

Seperti janji Rani sebelumnya, di part ini akan dibahas bagaimana menyimpan bitmap hasil penggabungan gambar ke dalam tabel database.

Pada contoh 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.


0 comments: