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



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


<%
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

%>


然后存進(jìn)了一個(gè)很小的EXCEL進(jìn)行測(cè)試，測(cè)試又成功了！


就又存進(jìn)了幾個(gè)非常大的EXCEL，這時(shí)測(cè)試又出現(xiàn)了錯(cuò)誤！

遇到末處理的數(shù)據(jù)類型！

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

我在測(cè)試程序中加入了以下幾行：

set field = rs("blob_excel")

fieldSize = field.ActualSize


response.write "fieldsize:"&fieldSize

response.end


進(jìn)行測(cè)試，發(fā)現(xiàn)當(dāng)存進(jìn)去的EXCEL較小時(shí)，輸出的fieldsize是真實(shí)的字段的大小，但當(dāng)EXCEL較大時(shí)，輸出的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對(duì)象的DbGetChunk方法在循環(huán)中讀出數(shù)據(jù)
text=rs.Fields("blob_excel").GetChunk(size)
Response.binarywrite text
'求出每次取出數(shù)據(jù)的詳細(xì)字節(jié)數(shù)
text_size=Lenb(text)
i=i+1
'如果每次取出數(shù)據(jù)的詳細(xì)字節(jié)數(shù)小于欲定義的截取字節(jié)大小則說明該條數(shù)據(jù)已經(jīng)完畢，退出循環(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就能正常顯示。

總結(jié)如下：

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

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