> rekan-rekan semua, saya lagi nyoba buat program pake
> vb dan mysql.salah satu fieldnya bertipe blob.
bagaimana caranya untuk meng-insert
> atau meng-edit data yang bertipe blob (untuk foto),
> saya sudah coba dengan script query yang umum tapi
tidak bisa. mohon pencerahannya.
> untuk referencenya saya menggunakan microsoft active
> x data object 2.8 library.
Sebtulnya and bisa memanfaatkan komponen ADODB
stream Reader untuk membaca membaca dan menyimpan blob
dari database dan ke Database.
ini saya kasih cotnoh menyimpan data gambar dari file
lalu disimpan di Database...
sebelumnya buat sebuah tabel dengan dua Field
yaitu : ID_Gambar,Keterangan
beri nama tabelnya Tbl_Photo
=============================
Option Explicit
Dim Dbconn As ADODB.Connection
Dim rsSimpan As ADODB.Recordset
Dim mstream As ADODB.Stream
'sub untuk membaca file gambar kemudian disimpan
kedalam Database
Private Sub Command1_Click()
Set Dbconn = New ADODB.Connection
Dbconn.Open "Provider=SQLOLEDB;" & _
"Data Source=SESUAIKAN DENGAN DATBASE ANDA;"
Set rsSimpan = New ADODB.Recordset
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
' berfungsi mengambil data gamabr yang telah diset
ke folder dibawah yaitu "c:\Gambarkoe.jpg"
mstream.LoadFromFile "c:\Gambarkoe.jpg"
cn.BeginTrans
rs.Open "select id_Gambar from tbl_Photo", DbConn,
adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("id_Gambar").Value = 1
rs.Update
rs.Close
rs.Open "select * from tbl_Photo where id_Gambar=1",
cn, adOpenKeyset, adLockOptimistic
rs.Fields("Keterangan").Value = mstream.Read
rs.Update
cn.CommitTrans
rs.Close
cn.Close
End Sub
'sub membaca gambar dari database
Private Sub Command2_Click()
Set rsambil = New ADODB.Recordset
rsambil.Open "select Keterangan from tbl_Photo where
id_Gambar=1", Dbconn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("Keterangan").Value
rs.Close
cn.Close
End Sub
===========================================
selanjutnya anda bisa melakukan modifikasi sesuai
kebutuhan
mudah-mudahan dapat membantu....
Devi Hilsa
HTTP://WARUNGCD.WORDPRESS.COM
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
