Solved

.JPG saved to SQL Anywhere DB

Posted on 1998-09-03
8
411 Views
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.
0
Comment
Question by:zaus
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 3

Expert Comment

by:a111a111a111
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
Loop
rsWrite.UpdateBatch
rsWrite.Close
rsRead.Close
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.


0
 

Author Comment

by:zaus
ID: 1432909
a111a111a111

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.
0
 
LVL 3

Expert Comment

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

Please regrade the Question.
0
 

Author Comment

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


0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 14

Expert Comment

by:waty
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.
    Next
    Close nFile

End Sub


0
 

Author Comment

by:zaus
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
variant=data1.recordset("photo_front").getchunk(0,32000)
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
0
 
LVL 14

Expert Comment

by:waty
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 :(
0
 

Accepted Solution

by:
jfayling earned 150 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
             'copied
    Close                                   ' close the picture
   
    ConvertFileToDatabase = Trim$(buffer)   ' return the picture
                                            'as a string
   
    Exit Function
   
ConvertFileToDatabaseError:
   
    MsgBox Str$(Err.Number) + ": " + Err.Description + " in " + Err.Source
    'Resume
   
End Function
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

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 …
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
It’s easy to embed any of your public Prezi presentations on your website or social network to share with others. Learn how simple it is in this tutorial.
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

746 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now