Load/Save Gambar ke database Menggunakan ADODB Stream

Masih banyak programmer-programmer muda (termasuk saya sendiri) yang kadang bingung gimana caranya menyimpan/ membuka file image yang disimpan didalam database. Kalo di Ms. Access, tipedata yg dipake utk nyimpen picture itu OLE
sedangkan DBMS laen (SQL Server, MySQL de… el… el….) adalah BLOB.

berikut adalah contoh untuk mengambil data gambar via Visual Basic 6.0 menggunakan ADODB.stream

Code:

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

dan cara cara menyimpan di dalam database menggunakan adodb.stream :

Code:

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

kalau

Stream Object (ADO version 2.5)

The ADO Stream Object is used to read, write, and manage a stream of binary data or text.

A Stream object can be obtained in three ways:

• From a URL pointing to a document, a folder, or a Record object
• By instantiating a Stream object to store data for your application
• By opening the default Stream object associated with a Record object

Syntax

objectname.property
objectname.method

Properties

Property	Description
CharSet	Sets or returns a value that specifies into which character set the contents are to be translated. This property is only used with text Stream objects (type is adTypeText)
EOS	Returns whether the current position is at the end of the stream or not
LineSeparator	Sets or returns the line separator character used in a text Stream object
Mode	Sets or returns the available permissions for modifying data
Position	Sets or returns the current position (in bytes) from the beginning of a Stream object
Size	Returns the size of an open Stream object
State	Returns a value describing if the Stream object is open or closed
Type	Sets or returns the type of data in a Stream object

Methods

Method	Description
Cancel	Cancels an execution of an Open call on a Stream object
Close	Closes a Stream object
CopyTo	Copies a specified number of characters/bytes from one Stream object into another Stream object
Flush	Sends the contents of the Stream buffer to the associated underlying object
LoadFromFile	Loads the contents of a file into a Stream object
Open	Opens a Stream object
Read	Reads the entire stream or a specified number of bytes from a binary Stream object
ReadText	Reads the entire stream, a line, or a specified number of characters from a text Stream object
SaveToFile	Saves the binary contents of a Stream object to a file
SetEOS	Sets the current position to be the end of the stream (EOS)
SkipLine	Skips a line when reading a text Stream
Write	Writes binary data to a binary Stream object
WriteText	Writes character data to a text Stream object