用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - asp代码库

asp EXL导入 SQL数据库

2020-08-16 作者:举报

[asp]代码库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
'如果是sql 2000数据库,请用下面 连接驱动
connstr = "Driver={SQL Server};server=.;uid=sa;pwd=abcHSPMS;database=HSPMS;"
'如果是Access数据库,请用下面 连接驱动
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb/jmgl2007.mdb)
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
sub closedb()
conn.close
set conn=nothing
end sub   
   dim aa 
   aa=request.form("bbb")   '获取传递过来的值
   Dim  StrConnect,cc   
   Dim  objConn   
   Dim  rs   
   Dim  Sql   
   cc=0
   'Excel连接驱动
   aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"  
    set StrConnect=CreateObject("ADODB.Connection")
        StrConnect.Open aaa
   Set objConn=CreateObject("ADODB.Connection")
   objConn.Open StrConnect     
   '注意表名一定要以下边这种格试 "[表名$]" 书写   
   Set rs = Server.CreateObject("ADODB.Recordset")     
   Sql="select *  from [sheet1$]    "   
   rs.Open  Sql,StrConnect,2,2     
   IF   rs.Eof  And   Rs.Bof  Then   
   response.Write("<script>alert('没有资料可以导入!');history.go(-1)</script>")           
   else         
   Do  While Not rs.EOF 
   '列出表内信息  
     response.write"excel数据为: <br>"
     'response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&""
response.write"<br>"
   set rssql=server.CreateObject("adodb.recordset")
   '插入SQL2000里   
   rssql.Open "SELECT PT_PARTCODE, 供应商代码,供应商名称, htj FROM 供应商合同价 ",conn,1,3   
   rssql.AddNew   
   if rs(0)<>"" then   
   rssql(0)=rs(0)   
   end if   
   if  rs(1)<>"" then   
   rssql(1)=rs(1)   
   end  if   
   if rs(2)<>"" then   
   rssql(2)=rs(2)   
   end  if   
   if rs(3)<>""  then   
   rssql(3)=rs(3)   
   end if
  rssql.Update   
   Rs.MoveNext      
   Loop   
   end if   
   response.Write"<script language=javascript>alert('合同价导入成功!\n共有"&cc&"条数据导入');history.go(-1)</script>" 
   
    
   %>   



[源代码打包下载]




分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。