kalo di access, tipedata yg dipake utk nyimpen picture itu OLE
klo ngambil datanya via vb, bisa pake adodb.stream
contoh codenya spt ini (correct me if i was wrong) :
Dim sSQL As String, rs As ADODB.Recordset
Dim BlobValue As New ADODB.Stream
If IsNull(IDFileUpdated) = False Then 'ada gambarnya
sSQL = "SELECT * FROM Files WHERE IDFile = " & IDFile
Set rs = db.Execute(sSQL)
BlobValue.Type = adTypeBinary
BlobValue.Open
BlobValue.Write rs!file
BlobValue.SaveToFile "C:\" & rs!NamaFile, adSaveCreateOverWrite
imgFoto.Picture = LoadPicture("C:\" & rs!NamaFile)
Call Kill("C:\" & rs!NamaFile)
BlobValue.Close
NamaFileUpdated = rs!NamaFile
FileSizeUpdated = rs!FileSize
rs.close
set rs = nothing
Else
Set imgFoto.Picture = Nothing
End If
set blobvalue = nothing
cara nyimpennya jg mudah koq (walopun rada makae trik.. coba liat syntax
SELECT di rs.open nya). pake adodb.stream jg :
BlobValue.Type = adTypeBinary
rs.Open "SELECT * FROM Files WHERE 1=0", db, adOpenKeyset,
adLockOptimistic
rs.AddNew
BlobValue.Open
BlobValue.LoadFromFile ValidStr(cdlg.FileName)
rs!IDFile = iIDFile
rs!NamaFile = FilePart(cdlg.FileName, NameExt)
rs!FileSize = BlobValue.Size
rs!file = BlobValue.Read
rs.Update
BlobValue.Close
rs.Close
End If
Set BlobValue = Nothing
gimana-gimana?
--
regards,
Rizky Prihanto
~~~~~~~~~~~~~~~~~~~
Office : PT Lintang Kawuryan Malang (http://www.linkar.co.id)
Personal : http://www.software-arsitek.web.id
[Non-text portions of this message have been removed]
