| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Using ADO a file can be saved into a field of type OLE Object. The sub setBLOB will read a file from the disk and place it into the field specified. getBLOB will take the file at the specified field and save it to disk. \par \par Public Sub getBLOB(RS As ADODB.Recordset, Field As String, Des As String) \par Dim lngFieldSize As Long \par Dim fileBytes() As Byte \par Dim intFileHandle As Integer \par \par intFileHandle = FreeFile \par \par lngFieldSize = RS(Field).ActualSize \par If lngFieldSize > 0 Then \par fileBytes = RS(Field).GetChunk(lngFieldSize) \par Open Des For Binary As intFileHandle \par Put intFileHandle, , fileBytes \par Close intFileHandle \par End If \par End Sub \par \par Public Sub setBLOB(RS As ADODB.Recordset, Field As String, Source As String) \par Dim fileBytes() As Byte \par Dim intFileHandle As Integer \par \par intFileHandle = FreeFile \par \par Open Source For Binary As intFileHandle \par fileBytes = InputB(LOF(intFileHandle) - 1, intFileHandle) \par RS(Field).AppendChunk fileBytes \par Close intFileHandle \par End Sub \par \par \par Example of use: \par \par setBLOB myRecordSet, "FileField", "c:\\myfile.gif" ' Places file into database \par ' Save file to disk \par getBLOB myRecordSet, "FileField", "c:\\myfile_extracted_from_database.gif" \par } |
Placing a file into an Access database |
India web developer web development India | India web development company India ecommerce web developer