在PowerBuilder中操作BLOB數據的技巧[2]

　　//提交事務

　　Else

　　MessageBox（數據庫錯誤插入失敗）

　　ROLLBACK USING SQLCA;

　　//事務回滾

　　Return

　　End If

　　Blb_tmp=ole_ObjectData

　　UPDATEBLOB bmptable SET bmpdata=:blb_tmp

　　WHERE bmptablebmpno=:bmpno

　　USING SQLCA; //更新存放圖片的字段

　　If SQLCASQLDBCode= Then

　　COMMIT USING SQLCA;

　　//提交事務

　　MessageBox（插入成功圖片入庫成功）

　　Else

　　MessageBox（數據庫錯誤更新圖片失敗）

　　ROLLBACK USING SQLCA;

　　//事務回滾

　　Return

　　End If

　　 從數據庫中刪除BMP圖片

　　UPDATE bmptable SET bmpdata=

　　WHERE bmptablebmpno=:bmpno

　　USING SQLCA;

　　//bmpno為要刪除的圖片編號

　　If SQLCASQLDBCode= Then

　　COMMIT USING SQLCA;

　　//提交事務

　　Else

　　MessageBox（數據庫錯誤更新失敗）

　　ROLLBACK USING SQLCA;

　　//事務回滾

　　Return

　　End If

　　DELETE FROM bmptable

　　WHERE bmptablebmpno=:bmpno

　　USING SQLCA;

　　If SQLCASQLDBCode= Then

　　COMMIT USING SQLCA;

　　//提交事務

　　MessageBox（刪除成功圖片刪除成功）

　　Else

　　MessageBox（數據庫錯誤刪除失敗）

　　ROLLBACK USING SQLCA;

　　//事務回滾

　　Return

　　End If

　　 按圖片編號查詢圖片信息

　　//需要提供一個圖片編號存放在變量bmpno中

　　SetNull（blb_tmp）

　　SELECTBLOB bmptablebmpdata INTO :blb_tmp

　　FROM bmptable

　　WHERE bmptablebmpno=:bmpno

　　USING SQLCA;

　　If Not IsNull（blb_tmp） Then

　　ole_ObjectData=blb_tmp

　　//雙擊OLE控制喚醒OLE服務器即可編輯圖片

　　End If

　　使用PB編程時每次對數據庫進行操作後要注意檢查返回結果以保證程序的可靠性以上程序只是對操作BLOB數據類型的關鍵技術進行探討通過畫板設計相應的用戶界面即可形成一個完整的基於Client/Server結構的數據庫應用程序

       編輯推薦

       ASP NET開發培訓視頻教程

       Microsoft NET框架程序設計視頻教程

[]  []  

From:http://tw.wingwit.com/Article/program/PB/201311/24626.html