＋设为首页 ＋添加到收藏夹
在学习PB+FormOne编程过程中,把Formone内容储存到数据库中却无法进行,只要我一用到updateblob 语句就死机,不知为何?我用messagebox(,filelength(filename))返回我要保存的Formone文件长度为5733,应该没有超出,但就是不行.请高手指点。保存代码如下：
int fh
OLEobject book;
string filename="c:\book1.vts"
book=ole_1.object
book.Write(filename, 12)//将控件内容写入临时文件
fh=fileopen( filename, StreamMode!)
IF fh<>-1 THEN
FileRead(fh, vcf_form) //将临时文件内容写入BLOB变量
FileClose(fh)
ELSE
RETURN
END IF
if len(vcf_form )>0 then
UPDATEBLOB DFS_TDSQP set SQPNR=:vcf_form
where LRDW=:gs_lrdw;//将BLOB变量内容写入库中
IF SQLca.sqlcode=0 THEN
COMMIT;
MessageBox("提示", "保存成功!")
ELSE
ROLLBACK;
MessageBox("提示", "保存失败!")
RETURN
END IF
end if
sybase和sql server需要将autocommit属性设置为true
