pb加server sql 如何保存pdf檔案呢？
uj5u.com熱心網友回復：
如果是DW 直接saveas()uj5u.com熱心網友回復：
不是dw而是從外面匯入pdf保存到sqluj5u.com熱心網友回復：
blob bbbb=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
提示保存失敗，請高手看看
uj5u.com熱心網友回復：
樓主使用的是什么控制元件來呼叫PDF的錯誤提示的內容是什么
uj5u.com熱心網友回復：
ole 提示保存失敗uj5u.com熱心網友回復：
樓主使用下面代碼測驗一下，看看到底錯誤資訊是什么。另外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
uj5u.com熱心網友回復：
剛剛用這段提示兩個syntax erroruj5u.com熱心網友回復：
以前那段代碼提示rollback transaction 請求沒有對應的begin transtion
uj5u.com熱心網友回復：
樓主使用下面代碼測驗一下，看看到底錯誤資訊是什么。另外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
uj5u.com熱心網友回復：
樓主是否在執行sql陳述句前，已經進行資料庫連接如
//SQLCA.DBMS = "ODBC"
//SQLCA.AutoCommit = False
//SQLCA.DBParm = "ConnectString='DSN=test;UID=dba;PWD=sql'"
//
//CONNECT USING SQLCA;
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/93588.html
標籤：腳本語言
上一篇：關于按月取周問題