Terima kasih mba/mas devi. Untuk nyimpannya dah bisa, tapi untuk edit masih
belum bisa.mohon bantuannya.
On 1/30/08, devi hilsa <[EMAIL PROTECTED]> wrote:
>
>
> > 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 <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
>
>
>
[Non-text portions of this message have been removed]
