在做项目时,经常遇到要将Excel中的大量数据导入到Access数据库中,原来的做法是读一条写一条,若导入上万条的数据需要几分仲时间,速度很慢,采用如下方法,速度很快。
Set conn = Server.CreateObject("adodb.Connection")connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("test.mdb")conn.Open connstrsql = "insert into userinfo select userName,userAccount,userStatus from [userinfo$] in ’" & Server.MapPath("hbwlUserInfo.xls")& "’ ’Excel 8.0;’ where userAccount is not null"conn.Execute (sql) |
|