View Single Post
  #4 (permalink)  
Old July 15th, 2006, 02:06 AM
JGumia JGumia is offline
Registered User
 
Join Date: Jul 2006
Location: , , Philippines.
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via Yahoo to JGumia
Default

Private Sub CopyBlob(fname As String)
On Error GoTo ErrorSub

    Dim OraBlob As OraBlob
    Dim Part As OraDynaset
    Dim PartImage As OraBlob

    Set Part = g_OraDatabase.CreateDynaset("select * from blob_test where id = 4", 10&)

    Set PartImage = Part.Fields("Blob_Object").Value

    PartImage.CopyToFile fname, 10000, 1000

    Exit Sub

ErrorSub:

End Sub

"What on Earth am I here for"
Reply With Quote