日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

[align=left]
[p]asp實(shí)現(xiàn)excel導(dǎo)入到sqlserver數(shù)據(jù)庫的實(shí)例源碼：[/p]
[p]dim conn [br]dim conn2 [br]set conn=createobject("adodb.connection") [br]conn.open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=;data source=c:\book1.mdb" [/p]
[p]set conn2=createobject("adodb.connection") [br]conn2.open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=;extended properties=excel 5.0;data source=c:\book1.xls" [/p]
[p][br]sql = "select * from [sheet1$]" [br]set rs = conn2.execute(sql) [br]while not rs.eof [br]sql = "insert into xxx([a],[b],[c],[d]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’,’"& fixsql(rs(2)) &"’,’"& fixsql(rs(3)) &"’)" [br]conn.execute(sql) [br]rs.movenext [br]wend [/p]
[p]conn.close [br]set conn = nothing [br]conn2.close [br]set conn2 = nothing [/p]
[p]function fixsql(str) [br]dim newstr [br]newstr = str [br]if isnull(newstr) then [br]newstr = "" [br]else [br]newstr = replace(newstr,"’","’’") [br]end if [br]fixsql = newstr [br]end function[/p][/align]