主頁 > 知識庫 > asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫

asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫

熱門標(biāo)簽:濰坊呼叫中心外呼系統(tǒng)供應(yīng)商 重慶外呼電銷系統(tǒng)費(fèi)用 北京大興區(qū)地圖標(biāo)注 電銷機(jī)器人一個多少錢 地圖標(biāo)注不完整被罰款 地圖標(biāo)注中心多少錢注冊 鄭州語音電銷機(jī)器人官網(wǎng) 微信地圖標(biāo)注有什么用 不封卡外呼系統(tǒng)一般多少錢

asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫

% Response.CodePage=65001%>
% Response.Charset="UTF-8" %>
%
wenjian = request.Form("select")
 
'獲取文件擴(kuò)展名
ext = FileExec(wenjian)
'判斷文件擴(kuò)展名
if ext > "xls" then
  response.Write("script>alert('文件類型不對,請核實(shí)!');window.location.href='index.html';/script>")
  response.End()
end if
 
Dim objConn,objRS
Dim strConn,strSql
 
set objConn=Server.CreateObject("ADODB.Connection")
set objRS=Server.CreateObject("ADODB.Recordset")
 
excelFile = server.mappath(wenjian) 
'針對excel 2007
strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source="  excelFile  ";"  "Extended Properties=Excel 8.0;"
objConn.Open strConn
 
strSql="SELECT * FROM [Sheet1$]"
 
objRS.Open strSql,objConn,1,1
objRS.MoveFirst
 
%>!--#include file="conn.asp"-->%
'循環(huán)excel中所有記錄
while not objRS.eof
 
  set rs = Server.CreateObject("Adodb.Recordset")
  '查詢語句
  sql_s = "select * from ceshi where lname='"  objRS(0)  "' and old='"  objRS(1)  "' and sex='"  objRS(2)  "' and guojia='"  objRS(3)  "' and QQ='"  objRS(4)  "'"
  rs.open sql_s, conn, 1, 1
  '重復(fù)的數(shù)據(jù)不做錄入操作
  if rs.eof then
    '插入語句
    '****excel中第一條不會被錄入****
    sql = "insert into ceshi (lname, old, sex, guojia, QQ)values ('"  objRS(0)  "', '"  objRS(1)  "', '"  objRS(2)  "', '"  objRS(3)  "', '"  objRS(4)  "')"
    '執(zhí)行插入
    conn.execute(sql)
  end if
  objRS.MoveNext 
  rs.close
  set rs = nothing
wend
 
'又到了各種關(guān)閉的時候
conn.close
set conn = nothing
objRS.Close
objConn.Close
set objRS = Nothing
set objConn = Nothing
 
response.Write("script>alert('導(dǎo)入成功');window.location.href='index.html';/script>")
response.End()
 
Function FileExec(fileName)
 FileExec = Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,"."))
End Function
%>

再分享一個簡化版的代碼

wenjian=request.Form("floor")
		fileext=mid(wenjian,InStrRev(wenjian,".")+1)
		if lcase(fileext)>"xls" then
			response.write "script>alert ('文件格式不對,請上傳Excel文件');window.location.href='updateFloor.asp';/script>"
			response.end
		end if
		set conne=server.CreateObject("ADODB.Connection")
		connStre="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath( ""wenjian"" )";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"
		conne.open connStre
		Sqle="select * from [sheet1$] " 
		Set rse = Server.CreateObject("ADODB.Recordset")
		rse.open sqle,conne,1,1
		'驗(yàn)證
		hang=2
		do while not rse.eof
		'名稱不能為空
			if trim(rse(0))>"" then
			else
				mess="第" hang "行名稱為空,請檢查!"
				response.Write"script>alert('" mess "').window.location.href='updateFloor.asp'/script>"
				response.End()
			end if 
			rse.movenext
			hang=hang+1
		loop
		rse.movefirst
		do while not rse.eof
			set rst=server.CreateObject("adodb.recordset")
			sqlt="select * from Sellman"
			rst.open sqlt,conn,1,3
			rst.addnew()
			rst("CompanyName")=c2(rse(0))
			rst("CompanyInfo")=c2(rse(1))
			rst("address")=c2(rse(2))
			rst("tel")=c2(rse(3))"nbsp;nbsp;"c2(rse(7))
			rst("Fax")=c2(rse(4))
			rst("linkman")=c2(rse(5))
			rst("Homepage")=c2(rse(8))
			rst("Email")=c2(rse(6))
			rst.update()
			rst.close
			set rst=nothing
			rse.movenext
		loop
		rse.close
		set rse=nothing
		response.Write "script>alert('導(dǎo)入成功!');location.href='updateFloor.asp';/script>"

其實(shí)簡單的說象access 數(shù)據(jù)庫一樣,把excel文件打開,再進(jìn)行讀再寫到access中你要寫到sqlserver中就把寫的過程改一下就成了

看下代碼:

dim conn 
dim conn2 
set conn=CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb" 

set conn2=CreateObject("ADODB.Connection") 
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls" 


sql = "SELECT * FROM [Sheet1$]" 
set rs = conn2.execute(sql) 
while not rs.eof 
sql = "insert into xxx([a],[b],[c],[d]) values('" fixsql(rs(0)) "','" fixsql(rs(1)) "','" fixsql(rs(2)) "','" fixsql(rs(3)) "')" 
conn.execute(sql) 
rs.movenext 
wend 

conn.close 
set conn = nothing 
conn2.close 
set conn2 = nothing 

function fixsql(str) 
dim newstr 
newstr = str 
if isnull(newstr) then 
newstr = "" 
else 
newstr = replace(newstr,"'","''") 
end if 
fixsql = newstr 
end function 

您可能感興趣的文章:
  • PHP將Excel導(dǎo)入數(shù)據(jù)庫及數(shù)據(jù)庫數(shù)據(jù)導(dǎo)出至Excel的方法
  • Drupal讀取Excel并導(dǎo)入數(shù)據(jù)庫實(shí)例
  • 利用phpexcel把excel導(dǎo)入數(shù)據(jù)庫和數(shù)據(jù)庫導(dǎo)出excel實(shí)現(xiàn)
  • PHP 如何利用phpexcel導(dǎo)入數(shù)據(jù)庫
  • Excel導(dǎo)入數(shù)據(jù)庫時出現(xiàn)的文本截?cái)鄦栴}解決方案
  • ASP.NET下將Excel表格中的數(shù)據(jù)規(guī)則的導(dǎo)入數(shù)據(jù)庫思路分析及實(shí)現(xiàn)
  • C++ 中實(shí)現(xiàn)把EXCEL的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫(ACCESS、MSSQL等)實(shí)例代碼

標(biāo)簽:海南 揭陽 唐山 汕頭 撫州 攀枝花 鶴崗 佛山

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫》,本文關(guān)鍵詞  asp,實(shí)現(xiàn),excel,中的,數(shù)據(jù),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp實(shí)現(xiàn)excel中的數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章