• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp实现excel中的数据导入数据库

    asp实现excel中的数据导入数据库

    % Response.CodePage=65001%>
    % Response.Charset="UTF-8" %>
    %
    wenjian = request.Form("select")
     
    '获取文件扩展名
    ext = FileExec(wenjian)
    '判断文件扩展名
    if ext > "xls" then
      response.Write("script>alert('文件类型不对,请核实!');window.location.href='index.html';/script>")
      response.End()
    end if
     
    Dim objConn,objRS
    Dim strConn,strSql
     
    set objConn=Server.CreateObject("ADODB.Connection")
    set objRS=Server.CreateObject("ADODB.Recordset")
     
    excelFile = server.mappath(wenjian) 
    '针对excel 2007
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source="  excelFile  ";"  "Extended Properties=Excel 8.0;"
    objConn.Open strConn
     
    strSql="SELECT * FROM [Sheet1$]"
     
    objRS.Open strSql,objConn,1,1
    objRS.MoveFirst
     
    %>!--#include file="conn.asp"-->%
    '循环excel中所有记录
    while not objRS.eof
     
      set rs = Server.CreateObject("Adodb.Recordset")
      '查询语句
      sql_s = "select * from ceshi where lname='"  objRS(0)  "' and old='"  objRS(1)  "' and sex='"  objRS(2)  "' and guojia='"  objRS(3)  "' and QQ='"  objRS(4)  "'"
      rs.open sql_s, conn, 1, 1
      '重复的数据不做录入操作
      if rs.eof then
        '插入语句
        '****excel中第一条不会被录入****
        sql = "insert into ceshi (lname, old, sex, guojia, QQ)values ('"  objRS(0)  "', '"  objRS(1)  "', '"  objRS(2)  "', '"  objRS(3)  "', '"  objRS(4)  "')"
        '执行插入
        conn.execute(sql)
      end if
      objRS.MoveNext 
      rs.close
      set rs = nothing
    wend
     
    '又到了各种关闭的时候
    conn.close
    set conn = nothing
    objRS.Close
    objConn.Close
    set objRS = Nothing
    set objConn = Nothing
     
    response.Write("script>alert('导入成功');window.location.href='index.html';/script>")
    response.End()
     
    Function FileExec(fileName)
     FileExec = Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,"."))
    End Function
    %>
    

    再分享一个简化版的代码

    wenjian=request.Form("floor")
    		fileext=mid(wenjian,InStrRev(wenjian,".")+1)
    		if lcase(fileext)>"xls" then
    			response.write "script>alert ('文件格式不对,请上传Excel文件');window.location.href='updateFloor.asp';/script>"
    			response.end
    		end if
    		set conne=server.CreateObject("ADODB.Connection")
    		connStre="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath( ""wenjian"" )";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"
    		conne.open connStre
    		Sqle="select * from [sheet1$] " 
    		Set rse = Server.CreateObject("ADODB.Recordset")
    		rse.open sqle,conne,1,1
    		'验证
    		hang=2
    		do while not rse.eof
    		'名称不能为空
    			if trim(rse(0))>"" then
    			else
    				mess="第" hang "行名称为空,请检查!"
    				response.Write"script>alert('" mess "').window.location.href='updateFloor.asp'/script>"
    				response.End()
    			end if 
    			rse.movenext
    			hang=hang+1
    		loop
    		rse.movefirst
    		do while not rse.eof
    			set rst=server.CreateObject("adodb.recordset")
    			sqlt="select * from Sellman"
    			rst.open sqlt,conn,1,3
    			rst.addnew()
    			rst("CompanyName")=c2(rse(0))
    			rst("CompanyInfo")=c2(rse(1))
    			rst("address")=c2(rse(2))
    			rst("tel")=c2(rse(3))"nbsp;nbsp;"c2(rse(7))
    			rst("Fax")=c2(rse(4))
    			rst("linkman")=c2(rse(5))
    			rst("Homepage")=c2(rse(8))
    			rst("Email")=c2(rse(6))
    			rst.update()
    			rst.close
    			set rst=nothing
    			rse.movenext
    		loop
    		rse.close
    		set rse=nothing
    		response.Write "script>alert('导入成功!');location.href='updateFloor.asp';/script>"

    其实简单的说象access 数据库一样,把excel文件打开,再进行读再写到access中你要写到sqlserver中就把写的过程改一下就成了

    看下代码:

    dim conn 
    dim conn2 
    set conn=CreateObject("ADODB.Connection") 
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.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=c:\book1.xls" 
    
    
    sql = "SELECT * FROM [Sheet1$]" 
    set rs = conn2.execute(sql) 
    while not rs.eof 
    sql = "insert into xxx([a],[b],[c],[d]) values('" fixsql(rs(0)) "','" fixsql(rs(1)) "','" fixsql(rs(2)) "','" fixsql(rs(3)) "')" 
    conn.execute(sql) 
    rs.movenext 
    wend 
    
    conn.close 
    set conn = nothing 
    conn2.close 
    set conn2 = nothing 
    
    function fixsql(str) 
    dim newstr 
    newstr = str 
    if isnull(newstr) then 
    newstr = "" 
    else 
    newstr = replace(newstr,"'","''") 
    end if 
    fixsql = newstr 
    end function 
    

    您可能感兴趣的文章:
    • PHP将Excel导入数据库及数据库数据导出至Excel的方法
    • Drupal读取Excel并导入数据库实例
    • 利用phpexcel把excel导入数据库和数据库导出excel实现
    • PHP 如何利用phpexcel导入数据库
    • Excel导入数据库时出现的文本截断问题解决方案
    • ASP.NET下将Excel表格中的数据规则的导入数据库思路分析及实现
    • C++ 中实现把EXCEL的数据导入数据库(ACCESS、MSSQL等)实例代码
    上一篇:ASP网站中数据库被挂木马的解决方案
    下一篇:ASP的Error对象知识简析
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp实现excel中的数据导入数据库 asp,实现,excel,中的,数据,