Excel To Access by asp
2013年10月21日
⁄ 综合
⁄ 共 782字 ⁄ 字号
小 中 大
- dim conn
- dim conn2
- set conn=CreateObject("ADODB.Connection")
- conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:/book1.mdb"
- set conn2=CreateObject("ADODB.Connection")
- conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:/book1.xls"
- sql = "SELECT * FROM [Sheet1$]"
- set rs = conn2.execute(sql)
- while not rs.eof
- sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) "','"& fixsql(rs(1)) "','"& fixsql(rs(2)) "','"& fixsql(rs(3)) "')"
- conn.execute(sql)
- rs.movenext
- wend
- conn.close
- set conn = nothing
- conn2.close
- set conn2 = nothing
- function fixsql(str)
- dim newstr
- newstr = str
- if isnull(newstr) then
- newstr = ""
- else
- newstr = replace(newstr,"'","''")
- end if
- fixsql = newstr
- end function