在PowerBuilder中操作BLOB數據的技巧

在PowerBuilder中操作BLOB數據的技巧

（加入日期:2001-8-24）

【保存文章至硬盤】【打印文章】【字體：大中 小】

分享到： 0

作者: 白菊

PowerBuilder提供的BLOB（Binary Large Object）數據類型可以用來處理大型數據，包括圖像、大文本、Word文檔、二進制文件和多媒體等各種數據，它的長度可以是0～2GB字節，我們利用BLOB類型的變量可以將數據傳遞給數據庫以大字段方式存儲。但是用通常的數據窗口技術無法將BLOB類型數據加入到數據庫中，也不能將數據庫中相應字段的數據提取出來，即使在程序中直接使用UPDATE和SELECT等SQL語句也是無法對BLOB類型數據進行操作的。下面筆者將介紹在PowerBuilder 7.0中操作BLOB類型數據的技巧。

程序設計原理
在PB中實現BLOB類型數據的入庫和查詢，主要要用到兩條特殊的SQL命令——UPDATEBLOB和SELECTBLOB，首先定位要進行操作的記錄，然後使用UPDATEBLOB命令就可以將BLOB類型變量中存放的數據傳遞給數據庫，而使用SELECTBLOB則是將指定記錄中的大字段數據傳遞給BLOB變量。

使用BLOB類型變量獲取外界文件的數據內容，還必須藉助於PB提供的可視化OLE控制對象，通過它可以將指定的文件內容顯示成相應的對象（如BMP圖片），雙擊它就可以激活相應的OLE服務器應用程序，來編輯修改對象的內容，同時也可以讀取對象的數據內容（利用OLE控件的ObjectData屬性），給BLOB類型變量賦值。

下面結合一個簡單的程序實例，講述如何處理BLOB數據類型。在這個例子中，BMP圖片將作爲一個大字段存儲在數據庫中。我們選擇Microsoft Access 2000作爲後臺數據庫，它的字段類型中包含“OLE對象”類型（如果選擇MS SQL Server作爲數據庫服務器，可以使用TEXT或IMAGE類型字段存放大字段數據），這樣就爲管理多媒體數據、大文件和圖片提供了支持。

操作BLOB字段的實現過程
我們在Access中創建一個新的數據庫文件，文件名是bmp.mdb，在其中定義BMP圖片數據表bmptable如下：

各字段的其它設置（如字段寬度等），均採用缺省形式即可。

列名
字段類型
能否爲空
備註

bmpno
數字
否
圖片編號(關鍵字)

bmpname
文本
能
圖片名稱

bmpdata
ole對象
能
圖片(bmp)


編程前還需要做的一步準備工作是在操作系統的ODBC配置中建立指向bmp.mdb數據庫的連接，名稱定爲bmptable。

下面的程序片段實現了數據庫的連接，圖片的插入、更新、刪除和查詢。考慮文章的篇幅，本文只列出與主題相關的程序源碼。

1. 連接Access數據庫

SQLCA.DBMS = "ODBC"
// SQLCA爲全局transaction事務變量
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=bmptable;UID=;PWD='"
CONNECT USING SQLCA;
If SQLCA. SQLCode ＜＞ 0 Then
MessageBox ("數據庫錯誤", "連接失敗！")
Halt close;
End If

2. 將BMP圖片存入數據庫

integer bmpno,icount
//變量bmpno存放給定的圖片編號
string filepath,filename
blob blb_tmp
//…此處對圖片編號bmpno賦值，例如bmpno=101；可以通過程序實現爲彈出對話框窗口提供一個圖片編號
//查詢指定的圖片編號是否已經存在
icount=0
SELECT COUNT() INTO :icount
FROM bmptable
WHERE bmptable.bmpno=:bmpno
USING SQLCA; //:bmpno爲給定的圖片編號
if icount＞0 then
MessageBox("查詢結果",string(bmpno)+" 號圖片已經存在，請輸入一個新的圖片編號")
return
end if
//在OLE控制對象ole_1中插入BMP圖片文件
GetFileOpenName("請選擇一個需要插入的BMP圖片文件",filepath,filename,"BMP","BMP圖片文件(.BMP),.BMP")
If Len(filepath)=0 Then
Return
End If
If ole_1.InsertFile(filepath)＜＞0 Then //OLE錯誤 Return
End If
//新圖片入庫
string sql
sql= "INSERT INTO bmptable (bmpno,bmpdata,bmpname) &&
VALUES ("&&
+string(bmpno)+",'','"&&
+filename+"')"
EXECUTE IMMEDIATE :sql;
If SQLCA.SQLDBCode=0 Then
COMMIT USING SQLCA;
//提交事務
Else
MessageBox("數據庫錯誤","插入失敗")
ROLLBACK USING SQLCA;
//事務回滾
Return
End If
Blb_tmp=ole_1.ObjectData
UPDATEBLOB bmptable SET bmpdata=:blb_tmp
WHERE bmptable.bmpno=:bmpno
USING SQLCA; //更新存放圖片的字段
If SQLCA.SQLDBCode=0 Then
COMMIT USING SQLCA;
//提交事務
MessageBox("插入成功","圖片入庫成功")
Else
MessageBox("數據庫錯誤","更新圖片失敗")
ROLLBACK USING SQLCA;
//事務回滾
Return
End If

3. 從數據庫中刪除BMP圖片

UPDATE bmptable SET bmpdata=''
WHERE bmptable.bmpno=:bmpno
USING SQLCA;
//bmpno爲要刪除的圖片編號
If SQLCA.SQLDBCode=0 Then
COMMIT USING SQLCA;
//提交事務
Else
MessageBox("數據庫錯誤","更新失敗")
ROLLBACK USING SQLCA;
//事務回滾
Return
End If
DELETE FROM bmptable
WHERE bmptable.bmpno=:bmpno
USING SQLCA;
If SQLCA.SQLDBCode=0 Then
COMMIT USING SQLCA;
//提交事務
MessageBox("刪除成功","圖片刪除成功")
Else
MessageBox("數據庫錯誤","刪除失敗")
ROLLBACK USING SQLCA;
//事務回滾
Return
End If

4. 按圖片編號查詢圖片信息

//需要提供一個圖片編號存放在變量bmpno中
SetNull(blb_tmp)
SELECTBLOB bmptable.bmpdata INTO :blb_tmp
FROM bmptable
WHERE bmptable.bmpno=:bmpno
USING SQLCA;
If Not IsNull(blb_tmp) Then
ole_1.ObjectData=blb_tmp
//雙擊OLE控制喚醒OLE服務器即可編輯圖片
End If

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