在做项目时，经常遇到要将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) |
|
