數(shù)據(jù)庫(kù)工程師：在PB中用OLE存取blob類型數(shù)據(jù)(三)

　　6、源程序建立

　　1）首先在數(shù)據(jù)庫(kù)中建立如下結(jié)構(gòu)的表blobsave：

　　　字段名稱　　　數(shù)據(jù)類型　　　　備注

　　　id　　　　　　char（4）　　　primairy key index

　　　s_path　　　　char（50）

　　　pic　　　　　 binary （50）

　　2）在PB建立PBl庫(kù)blobsave.PBl

　　3）在PBl庫(kù)blobsave.PBl中建立應(yīng)用blobsave

　　在應(yīng)用的open事件中設(shè)置數(shù)據(jù)庫(kù)連接程序（本程序中采用的是odbc方式連接數(shù)據(jù)庫(kù)，讀者可根據(jù)自己所建立的數(shù)據(jù)庫(kù)的不同選用不同的連接方式，以下連接數(shù)據(jù)庫(kù)的代碼也有所改動(dòng)，至于連接不同的數(shù)據(jù)庫(kù)的方法，請(qǐng)參考有關(guān)資料，本文不做詳細(xì)介紹）：

　　SQLCA.DBMS = "ODBC"
　　SQLCA.AutoCommit = False
　　SQLCA.DBParm = "Connectstring="DSN=blob""
　　connect；
　　open（w_main）

　　其中命令按鈕cb_path的clicked中的代碼格式如下：open（w_path）

　　其中命令按鈕cb_dbblob的clicked中的代碼格式如下：open（w_dbblob）

　　其中命令按鈕cb_OLEblob的clicked中的代碼格式如下：open（w_OLEblob）

　　4） 建立數(shù)據(jù)窗口dw_blobsave

　　按照上文中建立數(shù)?荽翱詰腷lob列的方法建立數(shù)據(jù)窗口dw_blobsave如圖所示：

　　其中：add，del,save,cancel,,retrieve等分別為數(shù)據(jù)窗口dw_blobsave的append row，delete row，update，retrieve動(dòng)作按鈕。

首先創(chuàng)建實(shí)例變量 OLEstorage stor1

　　然后如圖建立窗口w_path，其中數(shù)據(jù)窗口控件dw_1的rowfocuschanged中的代碼如下：

　　long row_num
　　row_num=dw_1.getrow（）
　　if row_num >0 then
　　ole_1.insertfile（dw_1.object.s_path[row_num]）
　　end if

　　其中數(shù)據(jù)窗口dw_1的buttonclicked中的代碼如下：

　　if dwo.name="cbselect" then
　　long row_num
　　row_num=dw_1.getrow（）
　　string filepath,filename
　　getfileopenname（"請(qǐng)選擇備注文件",filepath,filename）
　　dw_1.object.s_path[row_num]=filepath
　　ole_1.insertfile（filepath）
　　end if

　　保存窗口w_path

　　6）建立窗口w_dbblob

　　打開w_path，把其另存為w_dbblob，改變數(shù)據(jù)窗口dw_1的rowfocuschanged中的代碼如下：

　　blob text1
　　long row_num
　　row_num=dw_1.getrow（）
　　if row_num>0 then
　　string id
　　id = dw_1.object.id[row_num]
　　sqlca.autocommit=true
　　selectblob pic into :text1 from blobsave where id = :id；
　　ole_1.objectdata=text1
　　sqlca.autocommit=false
　　end if

　　改變數(shù)據(jù)窗口dw_1的buttonclicked中的代碼如下：

