智睿软件_技术交流论坛综合站长Web程序开发 → 用ASP把xls(excel)文件转换为access(mdb)数据库(源代码)


  共有19656人关注过本帖树形打印

主题:用ASP把xls(excel)文件转换为access(mdb)数据库(源代码)

帅哥哟,离线,有人找我吗?
zhirui
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:520 积分:8740 威望:0 精华:5 注册:2009-07-07
用ASP把xls(excel)文件转换为access(mdb)数据库(源代码)  发帖心情 Post By:2009-11-11 11:27:21

function exctoacc(excpath,mdbpath)
    Dim excConn,Coon
    Dim excStrConn,strConn
    Dim excrs,rs
    Dim excSql
    Set excconn=Server.CreateObject("ADODB.Connection")
    Set excrs = Server.CreateObject("ADODB.Recordset")
    excStrC&Server.MapPath(excpath)
    excconn.Open excStrConn
    excSql="select * from [Sheet1$]"  '查询excel语句
    excrs.Open excSql,excconn,2,2  
        set rs=server.createObject("ADODB.Recordset")
        Set conn=Server.CreateObject("ADODB.Connection")
        StrC&Server.MapPath(mdbpath)
        conn.Open StrConn
        del_str="delete * from Sheet1"
        conn.execute  del_str
        sql="select * from Sheet1"  '修改
        rs.open sql,conn,1,3
            do while Not excrs.EOF
                rs.addnew
                    for i=0 to excrs.Fields.Count-1
                        rs(i+1)=excrs(i)
                    next
                rs.update
                excrs.MoveNext
            Loop
        rs.close
        set rs=nothing
    excrs.close
    set excrs=nothing
    excConn.close
    set excConn=nothing
    conn.close
    set conn=nothing
    exctoacc="<script>alert('数据导入成功!');javascript:window.location.href='index.htm'</script>"
End function
调用方法:     response.write exctoacc("cc.xls","db1.mdb")


国际域名60元,空间八折优惠,企业的顶级合作伙伴 支持(1中立(0反对(0回到顶部