Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium


.JPG saved to SQL Anywhere DB

Posted on 1998-09-03
Medium Priority
Last Modified: 2013-11-19
How do I get a .jpg image saved into a SQLA database, with out using third party bound controls? The column object is a blob datatype.
Question by:zaus
  • 3
  • 2
  • 2
  • +1

Expert Comment

ID: 1432908
Here is some MS code

Dim Cn As New ADODB.Connection
Dim rsRead As New ADODB.Recordset
Dim rsWrite As New ADODB.Recordset
Dim strChunk As String
Dim Offset As Long
Dim Totalsize As Long
Dim ChunkSize As Long

Cn.Open "pubs", "sa"

rsRead.CursorType = adOpenStatic
rsRead.Open "SELECT pr_info FROM pub_info", Cn

rsWrite.CursorType = adOpenKeyset
rsWrite.LockType = adLockBatchOptimistic
rsWrite.Open "SELECT * FROM myBLOB", Cn

ChunkSize = 1000
Totalsize = rsRead("pr_info").ActualSize

Do WHILE Offset < Totalsize
    strChunk = rsRead("pr_info").GetChunk(ChunkSize)
    Offset = Offset + ChunkSize
    rsWrite("info").AppendChunk strChunk
End Sub

The example reads pr_info long data from the pub_info table and inserts it into the myBLOB table. After the rsRead and rsWrite record sets are created, the size of the long data is stored in the Totalsize variable. In the WHILE loop, long data is inserted in chunks of 1000 bytes. The WHILE loop stops when more data than the original long data size is inserted. After the insertion is completed, the UpdateBatch method is used to commit the data.


Author Comment

ID: 1432909

Your code looks as if you are only taking a blob from one record and transferring it into another record. This we have no problem doing.

What this program does is take a photo from a digital camera using a third party software and displays the photo in our program in a third party control which is bound to the database. We are then able to issue ID cards with the photo and also retain the photo in our database for future use. The problem is the third party control that binds to the database fails to update on the 36 update while using the program. The 36 photo will not update. It causes an invalid page fault in MFC40.dll. We took off the control and updated 104 photos using microsoft image control, but this saves to the databse as a .BMP and for space we need them to be saved as .jpegs. We are looking for a way to update to the SQLA database using code and our current connections through ODBC. Or our other solution is solving the page fault.

I will wait for further answers from you before I grade.

Expert Comment

ID: 1432910
Sorry I am not able to answer this now.

Please regrade the Question.
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Author Comment

ID: 1432911
thank you for trying (a111)^3

LVL 14

Expert Comment

ID: 1432912
Here is a function to save your BLOB to a disk file :

Sub GetFileFromDB(BinaryField As Field, szFileName As String)
    ' *** Will retrieve an entire Binary field and write it to disk ***
    Dim NumChunks    As Long
    Dim TotalSize    As Long
    Dim RemChunk     As Integer
    Dim CurSize      As Integer
    Dim nChunkSize   As Long
    Dim nI           As Integer
    Dim nFile        As Integer
    Dim CurChunk     As String
    nChunkSize = 32000    ' Set size of chunk.
    ' *** Get field size.
    TotalSize = BinaryField.FieldSize()
    NumChunks = TotalSize \ nChunkSize   ' Set number of chunks.
    ' *** Set number of remaining bytes.
    RemChunk = TotalSize Mod nChunkSize
    ' *** Set starting size of chunk.
    CurSize = nChunkSize
    nFile = FreeFile ' Get free file number.
    Open szFileName For Binary As #nFile  ' Open the file.
    For nI = 0 To NumChunks
       If nI = NumChunks Then CurSize = RemChunk
       CurChunk = BinaryField.GetChunk(nI * nChunkSize, CurSize)
       Put #nFile, , CurChunk   ' Write chunk to file.
    Close nFile

End Sub


Author Comment

ID: 1432913
I understand what you have done Watty, however it fails to work for our application. We want to bring in a photo from a SQLA database and write it into a control. We connect using a data control ( data1) and what we want to do is
read in this information then display it in our control, and use the append method to load the photo into the database. The recordset is being set by data1.recordsource=(select * from photo where ssn = '000000000'" then on this recordset we want to retrieve the photo_front into the control. using the previous code. Any more advise would be greatly appreciated, and points have been increased to 150
LVL 14

Expert Comment

ID: 1432914
It is not possible to do it directly. There are so much things we would like to do, but sometime we have to imagine some tricks and work around :(

Accepted Solution

jfayling earned 300 total points
ID: 1432915
I don't know if this is the same thing, but I use this function to copy gifs, and jpgs into a memo field of an access database.

just do the following

    just call ConvertFileToDatabase and store the return value into the database field.

Hope that helps

Function ConvertFileToDatabase(FileName As String) As String
'   Function Name:  ConvertFileToDatabase
'   Author:         Byte Information Technologies (Jason R. Fayling)
'                   jfayling@byte-infotech.com
'   Date:           4/98
'   Inputs:         FileName    =   Location of picture file to convert to a string
'   Outputs:        Picture in string format
'   Purpose:        Converts a picture file into a string
'   Called from:    
'   Functions used in this code:

On Error GoTo ConvertFileToDatabaseError

Dim NextFree As Integer
Dim Temp As String
Dim buffer As String

    Temp = String(1000, " ")       ' get 1000 bits per loop
    NextFree = FreeFile      ' set to next available file handler
    buffer = ""                  ' Used to store picture
    Open FileName For Binary As NextFree    ' open the picture
        While Not EOF(NextFree)
            Get #NextFree, , Temp        ' stores bits into Temp
            buffer = buffer + Temp          ' transfers to buffer
        Wend ' loop until all the bits in the picture have been
    Close                                   ' close the picture
    ConvertFileToDatabase = Trim$(buffer)   ' return the picture
                                            'as a string
    Exit Function
    MsgBox Str$(Err.Number) + ": " + Err.Description + " in " + Err.Source
End Function

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Keep your audience engaged and get the most out of your next presentation with these quick Prezi tips.
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
Suggested Courses
Course of the Month14 days, 22 hours left to enroll

578 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question