菜鸟求助，怎样把excel文件倒入到access数据库去

[xyxb7890]

菜鸟求助，怎样把excel文件倒入到access数据库去，请高手指点阿！！有没有代码阿！！

[西安风影]

连接两个数据库，一个select 一个insert
具体代码自己搜索

[zhangjicn]

我也刚在学习,网上找的. 可以参考下。
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,mdb
time1=timer


'Access数据库，连接驱动
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

sub closedb()
conn.close
set conn=nothing
end sub


Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
set StrConnect=CreateObject("ADODB.Connection")
strAddr1 = Server.MapPath("srcc.xls")
'打开excel数据源
StrConnect.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr1
set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect


'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [dd$]"
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script>alert('没有资料可以导入！');history.go(-1)</script>")

else

cc=0
Do While Not rs.EOF
'列出表内信息
response.write"excel数据为： <br>"
response.write ""&rs(0)&"-"&rs(1)&""
response.write"<br>"
set rssql=server.CreateObject("adodb.recordset")
'插入
rssql.Open "select * from sss",conn,1,3
rssql.AddNew
' if rs(0)<>"" then
' rssql(0)=rs(0)
' end if
if rs(0)<>"" then
rssql(0)=rs(0)
end if
if rs(1)<>"" then
rssql(1)=rs(1)
end if

rssql.Update
Rs.MoveNext
cc=cc+1

Loop
end if
response.Write "<script language=javascript>alert('资料导入成功！\n共有"&cc&"条数据导入');history.go(-1)</script>"
%>

[xyxb7890]

你这段代码是不是先将excel导入到sql数据库里，然后再从sql导入到access数据库中去？

[xyxb7890]

谢了，但是没找到需要的代码

[bjwtufv]

[Quote=引用 4 楼 x196231222 的回复:]
有现成的源码。
http://www.jixinfz.cn
http://asp.jixinfz.cn
[/Quote]
想骂你，你不如直接说用谷歌搜啊

[php_wsd]

http://www.aspprogram.cn/html/soft/200936220424.html
现成的代码

[ttt2]

excel->sqlserver-access