Cara Menyimpan File Image[Foto] ke MySQL (VB 6.0)

 Ingin tahu bagaimana cara menyimpan File Image[Foto] ke MySQL, lakukan langkah-langkah berikut:

• Buat database “db_pemrotek”.
• Buat tabel “mahasiswa” dengan struktur tabel sebagai berikut: [nim bertipe int(9), nama bertipe varchar(30), foto bertipe longblob]

• Jalankan “Microsoft Visual Basic 6.0” .
• Buat project baru.
• Buat design form seperti di bawah ini.

 

• Tambahkan References “Microsoft ActiveX Data Objects 2.8 Library”.

 

• Tambahkan sebuah module dengan nama “Module1”.

 

• Deklarasikan beberapa variabel pada Module1.

 

• Buat prosedur buka_koneksi() di bawah pendeklarasian variabel tadi dan ketikkan syntax berikut ini.

• Klik 2x pada Form dan ketikkan syntax berikut ini.

 

• Klik 2x pada cmdBrowse dan ketikkan syntax berikut ini.

 

• Klik 2x pada cmdSimpan dan ketikkan syntax berikut ini.

Private Sub cmdSimpan_Click()
    'simpan nim dan nama
    sql = "INSERT INTO mahasiswa (nim, nama) VALUE ( " & _
        "'" & txtNim.Text & "'," & _
        "'" & txtNama.Text & "')"
    DB.Execute sql

    'proses simpan foto
    sql = "SELECT * FROM mahasiswa WHERE nim='" & txtNim.Text & "'"
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open sql, DB, adOpenDynamic, adLockOptimistic
   
    sFileName = CommonDialog1.FileName

    Set str = New ADODB.Stream
    str.Type = adTypeBinary
    str.Open
    str.LoadFromFile sFileName
    RS!foto = str.Read
    str.Close

    RS.Update
   
    MsgBox "Data berhasil disimpan"
End Sub

• Klik 2x pada cmdTampil dan ketikkan syntax berikut ini.

 

• Klik 2x pada DataGrid1 dan ketikkan syntax berikut ini.

Private Sub DataGrid1_Click()
    'Mengabaikan error jika terjadi kesalahan
    '(error terjadi saat datagrid kosong dan di click)
    On Error Resume Next
   
    'Mengisi TxtIDMakul Dengan data yang terdapat pada datagrid
    'kolom yang ke nol pada baris yang ditunjuk oleh kursor
    txtNim.Text = DataGrid1.Columns(0).Value
     'Mengisi TxtNmMhs Dengan data yang terdapat pada datagrid
     'kolom yang ke satu pada baris yang ditunjuk oleh kursor
    txtNama.Text = DataGrid1.Columns(1).Value
   
    'proses menampilkan foto
    sql = "SELECT * FROM mahasiswa WHERE nim='" & DataGrid1.Columns(0).Value & "'"
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open sql, DB, adOpenDynamic, adLockOptimistic
   
    Set str = New ADODB.Stream
    str.Type = adTypeBinary
    str.Open
    str.Write RS!foto
   
    'proses menyimpan ke bentuk file
    str.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite
    Image1.Picture = LoadPicture("C:\Temp.bmp")
    'proses menghapus file temp.bmp
    Kill ("C:\Temp.bmp")
   
    RS.Close
End Sub

• Tekan F5 untuk menjalankan.