在做項目時,經常遇到要將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) |
|