asp實現excel中的資料匯入資料庫
"xls" then
response.write("")
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=" & excelfiwww.cppcns.comle & ";" & "extended properties=excel 8.0;"
objconn.open strconn
strsql="select * from [sheet1$]"
objrs.open strsql,objconn,1,1
objrs.movefirst
%>
再分享乙個簡化版的**
wenjian=request.form("floor")
fileext=mid(wenjian,instrrev(wenjian,".")+1)
if lcase(fi<>"xls" then
response.write ""
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
'驗證hang=2
do while not rse.eof
'名稱不能為空
if trim(rse(0))<>"" then
else
mess="第"& hang &"行名稱為空，請檢查！"
response.write""
response.end()
end if
rse.movenext
hang=hang+1
loop
rse.movefirst
d程式設計客棧o 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))&" "&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 ""
其實簡單的說象access 資料庫一樣,把excel檔案開啟,再進行讀再寫到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=createob程式設計客棧ject("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 ***([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.cwww.cppcns.comlose
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
本文標題: asp實現excel中的資料匯入資料庫
本文位址:
把另外的excel的資料導進來
sub new load dim dbconnection as new adodb.connection dim rsado as new adodb.recordset dim cat as object dim tbl as object dim lrow as long dim szbook...
如何將資料庫中的資料導成 excel 檔案
一 以特定格式匯出時，用報表工具設定格式更為方便，尤其是樣式比較複雜時，報表工具的優勢就更加明顯。二 報表工具直接帶有匯出 excel 的功能按鈕，直接使用就行。二 報表工具中還會提供靈活的介面提供呼叫來實現更加靈活的需求，比如可以批量的將多個報表結果匯出到乙個 excel 中，並且這個過程可以控制...
asp匯出excel的操作
最近在做某個asp 的維護和功能新增工作，充分地回顧了一下asp access的開發方式，也在網上找了很多的資料，其中asp匯出excel的操作和傳送jmail郵件就難住我了 頭資訊 response.addheader content disposition attachment filename...