Loading image in UserForm from Binary Data Stream

[alegault2002]

I try to load an image control with a data stream read from SQL Server. I have the stream (loaded) but cannot set it to load to the image control.

I have tried

Dim myImage As Object
myImage = LoadPicture(mstream)
Image1.Picture = myImage

with no success, and when I try to save as a temporary file, I get Error 3004, cannot write file.

I read many other things on encoding 64, decoding 64 but with not success either.

Can anyone help me, please?

 

[alegault2002]

UPDATE:

I resolved the Error 3004, permission issue... When I try to get the image back, I get a message saying that I have an Incorrect Image...

Here is what I have done to retrieve the image (jpg):

Open "C:\Users\Documents\test.bin" For Binary As #1
   Put #1, 1, encodeBase64(mstream.Read)
Close #1

Image1.Picture = LoadPicture("C:\Users\Documents\test.bin")

I try to load an image control with a data stream read from SQL Server. I have the stream (loaded) but cannot set it to load to the image control.

I have tried

Dim myImage As Object
myImage = LoadPicture(mstream)
Image1.Picture = myImage

with no success, and when I try to save as a temporary file, I get Error 3004, cannot write file.

I read many other things on encoding 64, decoding 64 but with not success either.

Can anyone help me, please?

 

[alegault2002]

FINAL UPDATE (RESOLVED)
Here is the code I finally patched to get it working...

strSQL = "Select  Photo FROM dbo.tblPhotoEqpt where ideqpt=14"
rst.Open strSQL, cnt, adOpenStatic
Dim adoStream As Object
 Set adoStream = CreateObject("ADODB.Stream")
Dim TempPath As String
TempPath = Environ("temp") & "\"
adoStream.Type = adTypeBinary
     adoStream.Open
     adoStream.Write rst!Photo.Value
     adoStream.SaveToFile TempPath & strFileName, adSaveCreateOverWrite
rst.Close
cnt.Close
adoStream.Close

Image1.Picture = LoadPicture(TempPath & strFileName)

UPDATE:

I resolved the Error 3004, permission issue... When I try to get the image back, I get a message saying that I have an Incorrect Image...

Here is what I have done to retrieve the image (jpg):

Open "C:\Users\Documents\test.bin" For Binary As #1
   Put #1, 1, encodeBase64(mstream.Read)
Close #1

Image1.Picture = LoadPicture("C:\Users\Documents\test.bin")