zoukankan      html  css  js  c++  java
  • VBSCRIPT如何访问EXCEL文件

    <%
    dim conn     ’定义一个连接变量
    dim conn2        ’定义第二个连接变量
    ’On Error Resume Next
    Server.ScriptTimeOut = 999999       ’超时时间
    set conn=CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb")  ’要导入的数据库名称,这里是Fang.mdb

    set conn2=CreateObject("ADODB.Connection")
    conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Fang.xls") ’要导入的EXCEL表名称Fang.xls
    ’-----------------------------------------------------------------------------------------------------------------
    ’这里要说明的是,数据库和Excel表和该文件必须在网站同一目录里
    ’-----------------------------------------------------------------------------------------------------------------
    sql = "SELECT * FROM [Sheet1$]"      ’要导入的Excel数据里面的表的名称,后面一定要加$
    set rs = conn2.execute(sql)
    while not rs.eof
    sql = "insert into zhenya([country],[mobile]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’)"
    ’其中的zhenya是要导入的目标表,其后的country,mobile是zhenya表中的字段名,但是要和后面的fixsql(rs(数字))要对应!
    ’response.write sql
    ’response.end
    conn.execute(sql)
    rs.movenext
    Response.Write "正在插入 "&sql&"<Br>"
    ’在这里输出执行的语句,可以去掉的!
    Response.Flush
    wend


    conn.close
    set conn = nothing
    conn2.close
    set conn2 = Nothing

    If Err = 0 Then
    Response.Write "导入成功"
    Else
    Response.Write "导入失败!"
    End If

    function fixsql(str)
    dim newstr
    newstr = str
    if isnull(newstr) then
    newstr = ""
    else
    newstr = replace(newstr,"’","’’")
    end if
    fixsql = newstr
    end Function
    %>

  • 相关阅读:
    接上一篇:(四) 控制反转(IOC)/ 依赖注入(DI)
    日常踩坑-------新手使用idea
    聚集索引和非聚集索引的区别
    mysql锁
    常用算法
    sql join查询语句
    bitmap原理和redis bitmap应用
    nginx反向代理、负载均衡配置
    nginx工作模式
    PHP常用设计模式
  • 原文地址:https://www.cnblogs.com/vic_lu/p/1809287.html
Copyright © 2011-2022 走看看