将Excel中的数据导入至MsSQLSERVER中(示例)

'/*************************************************************************/
'/*                           EXCEL数据证书导入程序                      */
'/*          2003-6-13  yinxiang     www.ykce.com                             */
'/*************************************************************************/
'/* dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn,strKind)          */
'/* 参数说明:                                                                                                         */
'/*           strFileName --XLS文件名                                                                           */
'/*           strSheetName--标签名                                                                                */
'/*           myConn--外连接                                                                                       */
'/*           strKind--专业代码                                                                              */
'/************************************************************************/
sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn,strKind)
    '定义
    dim myConnection
    dim strName
    dim rsXsl,rsSql
    dim str_Xsl,str_Sql
    dim myConn_Xsl
    dim cmd
    dim i,j
    dim strKmId           '科目ID号
    dim maxId
    dim maxOrderId
    dim maxKm
    dim str_Date
    dim str_Kind

    strName=strFileName
    set myConnection=server.createobject("adodb.connection")
    set rsXsl=Server.Createobject("ADODB.Recordset")
    set rsSql=Server.CreateObject("ADODB.Recordset")
    set cmd=Server.CreateObject("ADODB.Command")
    set cmd.ActiveConnection=myConn
 
    '证书种类
    str_Kind=split(strKind,"-")
 
    '加入上传日期时间
    str_Date=FormatDateTime(Date(),2)& " " & Time()
    myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName& ";Extended Properties=Excel 8.0"
   '打开连接
    myconnection.open myConn_Xsl
 
    '打开表
    str_Xsl="select * from ["& strSheetName &"$]"
    rsXsl.open str_Xsl,myconnection,1,1
    
     '//姓名,身份证号码,证书号码,签发日期,有效日期
 j=1
    Do While not rsXsl.eof
 
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '取出最大值
    str_Sql="select Max(id) as maxId from ceritificate"
    rsSql.open str_Sql,myConn,1,3
    If Not rsSql.Eof Then
       If not isNull(rsSql("maxId")) Then
          maxId=Clng(rsSql("maxId"))+1
    Else
       maxId=1
    End if
    else
       maxId=1
    End if
    rsSql.close'//关闭对象
'加入成绩单
str_Sql=" insert into ceritificate values("&maxId&",'"&rsXsl(0)&"','"&rsXsl(1)&"','"&rsXsl(2)&"','"& str_Kind(0) & "','" & rsXsl(3)& "','"&rsXsl(4) &"','" & str_Date &"')"
    cmd.CommandText=str_Sql
    cmd.Execute()                      
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         j=j+1
    rsXsl.movenext
    Loop
   
    response.write "<font color='red'>" & str_Kind(1) & "</font>证书导入成功.<br>"
    response.write "共导入<font color='red'>" & j & "</font>条证书信息.<br>"
    response.write "<a href=# οnclick='self.close();'>关闭窗口</a>"
    set rsXsl=nothing
    set rsSql=nothing
    set myconnection=nothing
    set cmd=nothing 
end sub

代码说明:
  1)上列代码是将EXCEL中的数据信息导入至SQLSERVER中,strKind参数是指证书的种类;
       2) 链接Excel字符串:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName& ";Extended Properties=Excel 8.0" 
       3)   str_Xsl="select * from ["& strSheetName &"$]"这条语句是确定是Excel哪一个表签,即表

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值