?? index.asp
字號:
<%
sub exctoacc(excpath,mdbpath)
Dim excConn,Coon
Dim excStrConn,strConn
Dim excrs,rs
Dim excSql
Set excconn=Server.CreateObject("ADODB.Connection")
Set excrs = Server.CreateObject("ADODB.Recordset")
excStrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&Server.MapPath(excpath)
excconn.Open excStrConn
excSql="select * from [Sheet1$]" '查詢excel語句
excrs.Open excSql,excconn,2,2
set rs=server.createObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath(mdbpath)
conn.Open StrConn
sql="select * from sheet1" '修改
rs.open sql,conn,1,3
do while Not excrs.EOF
rs.addnew
for i=0 to excrs.Fields.Count-1
rs(i)=excrs(i)
next
rs.update
excrs.MoveNext
Loop
rs.close
set rs=nothing
excrs.close
set excrs=nothing
excConn.close
set excConn=nothing
conn.close
set conn=nothing
response.write"數(shù)據(jù)導入成功!"
End sub
call exctoacc("subasan.xls","subasan.mdb")
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -