熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

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

2013-11-23 17:27:38  來源: PB編程 

  //提交事務

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.