　　long row_num
　　if dwo.name="cbselect" then
　　row_num=dw_1.getrow（）
　　string filepath,filename
　　getfileopenname（"請(qǐng)選擇備注文件",filepath,filename）
　　dw_1.object.s_path[row_num]=filepath
　　ole_1.insertfile（filepath）
　　end if
　　if dwo.name="cbsave" then
　　string id
　　sqlca.autocommit = true
　　blob text1
　　text1 = ole_1.objectdata
　　dw_1.update（）
　　commit；
　　row_num=dw_1.getrow（）
　　id=dw_1.object.id[row_num]
　　updateblob blobsave
　　set pic = :text1
　　where id = :id ；
　　commit；
　　sqlca.autocommit = FALSE
　　dw_1.retrieve（）
　　dw_1.scrolltorow（row_num）
　　end if
　　保存窗口w_dbblob

　　7）建立窗口w_OLEblob

　　打開w_path，把其另存為w_OLEblob，在窗口w_OLEblob的open事件中寫入以下代碼：

　　stor1 = create olestorage
　　stor1.open（"c:\p1.ole"） //打開或創(chuàng)建ole文件
　　在窗口w_OLEblob的close事件中寫入以下代碼：
　　destroy stor1

　　改變數(shù)據(jù)窗口dw_1的rowfocuschanged中的代碼如下：

　　blob text1
　　long row_num
　　row_num=dw_1.getrow（）
　　if row_num>0 then
　　string id
　　id = dw_1.object.id[row_num]
　　ole_1.open（stor1,"w"+id）
　　end if

　　改變數(shù)據(jù)窗口dw_1的buttonclicked中的代碼如下：

　　long row_num
　　if dwo.name="cbselect" then
　　row_num=dw_1.getrow（）
　　string filepath,filename
　　getfileopenname（"請(qǐng)選擇備注文件",filepath,filename）
　　dw_1.object.s_path[row_num]=filepath
　　ole_1.insertfile（filepath）
　　end if
　　if dwo.name="cbsave" then
　　string id
　　row_num=dw_1.getrow（）
　　id=dw_1.object.id[row_num]
　　ole_1.saveas（stor1,"w"+id）
　　stor1.save（）
　　end if

　　保存窗口w_OLEblob，運(yùn)行應(yīng)用程序即可。

　　7、三種方法的優(yōu)缺點(diǎn)

　　方法一：文件保存在固定的路徑下，數(shù)據(jù)庫(kù)中存取文件路徑和名稱可以節(jié)省數(shù)據(jù)空間，避免了數(shù)據(jù)庫(kù)過分膨脹，但備注文件必須在一定的目錄下，不能丟失，且同一目錄下文件不能重名，對(duì)文件的管理造成一定的困難，另外，在OLE控件中瀏覽顯示備注文件時(shí)，由于每次都要調(diào)用服務(wù)器程序，所以速度較慢。

　　方法二：在數(shù)據(jù)庫(kù)中用blob類型或者varbinary類型字段存儲(chǔ)備注文件，當(dāng)文件存儲(chǔ)在數(shù)據(jù)庫(kù)中以后，就可以刪除硬盤上原來的臨時(shí)文件，不需要復(fù)雜的二進(jìn)制文件管理，且數(shù)據(jù)庫(kù)可以存儲(chǔ)在網(wǎng)絡(luò)服務(wù)器上，對(duì)數(shù)據(jù)的共享非常方便。

　　方法三：在本地用OLE存儲(chǔ)結(jié)構(gòu)存儲(chǔ)備注文件�？梢园阉械亩M(jìn)制文件信息存儲(chǔ)在一個(gè)OLE存儲(chǔ)文件中，管理比較方便。當(dāng)二進(jìn)制文件信息存儲(chǔ)后，可以刪除原來的臨時(shí)文件；因?yàn)榇蜷_存儲(chǔ)文件后不需要每次執(zhí)行服務(wù)器程序來顯示存儲(chǔ)信息，所以存取速度較快。 說明：本文在PB6.5，Sql anywhere數(shù)據(jù)庫(kù)和PB6.5，Sql Server數(shù)據(jù)庫(kù)下，windows98，windows me，NT4.0平臺(tái)上試驗(yàn)通過。