程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> 將Excel中的數據導入至MsSQLSERVER中

將Excel中的數據導入至MsSQLSERVER中

編輯:關於SqlServer
'/*************************************************************************/
'/* 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

'//姓名,SFZ號碼,證書號碼,簽發日期,有效日期
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()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


您正在看的SQLserver教程是:將Excel中的數據導入至MsSQLSERVER中(示例)。''''''''''''''''''''''''
j=j+1
rsXsl.movenext
Loop

response.write "" & str_Kind(1) & "證書導入成功.
"
response.write "共導入" & j & "條證書信息.
"
response.write "關閉窗口"
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哪一個表簽,即表

  1. 上一頁:
  2. 下一頁: