Menyimpan Gambar di Database MySQL Menggunakan Visual Basic

Mengolah gambar dalam suatu project tentu sudah tidak asing lagi bagi seorang software developer. Umumnya, gambar yang diolah berupa foto profil perusahaan dan atau profil seseorang dimana

foto profil perusahaan pada umumnya adalah logo perusahaan itu sendiri. Foto profil digunakan untuk menginformasikan siapa pemilik suatu identitas. Foto profil akan mempermudah seseorang dalam pencarian dan atau mengenal data.

Pengolahan foto profil dalam suatu aplikasi, khususnya dalam software development dapat dilakukan melalui 2 cara. Pertama, menyimpan foto profil dalam suatu folder tertentu yang ditentukan dan pada saat yang sama nama foto profil disimpan dalam suatu database. Sehingga ketika menampilkan foto profil, foto diambil dari folder yang ditentukan berdasarkan nama yang diambil dari database. Kedua, menyimpan foto profil ke dalam suatu database secara langsung. Dalam hal ini ketika foto profil, foto langsung diambil dari dalam database berdasarkan ID unik yang ditentukan.

Pada kesempatan kali ini akan membahas cara yang kedua, yaitu menyimpan foto atau gambar di database. Database yang digunakan dalam pembahasan ini adalah MySQL dan Visual Basic sebagai Software Interface Maker-nya dengan menggunakan VB MySQL Direct sebagai penghubung /koneksi antara software interface dengan database.

Kenapa yang akan kita bahas adalah cara kedua? Karena menurut kami cara pertama lebih mudah daripada cara yang kedua. Sehingga memungkinkan cara kedua lebih sedikit yang menguasai daripada cara yang pertama.

Apa berbedaannya? lebih baik cara pertama atau cara kedua?

Cara pertama memiliki keunggulan:

• Lebih mudah diterapkan khususnya bagi kita para software developer pemula.
• Gambar bisa dilihat langsung dengan membuka folder lokasi penyimpanan, tanpa harus menggunakan aplikasi yang berkaitan.
• Kapasitas database tidak cepat membengkak.

Kekurangan cara pertama:

• Resiko kehilangan gambar.

Cara kedua memiliki keunggulan:

• Resiko kehilangan gambar terhindari.
• Gambar lebih aman karena hanya dapat dilihat melalui aplikasi.

Kekurangan cara kedua:

• Resiko pembengkakan kapasitas database.

Baik cara pertama maupun cara kedua memiliki keunggulan dan kekurangan, sehingga jika sahabat ingin menggunakan cara pertama atau cara kedua sahabat dapat menyesuaikan kebutuhan. Yang intinya keputusan ada di tangan sang software developer.

Lalu bagaimana menyimpan gambar dalam database MySQL? Berikut langkah-langkahnya.

Pertama, buatlah project baru dengan menambah 1 (satu) Form. Kemudian, tambahkan referensi VB MySQL Direct v1.0 untuk koneksi database.

Selanjutnya, tambahkan komponen Microsoft Common Dialog Controls 6.0 (SP6).

Selanjutnya tambahkan komponen ke Form:

• 1 CommonDialog, ganti Name menjadi "CD"
• 1 Image, ganti Name menjadi "Gmbr"
• 1 CommandButton, ganti Name menjadi "cmdSimpan" dan Caption menjadi "&Simpan"
• 1 CommandButton, ganti Name menjadi "cmdTutup" dan Caption menjadi "&Tutup"

Atur letak komponen hingga form terlihat bagus.

download project

Passwod terletak di bawah artikel

Selanjutnya, tambahkan kode berikut pada Form untuk setting koneksi:

Public Koneksi As New MYSQL_CONNECTIONPublic RC As New MYSQL_RSPublic SQL As String, NmServer As String, NmDB As String, NmUsr As String, NmPwd As String, NmPort As String
Private Sub Buka()    Set RC = New MYSQL_RS    RC.OpenRs SQL, Koneksi, adOpenDynamic, adLockBatchOptimisticEnd Sub
Function Tutup() As Boolean    If Tutup = True Then        RC.CloseRecordset        Koneksi.CloseConnection        Koneksi = Nothing    End IfEnd Function

Kemudian tambahkan kode berikut untuk koneksi ke database:

Private Sub Form_Load()NmServer = "localhost"          'IP MysqlNmDB = "latihan"           'Nama DatabaseNmUsr = "root"            'Login MysqlNmPwd = "admin"      'Password MysqlNmPort = "3306"         'Port Mysql
Set Koneksi = New MYSQL_CONNECTIONKoneksi.OpenConnection NmServer, NmUsr, NmPwd, NmDB, NmPortKoneksi.CursorLocation = adUseClient
If Koneksi.State = MY_CONN_CLOSED Then    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan!", vbExclamation, "Fatal error"End IfEnd Sub

Selanjutnya, tambahkan kode berikut untuk mencari dan mengambil gambar.

Private Sub Gmbr_Click()CD.ShowOpenIf CD.FileName <> "" Then    Gmbr.Picture = LoadPicture(CD.FileName)End IfEnd Sub

Kemudian tambahkan kode berikut untuk menyimpan gambar ke dalam database:

Private Sub cmdSimpan_Click()    SQL = "select*from t_siswa where id=1"    Buka        With RC    '        .AddNew            If Gmbr.Picture = 0 Then                .Fields("foto") = ""            Else                .Fields("foto") = .ReadBinaryFromFile(CD.FileName)            End If            .Update'            Gmbr.Picture = LoadPicture("")        End With    TutupEnd Sub

Selanjutnya, tambahkan kode berikut untuk menutup project:

Private Sub cmdTutup_Click()EndEnd Sub

Sekarang jalankan project dan coba klik Image dengan nama Gmbr dan cari gambar yang diinginkan kemudian tekan tombol Simpan.

Gambar akan tersimpan ke dalam database.

Untuk contoh database, sahabat dapat mendownloadnya DI SINI dan untuk contoh project dapat sahabat unduh melalui link yang terletak di tengah pembahasan ini. Terima kasih.

Kritik, saran, komentar, atau tambahan informasi dari sahabat dapat dikirimkan melalui komentar.

Password: suruhbelajar.blogspot.com

Share via Whatsapp