ASP页面实现Excel数据批量导入MSSQL问题

在写库的时候会按照你的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

[本日志由 wang 于 2009-10-19 02:45 PM 编辑]
上一篇: asp批量修改成功和失败的代码比较
下一篇: 通过asp把excel数据导入mssql数据库成功
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1329
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