当前位置： 移动技术网 > IT编程>开发语言>.net > 如何将一个EXCEL文件作为二进制文件存入数据库，再把它读取打开？

如何将一个EXCEL文件作为二进制文件存入数据库，再把它读取打开？

2018年10月09日  | 移动技术网IT编程  | 我要评论

黑客组织anonymous,莫小娘图片,山东泰安中考成绩查询

下面的代码把中的image类型字段还原为excel文件。  
  数据库用的是sql   server自带的pubs  
  dim   cn   as   adodb.connection  
  dim   rs   as   adodb.recordset  
  dim   mstream   as   adodb.stream  
   
  set   cn   =   new   adodb.connection  
  cn.connectionstring   =   "provider=sqloledb.1;persist   security   info=true;user   id=sa;password=sa;"   _  
          &   "initial   catalog=pubs;data   source=myserver"  
  cn.openset   rs   =   new   adodb.recordset  
  rs.open   "select   *   from   pub_info",   cn,   adopenkeyset,   adlockoptimistic  
   
  set   mstream   =   new   adodb.stream  
  mstream.type   =   adtypebinary  
  mstream.open  
  mstream.write   rs.fields("logo").value  
  mstream.savetofile   "c:publogo.xls",   adsavecreateoverwrite  
   
  rs.close  
  cn.close  
   
  下面的代码把一excel保存到数据库中set   cn   =   new   adodb.connection  
  cn.open   "provider=sqloledb.1;persist   security   info=true;user   id=sa;password=sa;"   _  
          &   "initial   catalog=pubs;data   source=myserver"  
   
  set   rs   =   new   adodb.recordset  
  rs.open   "select   *   from   pub_info",   cn,   adopenkeyset,   adlockoptimistic  
   
   
  rs.addnew  
   
  set   mstream   =   new   adodb.stream  
  mstream.type   =   adtypebinary  
  mstream.open  
  mstream.loadfromfile   txtexcelpath  
  rs.fields("pub_id")   =   "……"   在pubs库中，这个字段是主键，需要修改一个有效值  
   
  rs.fields("logo").value   =   mstream.read  
  rs.update  
   
  rs.close  
  cn.close  
   
  该代码来自msdn

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网