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"
|