Re: [indoprog-vb] Tanya masalah 'Image' di SQL

[yunus]

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Private Sub Command1_Click()
  Set cn = New ADODB.Connection
  cn.Open "Provider=SQLOLEDB;" & _
          "Data Source=sony-ak;" & _
          "Initial Catalog=Northwind;" & _
          "User Id=sa;Password="

  Set rs = New ADODB.Recordset
  

  Set mstream = New ADODB.Stream
  mstream.Type = adTypeBinary
  mstream.Open
  mstream.LoadFromFile "c:\sony-ak2.jpg"
  cn.BeginTrans
  rs.Open "select img_id from tbl_test", cn, adOpenKeyset, adLockOptimistic
  rs.AddNew
  rs.Fields("img_id").Value = 111
  rs.Update
  rs.Close
  rs.Open "select * from tbl_test where img_id=111", cn, adOpenKeyset, 
adLockOptimistic
  rs.Fields("img_data").Value = mstream.Read
  rs.Update
  cn.CommitTrans
  rs.Close
  cn.Close
End Sub

Private Sub Command2_Click()
  Set cn = New ADODB.Connection
  cn.Open "Provider=SQLOLEDB;data Source=sony-ak;" & _
          "Initial Catalog=Northwind;User Id=sa;Password="

  Set rs = New ADODB.Recordset
  rs.Open "select img_data from tbl_test where img_id=111", cn, adOpenKeyset, 
adLockOptimistic

  Set mstream = New ADODB.Stream
  mstream.Type = adTypeBinary
  mstream.Open
  mstream.Write rs.Fields("img_data").Value
  mstream.SaveToFile "c:\sony-ak2-from-db.jpg", adSaveCreateOverWrite

  rs.Close
  cn.Close
  Set Image1.Picture = LoadPicture("c:\sony-ak2-from-db.jpg")
End Sub

  ----- Original Message ----- 
  From: lutfi 
  To: indoprog-vb@yahoogroups.com 
  Sent: Friday, September 28, 2007 1:12 PM
  Subject: [indoprog-vb] Tanya masalah 'Image' di SQL


  Salam untuk semuanya,

  Mohon penjelasan, mungkin ada yang tahu bagaimana memasukkan file 
foto/image(*.gif, *jpg) kedalam database SQL ?? 

  Terima kasih sebelumnya

  [Non-text portions of this message have been removed]



   

[Non-text portions of this message have been removed]