Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub cmdOpen_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=NAMA_SERVER;Initial
Catalog=NAMA_DATABASE;User Id=USER_ID;Password=PASSWORD"
Set rs = New ADODB.Recordset
rs.Open "Select * from rekening where nomer=1", cn, adOpenKeyset,
adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value '--- Fields tempat gambar berada
mstream.SaveToFile App.Path & "\logo.jpg", adSaveCreateOverWrite '---
simpan dulu ke disk
MsgBox App.Path & "\logo.jpg"
img1.Picture = LoadPicture(App.Path & "\logo.jpg") '--- tampilkan ke Image
rs.Close
cn.Close
End Sub
Private Sub cmdSave_Click()
Set cn = New ADODB.Connection
cn.Mode = adModeReadWrite
cn.Open "Provider=SQLOLEDB;data Source=NAMA_SERVER;Initial
Catalog=NAMA_DATABASE;User Id=USER_ID;Password=PASSWORD"
Set rs = New ADODB.Recordset
rs.Open "Select * from rekening where nomer=1", cn, adOpenDynamic,
adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile App.Path & "\norton.jpg" '--- Nama File yang akan
disimpan
rs.Fields("Logo").Value = mstream.Read '--- Field Tempat gambar akan
disimpan
rs.Update
MsgBox "done!"
rs.Close
cn.Close
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\norton.jpg") '--- tampilkan ke
Image
End Sub
Semoga membantu
----- Original Message ----
From: 007 <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, July 11, 2008 3:44:56 PM
Subject: [Programmer-VB] Simpan file gambar dalam data base
sebelumnya maaf kalao email saya menggangguuuuuu. .....
ada yang tau gmana cara masukkan file gambar ke data base ( maksudnya di
simpan dalam field tipe ole object)
thanks, banget yaaaa
