注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

向服务器acess导入excel(转没验证)  

2008-01-20 16:33:15|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
<%dim   conn  
  dim   conn2  
  'On   Error   Resume   Next  
  Server.ScriptTimeOut   =   999999  
  set   conn=CreateObject("ADODB.Connection")  
  conn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Jet   OLEDB:Database   Password=;Data   Source="&Server.MapPath("200509GK.mdb")     '导入的数据库名称  
   
  set   conn2=CreateObject("ADODB.Connection")  
  conn2.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Jet   OLEDB:Database   Password=;Extended   properties=Excel   5.0;Data   Source="&Server.MapPath("1143509085629.xls")   '要导的EXCEL表  
   
   
  sql   =   "SELECT   *   FROM   [欧盟第二次$]"    
  set   rs   =   conn2.execute(sql)  
  while   not   rs.eof  
  sql   =   "insert   into   200501GK([CORP_CODE],[GB],[CORP_NAME],[UNIT],[BZ],[PEDM])   values('"&   fixsql(rs(0))   &"','"&   fixsql(rs(1))   &"','"&   fixsql(rs(2))   &"','"&   fixsql(rs(3))   &"','"&fixsql(rs(4))&"',"&fixsql(rs(5))&")"  
  'response.write   sql  
  'response.end  
  conn.execute(sql)  
  rs.movenext  
  Response.Write   "正在插入   "&sql&"<Br>"  
  Response.Flush  
  wend  
   
   
  conn.close  
  set   conn   =   nothing  
  conn2.close  
  set   conn2   =   Nothing  
   
  If   Err   =   0   Then  
  Response.Write   "导入成功"  
  Else  
  Response.Write   "导入失败!"  
  End   If  
   
  function   fixsql(str)  
  dim   newstr  
  newstr   =   str  
  if   isnull(newstr)   then  
  newstr   =   ""  
  else  
  newstr   =   replace(newstr,"'","''")  
  end   if  
  fixsql   =   newstr  
  end   Function  
  %>
  评论这张
 
阅读(61)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017