[FIXED]Apne BIGBLOB i VisualBasic(MySQL og s...

[Richard87]

Jeg far en feilmelding:

Operation is not allowed in this context.

(Err.nr: 3219(&HC93) )

 

her er koden min:

Dim rs As New ADODB.Recordset
Dim stream As New ADODB.stream
OpenConnection

Dim iID As Long, pic As clsPictures
For Each pic In colPictures
   If lstPictures2.ListIndex = pic.Index Then
       iID = pic.ID2
       Exit For
   End If
Next
Set pic = Nothing
rs.Open "SELECT * FROM bilder WHERE id=" & iID, conn, adOpenStatic, adLockOptimistic
stream.type = adTypeBinary'la til denne linjen sa virket det
stream.Open

stream.Write rs.Fields("picBilde").Value 'Her er feilen

stream.SaveToFile "c:\tempbilde", adSaveCreateOverWrite
Set picMain = LoadPicture("C:\tempbilde")
stream.Close
rs.Close
CloseConnection

 

[EDIT] ALt virker, la til "stream.type = adTypeBinary" og sa virket det.. :}

Endret 26. april 2006 av Richard87