Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

Akun Aplikom - Di postingan kali ini Akun Aplikom akan meberikan sebuah pengertian tentang Microsoft Acces,dan tema posting kali ini adalah Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010,tanpa basa basi mari kita bahas tentang Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010 :

Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

1. Buka Database Access Lalu Buat Database baru beri nama db_gambar .. dan tambahkan New Table dan beri nama tbl_gambar dan atur fieldnya sebagai berikut :

Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

2. Setelah itu lalu buat project baru di Visual Studio  2008 dan beri nama bebas saja deh.. lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

Intinya adalah begini Jika kita mau mengubah atau menghapus, algoritma nya adalah kita harus mencari terlebih dahulu data yang akan kita ubah atau hapus tersebut. Nah hal tersebut di VB.NET dapat di implementasikan dengan combobox, maksudnya adalah semua primary key di munculkan di combobox dan ketika kita mengganti value combobox tersebut maka langsung dilakukan proses pencarian dan hasilnya di binding ke textbox dll. Nah bisa juga kita menggunakan 1 textbox dan 1 button seperti gambar berikut :

Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010

Nah maksudnya adalah kita menuliskan sebuah kata kunci dan kita disuruh mengklik button maka proses pencarian akan dilakukan. Pokoknya mah banyak lah tergantung selera. ada juga yang memunculkan sebuat form baru yang menampilkan daftar-daftarnya.. hehehe…. Kira-kira begitu…
4. Lalu Coding Code dibawah ini :

   1: Imports System.Data.OleDb

   2: Imports System.Drawing

   3: Imports System.Drawing.Imaging

   4: Imports System.IO

   5:

   6: Public Class Form1

   7:     Dim conn As New OleDbConnection

   8:     Dim cmd As OleDbCommand = Nothing

   9:     Dim rd As OleDbDataReader = Nothing

  10:     Sub combo()

  11:         Try

  12:             opens()

  13:             cmd = New OleDbCommand("select kode_gb from tbl_gambar", conn)

  14:             rd = cmd.ExecuteReader

  15:             cmbKode.Items.Clear()

  16:             While rd.Read

  17:                 cmbKode.Items.Add(rd.Item("kode_gb"))

  18:             End While

  19:             closes()

  20:         Catch ex As Exception

  21:             MessageBox.Show(ex.Message)

  22:         End Try

  23:     End Sub

  24:     Sub opens()

  25:         If Not conn Is Nothing Then

  26:             conn.Close()

  27:         End If

  28:         conn.Open()

  29:     End Sub

  30:     Sub closes()

  31:         conn.Close()

  32:     End Sub

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

  34:         conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "db_gambar.accdb"

  35:         combo()

  36:     End Sub

  37:

  38:     Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

  39:         Try

  40:             opens()

  41:             Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)

  42:             Dim MyData(fs.Length) As Byte

  43:             fs.Read(MyData, 0, CInt(fs.Length))

  44:             fs.Close()

  45:             cmd = New OleDbCommand("UPDATE tbl_gambar set nama_gb=@nama,gb=@Image where kode_gb=" & cmbKode.Text & "", conn)

  46:             cmd.Parameters.AddWithValue("@nama", txtNama.Text)

  47:             cmd.Parameters.AddWithValue("@Image", MyData)

  48:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then

  49:                 MessageBox.Show("Foto berhasil di ubah", "Photo Album SQL", MessageBoxButtons.OK, MessageBoxIcon.Information)

  50:                 combo()

  51:                 txtNama.Clear()

  52:                 txtFileName.Clear()

  53:                 PicGambar.Image = Nothing

  54:             End If

  55:             closes()

  56:         Catch ex As Exception

  57:             MessageBox.Show(ex.Message)

  58:         End Try

  59:     End Sub

  60:

  61:     Private Sub btnTelusuri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTelusuri.Click

  62:         Try

  63:             OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png"

  64:             OFD.ShowDialog()

  65:             txtFileName.Text = OFD.FileName

  66:             txtFileName.SelectionStart = txtFileName.Text.Length

  67:             If Trim(txtFileName.Text) <> "" Then

  68:                 PicGambar.Image = Image.FromFile(txtFileName.Text)

  69:             End If

  70:         Catch ex As Exception

  71:             MessageBox.Show(ex.Message)

  72:         End Try

  73:     End Sub

  74:

  75:     Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

  76:         Me.Close()

  77:     End Sub

  78:

  79:     Private Sub txtNama_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNama.Validating

  80:         If txtNama.Text.Length = 0 Then

  81:             ErrorProvider1.SetError(txtNama, "Nama Harus Diisi")

  82:         End If

  83:     End Sub

  84:

  85:     Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged

  86:         Try

  87:             opens()

  88:             Dim arr() As Byte

  89:             cmd = New OleDbCommand("select nama_gb,gb from tbl_gambar where kode_gb=" & cmbKode.Text & "", conn)

  90:             rd = cmd.ExecuteReader

  91:             rd.Read()

  92:             txtNama.Text = rd.Item("nama_gb")

  93:             arr = rd.Item("gb")

  94:             PicGambar.Image = Image.FromStream(New IO.MemoryStream(arr))

  95:             closes()

  96:         Catch ex As Exception

  97:             MessageBox.Show(ex.Message)

  98:         End Try

  99:     End Sub

 100:

 101:     Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

 102:         Try

 103:             opens()

 104:             cmd = New OleDbCommand("DELETE FROM tbl_gambar where kode_gb=" & cmbKode.Text & "", conn)

 105:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then

 106:                 MessageBox.Show("Foto berhasil di hapus", "Photo Album SQL", MessageBoxButtons.OK, MessageBoxIcon.Information)

 107:                 combo()

 108:                 txtNama.Clear()

 109:                 txtFileName.Clear()

 110:                 PicGambar.Image = Nothing

 111:             End If

 112:             closes()

 113:         Catch ex As Exception

 114:             MessageBox.Show(ex.Message)

 115:         End Try

 116:     End Sub

 117: End Class

5. Nah sudah jadi deh..
Penjelasan sedikit.codingannya hampir sama dengan yang insert, bedanya cuma di querynya saja. disini nih bedanya :

   1: 'untuk ubah

   2: cmd = New OleDbCommand("UPDATE tbl_gambar set nama_gb=@nama,gb=@Image where kode_gb=" & cmbKode.Text & "", conn)

   3: 'untuk hapus

   4: cmd = New OleDbCommand("DELETE FROM tbl_gambar where kode_gb=" & cmbKode.Text & "", conn)

Untuk lebih jelasnya silahkan download souce codenya disini

Dan itulah tadi update kami tentang Cara Mengubah dan Menghapus Foto Pada Microsoft Access 2010 ,semoga postingan kami dapat bermanfaat bagi anda semua yang membutuhkan pengertian dari Microsoft Acces,dan jangan lupa ikuti update kami selanjutnya dengan tema Aplikom.Baca juga artikel sebelumnya Tutorial Membuat Database Dengan Microsoft Access 2010 .