您的位置:首页精文荟萃软件资讯 → 在ASP中读取ORACLE中的BLOB类型的字段的值,不用Oracle Object for Object

在ASP中读取ORACLE中的BLOB类型的字段的值,不用Oracle Object for Object

时间:2004/10/7 19:16:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            这是第一天在CSDN上发表文档,目的是困惑了两天的问题终于解决了,说出来,与大家共享一下,希望对遇到这样问题的朋友有所帮助。



是这样的,我们在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


进行测试,发现当存进去的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方法在循环中读出数据
text=rs.Fields("blob_excel").GetChunk(size)
Response.binarywrite text
'求出每次取出数据的详细字节数
text_size=Lenb(text)
i=i+1
'如果每次取出数据的详细字节数小于欲定义的截取字节大小则说明该条数据已经完毕,退出循环。

Loop until text_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大对象,而且要采用循环读取大对象的方法进行。

对于BLOB字段同样如此,但有一点注意:,用ADO连接ORACLE数据库,不支持BLOB,打不开含有BLOB字段的记录集。
必段采用OO4O连接ORACLE数据库。BLOB存取方法同上。

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本