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

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

又一个asp导入excel  

2008-01-20 17:02:51|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

将Excel中的数据导入到sql 2000(Access)中,前提是在sql 2000(Access)中的表已经建好。

有两个文件,excel.htm,excelTosql.asp

excel.htm用于建立个表单页面,让用户选择文件来源.代码如下:

以下是excel.htm代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form action="excelTosql.asp" method="post" name="form1" id="form1">
  <p>
    <input name="bbb" type="file" id="bbb" size="30" />
   
  </p>
  <p>
    <input type="submit" name="Submit" value="提交" />
</p>
</form>
</body>
</html>

excelTosql.asp:用于处理表单提交过来的数据(显示并写入数据库),代码如下:

以下是excelTosql.asp代码片段:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer

'如果是sql 2000数据库,请用下面 连接驱动
connstr = "Driver={SQL Server};server=(local);uid=sa;pwd=123;database=jmgl2007;"
'如果是Access数据库,请用下面 连接驱动
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb/jmgl2007.mdb)

Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If

sub closedb()
conn.close
set conn=nothing
end sub
  
   dim aa
  aa=request.form("bbb")  '获取传递过来的值

  Dim   StrConnect,cc  
  Dim   objConn  
  Dim   rs  
  Dim   Sql  
  cc=0
  'Excel连接驱动
  aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
  

   set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa


  Set   objConn=CreateObject("ADODB.Connection")
 
  objConn.Open   StrConnect  
   
  '注意   表名一定要以下边这种格试   "[表名$]"   书写  
  Set   rs = Server.CreateObject("ADODB.Recordset")    
  Sql="select   *   from   [sheet1$]   "  
  rs.Open   Sql,StrConnect,2,2    
  IF     rs.Eof   And     Rs.Bof   Then  
  response.Write("<script>alert   ('没有资料可以导入!');history.go(-1)</script>")  
   
   
  else  
   
   
  Do   While   Not   rs.EOF
  '列出表内信息 
    response.write"excel数据为: <br>"
    response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&""
 response.write"<br>"
  set   rssql=server.CreateObject("adodb.recordset")
  '插入SQL2000里  
  rssql.Open   "select   *   from   abc",conn,1,3  
  rssql.AddNew  
  if   rs(0)<>""   then  
  rssql(1)=rs(0)  
  end   if  
  if   rs(1)<>""   then  
  rssql(2)=rs(1)  
  end   if  
  if   rs(2)<>""   then  
  rssql(3)=rs(2)  
  end   if  
   
  rssql.Update  
  Rs.MoveNext  
   
  Loop  
  end   if  
  response.Write   "<script   language=#>alert('资料导入成功!\n共有"&cc&"条数据导入');history.go(-1)</script>"
  
   
  %>  

  评论这张
 
阅读(64)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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