pb如何保存pdf文件？

[j11essica]

pb加server sql 如何保存pdf文件呢？

[talenter]

如果是DW 直接saveas()

[j11essica]

不是dw而是从外面导入pdf保存到sql

[j11essica]

blob bb
bb=ole_1.objectdata
SQLCA.AutoCommit = TRUE
updateblob hejbxx
set pdf = :bb
where hejbxx.合同编号= :bh
;

SQLCA.AutoCommit = FALSE


//commit using sqlca;
IF Sqlca.SQLNRows > 0 THEN
COMMIT;
Messagebox('提示信息','保存成功！')
Else
Rollback;
Messagebox('提示信息','文件保存失败！' + sqlca.sqlerrtext)
END IF


提示保存失败，请高手看看

[newease]

楼主使用的是什么控件来调用PDF的

错误提示的内容是什么

[j11essica]

ole 提示保存失败

[newease]

楼主使用下面代码测试一下，看看到底错误信息是什么。另外bb中是否已经取得数据

blob bb
string ls_err
bb=ole_1.objectdata
messagebox("abc",string(len(bb)))
updateblob hejbxx
set pdf = :bb
where hejbxx.合同编号= :bh ;
//commit using sqlca;
IF Sqlca.SQLNRows > 0 THEN
COMMIT;
Messagebox('提示信息','保存成功！')
Else
ls_err=sqlca.sqlerrtext
Rollback;
Messagebox('提示信息','文件保存失败！' +ls_err) //在rollback后sqlerrtext内容是回滚操作的提示信息


END IF

[j11essica]

刚刚用这段提示两个syntax error

[j11essica]

以前那段代码提示
rollback transaction 请求没有对应的begin transtion

[j11essica]

楼主使用下面代码测试一下，看看到底错误信息是什么。另外bb中是否已经取得数据

blob bb
string ls_err
bb=ole_1.objectdata
messagebox("abc",string(len(bb)))
updateblob hejbxx
set pdf = :bb
where hejbxx.合同编号= :bh ;
//commit using sqlca;
IF Sqlca.SQLNRows > 0 THEN
COMMIT;
Messagebox('提示信息','保存成功！')
Else
ls_err=sqlca.sqlerrtext
Rollback;
Messagebox('提示信息','文件保存失败！' +ls_err) //在rollback后sqlerrtext内容是回滚操作的提示信息


END IF


abc =9274880

[newease]

楼主是否在执行sql语句前，已经进行数据库连接

如
//SQLCA.DBMS = "ODBC"
//SQLCA.AutoCommit = False
//SQLCA.DBParm = "ConnectString='DSN=test;UID=dba;PWD=sql'"
//
//CONNECT USING SQLCA;