這是第一天在CSDN上發(fā)表文檔，目的是困惑了兩天的問題終于解決了，說出來，與大家共享一下，希望對遇到這樣問題的朋友有所幫助。



是這樣的，我們在PB中用F1，把報表以EXCEL格式存貯在ORACLE數據庫中，我們剛開始用一個LONG RAW型字段來存放EXCEL大對象，然后，存進去了幾個小的EXCEL文件，做了測試程序，可以把LONG RAW字段的EXCEL大對象讀出來，然后，在ASP中以EXCEL的格式把EXCEL文件顯示出來。
因為測試程序成功。所以我們開始往表中存EXCEL文件，然后又用測試程序測試，出現了錯誤，錯誤提示是遇到末處理的數據類型，苦思明想了兩天，查了很多的資料，也沒找到原因，后來一想，是不是我們把該表調整了一下，把EXCEL大對象存在了LONG型的字段中，后來就又把LONG型改成了LONG ROW 型，測試程序如下：


<%
Dim conn

Dim StrConn

Dim rs

Dim Sql


Set conn=Server.CreateObject("ADODB.Connection")

StrConn = "driver={Microsoft ODBC for oracle};server=dcmis;UID=custometable;Pwd=custometable;"

conn.Open StrConn


sql="SELECT blob_excel FROM sttb_databldinfo where v_databldid = '00000001'"

Set rs =conn.execute(sql)


Response.Buffer = TRUE

Response.ContentType = "application/vnd.ms-excel"

response.write rs("blob_excel") 'blob_excel字段存的是EXCEL文件

rs.close

set rs=nothing

conn.close

set conn=nothing

%>


然后存進了一個很小的EXCEL進行測試，測試又成功了！


就又存進了幾個非常大的EXCEL，這時測試又出現了錯誤！

遇到末處理的數據類型！

這是什么原因呢？會不會是我們存的EXCEL過大？

我在測試程序中加入了以下幾行：

set field = rs("blob_excel")

fieldSize = field.ActualSize


response.write "fieldsize:"&fieldSize

response.end


進行測試，發(fā)現當存進去的EXCEL較小時，輸出的fieldsize是真實的字段的大小，但當EXCEL較大時，輸出的fieldsize卻都是4，
終于找到了原因，原來如此，就又修改了程序，如下：

<%
Dim conn

Dim StrConn

Dim rs

Dim Sql


Set conn=Server.CreateObject("ADODB.Connection")

StrConn = "driver={Microsoft ODBC for oracle};server=dcmis;UID=custometable;Pwd=custometable;"

conn.Open StrConn


sql="SELECT blob_excel FROM sttb_databldinfo where v_databldid = '00000001'"

Set rs =conn.execute(sql)



size =32765

i=0

'set field = rs("blob_excel")

'fieldSize = field.ActualSize


'response.write "size:"&fieldSize

'response.end


dim s_stream
Do
'以Rs記錄集的Fields對象的DbGetChunk方法在循環(huán)中讀出數據
text=rs.Fields("blob_excel").GetChunk(size)
Response.binarywrite text
'求出每次取出數據的詳細字節(jié)數
text_size=Lenb(text)
i=i+1
'如果每次取出數據的詳細字節(jié)數小于欲定義的截取字節(jié)大小則說明該條數據已經完畢，退出循環(huán)。

Loop until text_size<size

Response.Buffer = TRUE

Response.ContentType = "application/vnd.ms-excel"

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

這樣EXCEL就能正常顯示。

總結如下：

使用AD0數據庫連接，必須采用LONG RAW字段才能夠在網頁中正常顯示EXCEL大對象，而且要采用循環(huán)讀取大對象的方法進行。

對于BLOB字段同樣如此，但有一點注意：，用ADO連接ORACLE數據庫，不支持BLOB，打不開含有BLOB字段的記錄集。
必段采用OO4O連接ORACLE數據庫。BLOB存取方法同上。