'---------------------------------------------------
' Sample program cara menyimpan image ke database dan mengambil dari database
' Programmed by : Tatang Sutarman
' http://cimahi-one.com
'---------------------------------------------------
' Program ini dibikin dengan tujuan bagaimana? cara menyimpan data image kedatabase
' dan mengambil data image dari database.
' program ini menggunakan ActiveX TPhoto.ocx (Freeware) Buatan cimahi-one.com
' Keterangan sbb:
' Photo1.OpenPhotoFile (Mengambil image dari folder)
' Photo1.SavePhoto NamaField (menyimpan ke database)
' Photo1.LoadPhoto NamaField (mengambil dari database)
' Photo1.Reset (Photo1 di Clear/dikosongkan)
' Selamat Mencoba.
'----------------------------------------------------

'Ini merupakan Prosedur untuk Add (Simpan) data atau Update (Edit) data

Private Sub cmdSave_Click()
    If txtMeals.Text = "" Then Exit Sub: txtMeals.SetFocus
    With rs
        If isEditM = False Then         'add record to database
            If .State = adStateOpen Then .Close
            .Open "SELECT * FROM tblMealCat WHERE ID = 0;", Con, adOpenKeyset, adLockOptimistic
            .AddNew
            .Fields("MCat") = Me.txtMeals.Text
             Photo1.SavePhoto rs!Photo 'Simpan image ke database
            .Update
            MsgBox "New record saved.", vbInformation
        ElseIf isEditM = True Then    'update current record
            If .State = adStateOpen Then .Close
            .Open "SELECT * FROM tblMealCat WHERE ID = " & Me.lvlList.SelectedItem.Text, Con, adOpenKeyset, adLockOptimistic
            .Fields("MCat") = Me.txtMeals.Text
             Photo1.SavePhoto rs!Photo 'Simpan image ke database
            .Update
            MsgBox "Record updated.", vbInformation
        End If
        loadMeals
        lockDetails
    End With
End Sub

'Procedure untuk menampilkan image dari database

Private Sub txtMeals_Change()
If txtMeals.Text = "" Then
    Photo1.Reset
Else
Dim rs As New ADODB.Recordset
rs.Open "Select * from tblMealCat where MCat ='" & txtMeals & "'", Con, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
    If Len(rs!Photo) > 0 Then Photo1.LoadPhoto rs!Photo 'Tampilkan Image dari database
rs.MoveNext
Loop
rs.Close
End If
End Sub
 

Silahkan anda Download File OCXnya.

Untuk Source code lengkapnya silahkan anda download, mohon maaf apabila baru dipublish

Semoga Bermanfaat.