ASP页面实现Excel数据批量导入MSSQL问题
作者:wang 日期:2009-10-19
在写库的时候会按照你的Excel表中第一行记录的数据类型为准,如果第一行是字符的,后面只会输入字符类型的,你可以试着用server.CreateObject("Excel.Application")来解决
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath(filepath) '文件路径
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1) '选择使用的是哪个Sheet
i = 2 '设置数据读取的起始行数,一般第一行是字段名,可以根据自己的表修改
while xlsheet.cells(i,1) <> ""
sql="........"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("**")= xlsheet.Cells(i,1) '1代表的是表中第1个字段也就是A的值
rs("**")= xlsheet.Cells(i,2)
rs("**")= xlsheet.Cells(i,3)
rs.update
end if
rs.close
i = i + 1 'i代表的是行数 i+1就是向下移动1行
wend
set xlsheet = nothing
set xlbook = nothing
xlApp.quit
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath(filepath) '文件路径
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1) '选择使用的是哪个Sheet
i = 2 '设置数据读取的起始行数,一般第一行是字段名,可以根据自己的表修改
while xlsheet.cells(i,1) <> ""
sql="........"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("**")= xlsheet.Cells(i,1) '1代表的是表中第1个字段也就是A的值
rs("**")= xlsheet.Cells(i,2)
rs("**")= xlsheet.Cells(i,3)
rs.update
end if
rs.close
i = i + 1 'i代表的是行数 i+1就是向下移动1行
wend
set xlsheet = nothing
set xlbook = nothing
xlApp.quit
[本日志由 wang 于 2009-10-19 02:45 PM 编辑]
上一篇: asp批量修改成功和失败的代码比较下一篇: 通过asp把excel数据导入mssql数据库成功
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2571
发表评论