How to extract documents stored in the database (urgent)

chutian316

Entry code:
updateblob wd set wd_content =: tot_b where wdbh =: ls_wdbh using SQLCA;
   SQLCA.autocommit = false
  SELECT wd.title
    INTO: l_title
    FROM wd
   WHERE wd.wdbh =: ls_wdbh;
if l_title <> '' then
commit using sqlca;
messagebox ('', 'Success in storage!')
   else
rollback using sqlca;
messagebox ('', 'Storage failed, please re-enter!')
end if
Extract code: (in the doublelicked event of ole_1) (ole is the microsoft word in create new in the ole control)
blob pic
int n
selectblob wd_content into: pic from wd where wdbh = 555555;
if isnull (pic) <> true then // if there is a record
ole_1.objectdata = pic. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . line 6
ole_1.activate (inplace!)
end if
Error after running and double-clicking ole_1:
Bad runtime function reference at line 6 in doubleclicked event of object ole_1 of w_2


Please heroes help

fancyzl

This kind of error is often used to compile all once, or delete the related objects, and fill in again.

ssessx

You can also track it and see what happened in this line, such as whether there is data in the BLOB, or you can write the data in the BLOB variable to a file, and then open it with WORD in the system to see if it is normal

chenjiankurt

Add again after deleting