关于文件上传及将EXECL导入到SQL

来源：百度知道 编辑：UC知道 时间：2024/06/24 14:27:35
(ASP)现想实现一个功能,就是选择EXECL文件上传到服务器,然后点击按钮执行EXECL数据导入到sql2000一个表中...哪位大侠给个思路!

写个函数，把xls读出来，然后插入mdb

function xlstomdb(xlspath,mdbpath)
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbpath)

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended properties=Excel 5.0;Data Source=" & Server.MapPath(xlspath)

sql = "SELECT * FROM [tablename$]"
set rs = conn2.execute(sql)
rs.movenext
while not rs.eof
sql = "insert into tablename[...] values ..."
conn.execute(sql)
rs.movenext
wend

conn.close
set conn = nothing
conn2.close
set conn2 = nothing
xlstomdb="update success!"
End function