记忆盒子

把记忆装进灰色的盒子,封装起来,那年那月,重新拾起。

首页搜索目录
search
当前主题: 软件编程

客户端excel表如何导入远程sql server服务器(asp)

作者:Kaka    时间:2009-9-12 23:51:46    浏览:    评论:0

      客户端excel表如何导入远程sql server服务器

<%
'//客户端上传Excel,保存为upload/Excel.xls
.....
'//打开sql server
....
Conn.Open ...
'//打开Excel
Set ConnExcel = Server.Createobject("ADODB.Connection")
ExcelStr = "DBQ=" + server.mappath("upload/Excel.xls") + ";DRIVER={Microsoft Excel Driver (*.xls)};"
ConnExcel.Open ExcelStr
Set RSExcel = Server.CreateObject("ADODB.Recordset")
SQLExcel = "Select * From [Sheet1$]"  '//你的Sheet1名
RSExcel.Open  SQLExcel, ConnExcel, 3, 3
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * From [RegUser]"
RS.Open  SQL, Conn, 1, 3
'----------------------------
'//添加begin
  Do While Not RSExcel.EOF
   RS.AddNew
   For i=0 To  RSExcel.Fields.Count-1
       RS(i)=Trim(RSExcel(i))
   Next
   RS.Update
   RSExcel.MoveNext
  Loop
'//添加end
'----------------------------
RSExcel.Close
Set RSExcel = Nothing
RS.Close()
Set RS = Nothing
%>
 

加入本站QQ群(312716741),交流分享网站建设、优化、SEO技术。。。

 

上一篇: xmlhttp实现无刷新获取数据
下一篇: 学会使用博客搜索来查找资料

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

订阅博客                   QQ交流群(312716741)

  • 通过Google订阅本站 通过鲜果订阅本站 通过抓虾订阅本站
  • 通过QQ邮箱订阅本站 通过Yahoo订阅本站 通过有道订阅本站

Search

最新评论及回复

最近留言

网站分类

Powered By Z-Blog 1.8 Walle Build 91204 Designed by Han'space

Copyright @2009 All Rights Reserved. 粤ICP备09073737号

Powered By Z-Blog 1.8 Walle Build 91204
Copyright @2009 All Rights Reserved.