请帮看看Formula:WriteToBlobEx....
请帮看看以下程序(Formula One)哪写错了!
//写文件到数据库:
Long phBlob
phBlob = ole_1.object.WriteToBlobEx(0)
BLOB LBB_TMP
LBB_TMP=BLOB(STRING(PHBLOB))
updateBlob xt_table set nr=:LBB_TMP where id='01' using sqlca;
commit;
//从数据库读文件:
Long phBlob
BLOB LBB_TMP
SELECTBLOB nr INTO :LBB_TMP FROM XT_TABLE where id='01' using sqlca;
PHBLOB=LONG(LBB_TMP)
OLE_1.OBJECT.ReadFromBlob(PhBlob,0)