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

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

ASP导入excel  

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

  下载LOFTER 我的照片书  |
 

<center>
<%

Dim conn

Dim StrConn

Dim rs

Dim Sql

'将excel表当作数据库打开
Set conn=Server.CreateObject("ADODB.Connection")

conn.Open"Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="& Server.MapPath("../#bijiadata/company.xls")'指定excel文件的路径


Set rs = Server.CreateObject("ADODB.Recordset")

Sql="select usrname,usrpwd,question,answer,sj from [company$]" '指定excel的表名(后面必须有$符号)以及字段名,如果是所有字段名可用*代替

rs.Open Sql,conn,2,2


'打开数据库
Set sqlconn=Server.CreateObject("ADODB.Connection")

sqlconn.Open"provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("../#bijiadata/company.mdb")

sqlconn.execute("delete * from company")

Set rst = Server.CreateObject("ADODB.Recordset")

Sql2="select usrname,usrpwd,question,answer,sj from company"

rst.Open Sql2,sqlconn,1,3

if rst.Fields.Count-1=rs.Fields.Count-1 then'如果字段个数据相同则

for i=0 to rs.Fields.Count-1
if rs(i).name<>rst(i).name then
response. write "操作错误,excel表的字段名与access数据库的字段名不对应"
else
response.write"excel的字段名:"&rs(i).name&"    access数据库的字段名:"&rst(i).name&" " '输出excel表与access数据库表的对应字段名,进行对比


while not rs.eof and not rs.bof '将记录一条一条导入
rst.addnew
for j=0 to rs.Fields.Count-1
rst(j)=rs(j)
next
rst.update

rs.movenext
wend
end if
next
response.write" <font color=red>成功将excel表中的数据导入到access数据库[/red]</br>"
else
response.write "操作错误,excel表的字段个数据与access数据库的字段个数不相等"


end if'结束字段个数据判断


%>


导入的access数据库的数据如下:

<table border="1" align="center" cellpadding="4" cellspacing="4" bordercolordark="#FFFFFF">
<tr>
<%
rst.close

Set rst = Server.CreateObject("ADODB.Recordset")

Sql2="select id,usrname,usrpwd,question,answer,sj from company"

rst.Open Sql2,sqlconn,1,1

for i=0 to rst.Fields.Count-1

%>
<td nowrap bgcolor="#999999"> <div align="center"><font color="#FFFFFF"><%=rst(i).Name%>[/red]</div></td>
<%

next

%>
</tr>
<%

do while Not rst.EOF

%>
<tr>
<%

for i=0 to rst.Fields.Count-1

%>
<td nowrap> <div align="center"><%=rst(i)%> </div></td>
<%

next

%>
</tr>
<%

rst.MoveNext

Loop

%>
</table>

<%
sqlconn.execute("delete * from company")
response.write"access数据库里的数据已清除"
%>
</center>

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

历史上的今天

评论

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

页脚

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