BLOB data ADO Streams in VBA [Solved]
Hello,
I'm having trouble with the following code, and am wondering if there is a problem with what i'm trying to do. I'm trying to read blob data which contains a bmp file into a local file so I can open it.
This isn't necessarily specific to VBA, but I'm working in VBA so I'm posting it here.
VB Code:
Dim mystream As ADODB.Stream
Dim rst As ADODB.Recordset
Dim Cnxn As ADODB.Connection ' connection to db
Dim strCnxn As String ' connection arguments
Dim strSQL As String ' query var
Set Cnxn = New ADODB.Connection
Set rst = New ADODB.Recordset
strCnxn = ThisWorkbook.strCnxn
Cnxn.CursorLocation = adUseClient
Cnxn.Open strCnxn
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
rst.Open "SELECT * FROM bay_pictures limit 1", Cnxn
mystream.Open
mystream.Write rst.Fields("pic_data").Value
mystream.SaveToFile "c:\" & rst!pic_name, adSaveCreateOverWrite
mystream.Close
The code generates and E_FAIL -2147467259 (800040005) on the line where I call
VB Code:
mystream.Write rst.Fields("pic_data").Value
Any suggestions?