SIM Konsultant
Home » » Cara Simpan Gambar Database MySQL dengan VB 6.0

Cara Simpan Gambar Database MySQL dengan VB 6.0

Written By Hasan Basari on Saturday, April 5, 2014 | 12:29 AM

Berikut saya tuturkan cara menyimpan gambar ke database MySQL dengan bahasa pemrograman visual basic 6.0 yang tentunya menggunakan koneksi ADODB. Penyimpanan gambar tersebut menggunakan tipe data longblob. Langkah pertama dalam tahap ini kita membuat database menggunakan MySQL dengan nama database sesuai dengan selera masing-masing. Berikutnya kita membuat sebuah tabel yang dimana file gambar tersebut disimpan.
sebagai contoh kita buat tabel dengan script berikut:
CREATE TABLE `Gambar` (
`id`  varchar(10) NOT NULL ,
`gambar`  longblob ALOW NULL ,
PRIMARY KEY (`id`)
)
;


setelah berhasil kita lanjutkan dengan pembuatan form di visual basic, desainnya kurang lebih seperti berikut:
Dari form tersebut kita sisipkan 1 buah IMAGE, 1 buah Commondialog dan 2 buah Button.
kita beralih ke view kode atau tampilan bahasa program dan langkah pertama dalam view kode kita deklarasikan variabel-variabel yang kita butuhkan. diantaranya:

Public Cn As New ADODB.Connection
Public Foto As New ADODB.Stream
Public rs As New ADODB.Recordset
Public strSql As String

setelah deklarasi variabel tersebut kita mulai dengan koneksi yang kurang lebih sbb:

Public Sub BukaDB()
    With Cn
        If .State = adStateOpen Then Cn.Close
        .CursorLocation = adUseClient
        .ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=NamaServer;PWD=password;UID=root;PORT=3306;DATABASE=NamaDatabase;option=3;"
        .Open
        If Cn.State = adStateOpen Then
        Else
            MsgBox "Koneksi ke database error, hubungi administrator !"
        End If
    End With
End Sub

untuk tulisan yang berwarna merah silahkan ganti sesuai dengan nama server sesuai dengan komputer masing-masing dan database sesuai dengan yang telah dibuat.

untuk listing program tombol Browse adalah sbb:

Private Sub cmdbrowse_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Image1.Stretch = True
End Sub

untuk tombol simpan listing programnya sbb;
 kita contohkan nama tabelnya adalah tabel "Gambar"

Private Sub Command1_Click()

    strSql = "Insert Into Gambar Values("1",Null)"
    Cn.Execute strSql
   
    strSql = "SELECT * FROM Gambar WHERE id="1""
    Set rs = New ADODB.recordset
    rs.CursorLocation = adUseClient
    rs.Open strSql, Cn, adOpenDynamic, adLockOptimistic

    Set Foto = New ADODB.Stream
    Foto.Type = adTypeBinary
    Foto.Open
    Foto.LoadFromFile CommonDialog1.FileName
    rs!Gambar = Foto.Read
    Foto.Close
   
    rs.Update
    Set rs = Nothing
exit sub

Private Sub Form_Load()
    Call BukaDB
End Sub

Demikian cara menyimpan gambar kedalam database MySQL dengan menggunakan bahasa pemrograman Visual basic 6.0

Semoga bermanfaat.

2 komentar:

Brosur Apotik

Tentang Kami

Cirebon, Jawa Barat, Indonesia