Menyimpan Gambar di VB.Net

Langkah 1 : Buat Database di PhpMyAdmin misalnya dengan nama db_tokobunga

            Tonton : Tutorial membuat Database di PhpMyAdmin

                      Buat tabel dengan nama tbbarang, dengan struktur tabel seperti gambar berikut:

Tonton : Tutorialmembuat Tabel di PhpMyAdmin

 

Langkah 2 : Buka Project Baru dan Buat Modul koneksi

Masukkan koding berikut:

 

Imports System.Data.Odbc

Module Module1

    Public konek As OdbcConnection

    Public da As OdbcDataAdapter

    Public ds As DataSet

    Public cmd As OdbcCommand

    Public rd As OdbcDataReader

    Public sql As String

    Sub Koneksi()

        sql = "driver={mysql odbc 5.1 driver};database=db_tokobunga; server=localhost; uid=root"

        konek = New OdbcConnection(sql)

        If konek.State = ConnectionState.Closed Then

            konek.Open()

        End If


 

    End Sub

End Module

Catatan : Driver sesuaikan dengan yang digunakan.

Langkah 3 : Buat Form, dengan desain berikut:

Langkah 4 : Masukkan koding berikut dari awal-akhir:

Imports System.Data.Odbc

Public Class Form3

    Private PathFile As String = Nothing

   

Sub BERSIH()

        TxtKodeBarang.Clear()

        TxtNamaBarang.Clear()

        TxtHargaBarang.Clear()

        TxtNamaGbr.Clear()

        LblPath.Text = ""

        PctGbr.Hide()

    End Sub

   

Sub isiGrid()

        Module1.Koneksi()

        da = New OdbcDataAdapter("SELECT * from tbbarang", konek)

        DS = New DataSet

        da.Fill(ds, "tbbarang")

        DataGridView1.DataSource = ds.Tables("tbbarang")

        DataGridView1.ReadOnly = True

        DataGridView1.Columns(0).Width = 70

        DataGridView1.Columns(1).Width = 250

        DataGridView1.Columns(2).Width = 70

        DataGridView1.Columns(3).Width = 70

        DataGridView1.Columns(4).Width = 70

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Koneksi()

        Call isiGrid()

    End Sub

Private Sub BtnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPilih.Click

        On Error Resume Next

        OpenFileDialog1.Filter = "JPG Files(*.jpg)|*.jpg| JPEG Files(*.jpeg) |*.jpeg|GIF Files(*.gif)|*.gif|PNG Files(*.png)|*.png|BMP files(*.bmp)|*.bmp|"

        OpenFileDialog1.FileName = ""

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

            PctGbr.Image = New Bitmap(OpenFileDialog1.FileName)

            BtnPilih.Enabled = True

            PathFile = OpenFileDialog1.FileName

            TxtNamaGbr.Text =PathFile.Substring(PathFile.LastIndexOf("\")+ 1)

            LblPath.Text = OpenFileDialog1.FileName

            PctGbr.Image = Image.FromFile(LblPath.Text)

        End If

        PctGbr.Visible = True

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Try

            sql = "Insert into tbbarang(KodeBarang,Namabarang,harga,namagambar,alamat)values(?,?,?,?,?)"

            Dim mycomm As OdbcCommand = New OdbcCommand(sql, konek)

            With mycomm.Parameters

                .Add("?", OdbcType.VarChar, 5).Value = TxtKodeBarang.Text.Trim

                .Add("?", OdbcType.VarChar, 50).Value = TxtNamaBarang.Text.Trim

                .Add("?", OdbcType.VarChar, 11).Value = TxtHargaBarang.Text.Trim

                .Add("?", OdbcType.VarChar, 50).Value = TxtNamaGbr.Text.Trim

                .Add("?", OdbcType.VarChar, 100).Value = LblPath.Text.Trim

            End With

            mycomm.ExecuteNonQuery()

            mycomm = Nothing

            MsgBox("Data Barang berhasil Disimpan", MsgBoxStyle.MsgBoxSetForeground, "Simpan Barang")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call isiGrid()

        BERSIH()

    End Sub

    Private Sub TxtKodeBarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKodeBarang.TextChanged

        sql = "select * from tbbarang where kodebarang='" & TxtKodeBarang.Text & "'"

        cmd = New OdbcCommand(sql, konek)

        rd = cmd.ExecuteReader

        rd.Read()

        If rd.HasRows Then

            TxtNamaBarang.Text = rd.Item("namabarang")

            TxtHargaBarang.Text = rd.Item("harga")

            TxtNamaGbr.Text = rd.Item("namagambar")

            LblPath.Text = rd.Item("alamat")

            PctGbr.ImageLocation = rd.Item("alamat")

            PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

        Else

            TxtNamaBarang.Clear()

            TxtHargaBarang.Clear()

            TxtNamaGbr.Clear()

            LblPath.Text = ""

            PctGbr.Hide()

        End If

        PctGbr.Visible = True

    End Sub

   

Private Sub isitextbox(ByVal x As Integer)

        Try

            TxtKodeBarang.Text = DataGridView1.Rows(x).Cells(0).Value

            TxtNamaBarang.Text = DataGridView1.Rows(x).Cells(1).Value

            TxtHargaBarang.Text = DataGridView1.Rows(x).Cells(2).Value

            TxtNamaGbr.Text = DataGridView1.Rows(x).Cells(3).Value

            LblPath.Text = DataGridView1.Rows(x).Cells(4).Value

            TxtKodeBarang.Enabled = False

        Catch ex As Exception

        End Try

    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Call isitextbox(e.RowIndex)

    End Sub

End Class

Baca : Install Printer TidakBerhasil??? Mungkin ini penyebabnya