将EXCEL中的数据导入至MSSQL SERVER中-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

将EXCEL中的数据导入至MSSQL SERVER中
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 "" & str_Kind(1) & "证书导入成功. "
response.write "共导入" & j & "条证书信息. "
response.write "<a href=# onclick=\\\'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哪一个表签，即表

返回类别: 教程
上一教程: 存贮过程
下一教程: ASP3.0中的流控制能力(1)

您可以阅读与"将EXCEL中的数据导入至MSSQL SERVER中"相关的教程:
· EXCEL数据导入到ACCESS,SQL SERVER中示例代码
· SQL SERVER与ACCESS、EXCEL的数据转变
· ASP中将TABLE表中的数据成功导成EXCEL做法
· 如何在ASP中通过ODBC调用EXCEL中的数据
· 怎样把数据汇到EXCEL中的心得经验


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接