How do i store OLE Object (JPG) file to database

Pass the OLE Picture Object and the ADO Database field to the following code. It's not pretty since it uses an intermediate Windows File, but it is the shortest piece of code I know. There are other methods using In Memory files, etc.

To be honest I use the LEAD Tools Image Object that has a SAVE command.

Neon K.

Hi there,

below are some sample to store and to retrieve images from and to BLOB field.. give it a try..

retrieve from BLOB field
store to BLOB field
sample usage
good luck my fren.. :)

Hi there,

below are some sample to store and to retrieve images from and to BLOB field.. give it a try..

retrieve from BLOB field

Expand|Select|Wrap|Line Numbers

1. Public Sub getBLOB(RS As ADODB.Recordset, Field As String, Des As String)
2.     Dim lngFieldSize As Long
3.     Dim fileBytes() As Byte
4.     Dim intFileHandle As Integer
5.  
6.     intFileHandle = FreeFile
7.  
8.     lngFieldSize = RS(Field).ActualSize
9.     If lngFieldSize > 0 Then
10.         fileBytes = RS(Field).GetChunk(lngFieldSize)
11.         Open Des For Binary As intFileHandle
12.             Put intFileHandle, , fileBytes
13.         Close intFileHandle
14.     End If
15. End Sub
16.  

store to BLOB field

Expand|Select|Wrap|Line Numbers

1. Public Sub setBLOB(RS As ADODB.Recordset, Field As String, Source As String)
2.     Dim fileBytes() As Byte
3.     Dim intFileHandle As Integer
4.  
5.     intFileHandle = FreeFile
6.  
7.     Open Source For Binary As intFileHandle
8.         fileBytes = InputB(LOF(intFileHandle) - 1, intFileHandle)
9.         RS(Field).AppendChunk fileBytes
10.     Close intFileHandle
11. End Sub
12.  

sample usage

Expand|Select|Wrap|Line Numbers

1. setBLOB myRecordSet, "FileField", "c:\myfile.gif" ' Places file into database
2.  
3. getBLOB myRecordSet, "FileField", "c:\myfile_extracted_from_database.gif"
4.  

good luck my fren.. :)

Is there any other method to do this?
because after using this code it stores image as Long binary data. If you do the same With using MsAccess's form, it stores as Bitmap file. If we are handling Big database, then above example will make any differance to speed of accessing database?
Plz reply waiting

Hi there,

Another option will be converting BMP to JPG format respectively, take a look at below attached link, hope it helps. Good luck & take care.

http://www.vbaccelerator.com/home/VB...ry/article.asp

Is there any other method to do this?
because after using this code it stores image as Long binary data. If you do the same With using MsAccess's form, it stores as Bitmap file. If we are handling Big database, then above example will make any differance to speed of accessing database?
Plz reply waiting

im also looking and still in progress of implementation "How do i store OLE Object (JPG) file to database( MS-ACCESS and SQL SERVEr2000) for my recent project..as soon as i will provide whole source code.in .ZIP format

take care
from geoamins.uni.cc

hi co-scrpiters

would you send me a running visual basic code for uploading and retrieving images from mysql database?

here is my email address mil id removed
please....

because i tried so many codes that i have seen over the net but none of them will run... i think there something maybe on my code that i have to refresh..
please send it to me... it will be very much appreciated...
thnx all and god bless us all scripters...

ikebiz...

Please find related discussions here and here .