Ya, saya ikut setuju jika path level saja sudah cukup disave di database. Cukup ngirit keliatannya, dan saya sudah implementasikan. Namun saya terkendala saat ingin ditampilkan di report MS-Accessnya.
Ada saran? Thx, Aqiel On 7/9/07, rengga_patria <[EMAIL PROTECTED]> wrote: > > 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] <indoprog-vb%40yahoogroups.com>, "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] > > > > > [Non-text portions of this message have been removed]
