求助]如何将Excel表中的数据导入SQLserver中 - ASP技术论坛

楼主

问题点数：0 回复次数：4

求助]如何将Excel表中的数据导入SQLserver中

求助高手：我想将Excel表中的数据导入SQLserver中，该如何做！急等！！！！！！！！！

搜索更多相关主题的帖子: Excel表　 SQLserver中　数据　

第 2 楼

得分:0

<%
Set XlsConn=server.createobject("ADODB.Connection")
'连接Excel表
XlsConn.Open "Provider=Microsoft.Jet.Oledb.4.0; Extended Properties=""Excel 8.0;HDR=No""; Data Source=" & Server.MapPath("\") & "\DataBase\data.xls"
Set XlsRs = XlsConn.Execute("Select * From [database$]") 'database为Excel中的工作表名称，后面的$不可少
Do While Not XlsRs.EOF
''生成SQL语句
InsertSql = "Insert Into [tableName](Column1,Column2,...,ColumnN) Values('"& XlsRs.Fields.Item(0).Value &"','"& XlsRs.Fields.Item(1).Value &"',..,'"& XlsRs.Fields.Item(2).Value &"')"
''Conn为连接SQL数据库对象
Conn.Execute(InsertSql)
'Response.Write(InsertSql &"<BR>")
XlsRs.MoveNext
Loop
XlsRs.Close()
Set XlsRs = Nothing
XlsConn.Close()
Set XlsConn= Nothing
%>

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 3 楼

得分:0

收藏了。

第 4 楼

得分:0

谢谢"阳光白雪"了,那要导入的Excel数据需先拷贝到数据库服务器的指定目录了，对吗，试一下，有问题在咨询了，多谢了！！！

第 5 楼

得分:0

<%Option Explicit%>

<%
dim rssql,sql1
set rssql=server.createobject("adodb.recordset")
sql1="select*from sinfo"
rssql.open sql1,conn,1,3
%>

<html>
<head>
<title>Excel</title>
</head>
<body>
<h2 align="center">以下记录已被转到SQL数据库中</h2>
<table border="1" width="95%" align="center">
<tr align="center" bgcolor="#E6E6E6">
<td>学号</td><td>密码</td><td>姓名</td><td>班级</td><td>电话</td><td>手机</td><td>邮箱</td>
</tr>

<%
Dim db,rs,strSql
Set db = Server.CreateObject("ADODB.Connection") '建立Connection对象
db.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("Mark.xls")

strSql="Select * From [Sheet1$]" '打开记录集，表名一定要以"[表名$]"的格式
Set rs=db.Execute(strSql)

Do While Not rs.EOF '循环读取所有行
Response.Write "<tr align='center'>"

rssql.addnew '添加到SQL数据库
rssql("sno")=rs("学号") '此处学号,密码--等必须是excel中第一行的内容
rssql("spw")=rs("密码")
rssql("sname")=rs("姓名")
rssql("sclass")=rs("班级")
rssql("sphone")=rs("电话")
rssql("smovephone")=rs("手机")
rssql("semail")=rs("邮箱")

rssql.update

Response.Write "<td>" & rs("学号") & "</td>"
Response.Write "<td>" & rs("密码") & "</td>"
Response.Write "<td>" & rs("姓名") & "</td>"
Response.Write "<td>" & rs("班级") & "</td>"
Response.Write "<td>" & rs("电话") & "</td>"
Response.Write "<td>" & rs("手机") & "</td>"
Response.Write "<td>" & rs("邮箱") & "</td>"

Response.Write "</tr>"
rs.MoveNext
Loop

rs.Close '关闭对象
Set rs=nothing

rssql.close
set rssql=nothing

conn.close
set conn=nothing

db.Close
Set db=Nothing
%>
</table>
</body>
</html>

http://toorup.3v.do
loading...