Question

asp在一个页面中读取excel中数据并写入到access数据库，网页能成功运行，但是数据库中没有进入东西！高手来

<!--#include file="conn.asp"-->
<%path="student_data_file/"
Dim xlsconn,str,source,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd
Set xlsconn = server.CreateObject("adodb.connection")
Set xlsrs = Server.CreateObject("Adodb.RecordSet")

filename="stu_data"
file2="学生信息列表"
source=server.mappath(path&filename&".xls")

myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &source& ";Extended Properties=Excel 8.0"
xlsconn.open myConn_Xsl

sql = "Select * from ["&file2&"$]"
xlsrs.open sql,xlsconn,1,1
If xlsrs.eof Then
else
i=1
response.write "<TABLE border=1>"
Do While not xlsrs.eof
yourname=xlsrs("studentName")
yoursex=xlsrs("studentSex")
yourcollege=xlsrs("studentCollege")
yourclass=xlsrs("studentClass")
yourpass=xlsrs("studentPwd")
yourmail=xlsrs("studentEmail")
studyid=xlsrs("studentNumber")
%>

<TR>
<TD> <%=yourname%></TD>
<TD> <%=yoursex%></TD>
<TD> <%=yourcollege%></TD>
<TD> <%=yourclass%></TD>
<TD> <%=yourpass%></TD>
<TD> <%=yourmail%></TD>
<TD> <%=studyid%></TD>
</TR>

<%
sql="insert into student(yourname,yourcollege,yourclass,yoursex,yourpass,studyid,yourmail) values ('"&yourname&"','"&yourcollege&"','"&yourclass&"','"&yoursex&"','"&yourpass&"','"&studyid&"',"&yourmail&")"
Conn.execute sql
i=i+1
xlsrs.MoveNext
Loop
response.write "</table>"
End If
xlsrs.close
Conn.Close

Response.write "共导入<font color='red'>" & i-1 & "</font>条记录.<br>"&vbCrLf

set xlsconn=nothing
set objCmd=Nothing

%>

Answer 1

不知你这个代码能不能把excel中的数据读出来！你先在页面中输出来试试。再有一个就是excel中的数据字段类型要和access的字段类型匹配！

追问

已经成功读取出来，都能显示在网页上了，但就是没有写入到access数据库中！！！？请问问题何在？

追答

那就剩下两种可能了。
1.你的excel中的字段类型和access的字段类型不匹配。
2.你的sql插入语句有误.
nsert into student([yourname],[yourcollege],[yourclass],[yoursex],[yourpass],[studyid],[yourmail]) values ('"&yourname&"','"&yourcollege&"','"&yourclass&"','"&yoursex&"','"&yourpass&"','"&studyid&"',"&yourmail&")"
你试试，排除一下！

追问

插入语句 按照你那个改了 但是还是有误！
我想问哈，excel中的字段类型都有哪些哦？

我想问哈在本地方还有没其他方式插入access数据库哦 ？？

追答

具体类型，我也不是记得了。但是你可以把你的access数据表导一个出来。这样生成的excel表的例就有类型了。然后你把你的数据拷到这个数内，再操作。就能匹配了！

Answer 2

,"&yourmail&")"
这里少了单引号
还有
If xlsrs.eof Then
else
可以写成
If not xlsrs.eof Then

追问

那个yourmail是数值类型的 所以就没有那个单引号了 但是你说的另外一点应该跟他没关系吧 那个是操作excel的语句！你能不能留下联系方式我把系统发给你看看！！！就我那个页面的代码

追答

axbrz2001@163.com
你发到我邮箱。我回来再看一下
还有。你运行时有没有什么错误提示
如果有on error resume next语句要先删除。否则可能不会有错误提示

追问

已经发给你了 3Q！

Answer 3

插入失败那肯定是你SQL语句有问题，你把这个页面的on error resume next语句注释掉！就可以找出问题所在。
应该在你的conn.asp页面里

Answer 4

xlsrs.open sql,xlsconn,1,1 改为 xlsrs.open sql,xlsconn,1,3 就可以了