Thx for all master VB yang telah memberikan inputan bagaimana data Pic bisa tersimpan via VB, memang bila via script agak sedikit besar effort kita membuatnya, namun ide hanya menyimpan path nya kedalam data base access sudah cukup untuk level saya. Terima Kasih sekali lagi
Rengga H Patria --- In [email protected], "Rizky Prihanto" <[EMAIL PROTECTED]> wrote: > > 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] >
