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

'/*************************************************************************/
'/* ＥＸＣＥＬ数据证书导入程序 　　　　　　　　　　　*/
'/* 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()