Recently, some friends said they would like to input some Excel data into the access database. Too many. Please try again. I found a code segment on the Internet and tried it. It failed. The result is that some data is imported normally, and some data is displayed empty in the database. Ask your friends to give a visit. The Code is as follows:
<%
Dim filename
Filename = "excel.xls" ': get the file name. It is specified by the project manager and the path is fixed in a virtual path.
Dim Conn, RS
Set conn = Createobject ("ADODB. Connection ")
Conn. Open "driver = {Microsoft Excel Driver (*. xls )};"&_
"Driverid = 790 ;"&_
"DBQ =" & server. mappath ("" & filename &"")&";"&_
"Defaultdir = G :/"
Set rs = Createobject ("ADODB. recordset ")
Rs. Open "select * from [sheet1 $]", Conn, 2, 2
If Rs. EOF then
Response. Write "no records in the Excel table"
Else
Set conndb = server. Createobject ("ADODB. Connection ")
Dbpath = server. mappath ("Excel. mdb ")
'Response. Write dbpath
Conndb. Open "driver = {Microsoft Access Driver (*. mdb)}; DBQ =" & dbpath
Set rsdb = server. Createobject ("ADODB. recordset ")
Sqldb = "select * from Excel"
Rsdb. Open sqldb, conndb, 1, 3
Do while not Rs. EOF 'reads data cyclically
'Response. Write RS (0) & "& nbsp ;"
'Response. Write RS (1) & "& nbsp ;"
'Response. Write RS (2) & "& nbsp ;"
'Response. Write RS (3) & "& nbsp ;"
'Response. Write RS (4) & "& nbsp ;"
'Response. Write RS (5) & "& nbsp ;"
'Response. Write RS (6) & "& nbsp ;"
'Response. Write RS (7) & "& nbsp ;"
'Response. Write RS (8) & "& nbsp ;"
'Response. Write RS (9) & "& nbsp ;"
'Response. Write RS (10) & "& nbsp ;"
'Response. Write RS (11) & "& nbsp ;"
'Response. Write RS (12) & "& nbsp ;"
'Response. Write RS (13) & "& nbsp ;"
'Response. Write RS (14) & "& nbsp ;"
'Response. Write RS (15) & "& nbsp ;"
'Response. Write RS (16) & "& nbsp ;"
'Response. Write RS (17) & "& nbsp ;"
'Response. Write RS (18) & "& nbsp ;"
'Response. Write RS (19) & "& nbsp ;"
'Response. Write RS (20) & "& nbsp ;"
'Response. Write RS (21) & "& nbsp ;"
'Response. Write RS (22) & "& nbsp ;"
'Response. Write RS (23) & "& nbsp ;"
'Response. Write RS (24) & "& nbsp ;"
'Response. Write RS (25) & "& nbsp ;"
'Response. Write RS (26) & "& nbsp ;"
'Response. Write RS (27) & "& nbsp ;"
'Response. Write RS (28) & "& nbsp ;"
'Response. Write RS (29) & "& nbsp ;"
'Response. Write RS (30) & "& nbsp ;"
'Response. Write RS (31) & "& nbsp ;"
'Response. Write RS (32) & "& nbsp ;"
'Response. Write RS (33) & "& nbsp ;"
'Response. Write RS (34) & "& nbsp ;"
'Response. Write "<br>"
Rsdb. addnew
Rsdb ("memberid") = RS (0)
Rsdb ("name") = RS (1)
Rsdb ("biname") = RS (2)
Rsdb ("tuanti") = RS (3)
Rsdb ("mobile") = RS (4)
Rsdb ("tel") = RS (5)
Rsdb ("ID") = RS (6)
Rsdb ("ruhuiday") = RS (7)
Rsdb ("sex") = RS (8)
Rsdb ("Birthday") = RS (9)
Rsdb ("Zhicheng") = RS (10)
Rsdb ("native") = RS (11)
Rsdb ("party") = RS (12)
Rsdb ("Nation") = RS (13)
Rsdb ("xueli") = RS (14)
Rsdb ("Danwei") = RS (15)
Rsdb ("Zip") = RS (16)
Rsdb ("Address") = RS (17)
Rsdb ("recommend1") = RS (18)
Rsdb ("recommend2") = RS (19)
Rsdb ("shenpiyijian") = RS (20)
Rsdb ("yishuzc") = RS (21)
Rsdb ("yishujianli") = RS (22)
Rsdb ("zhaopian") = RS (23)
Rsdb ("status") = RS (24)
Rsdb ("registertime") = RS (25)
Rsdb ("updatetime") = RS (26)
Rsdb ("uploadtime") = RS (27)
Rsdb ("level") = RS (28)
Rsdb ("standby1") = RS (29)
Rsdb ("standby2") = RS (30)
Rsdb ("standby3") = RS (31)
Rsdb ("standby4") = RS (32)
Rsdb ("standby5") = RS (33)
Rsdb ("standby6") = RS (34)
Rs. Update
Rsdb. movenext
Rs. movenext
Loop
'Response. Redirect filename
End if
Rsdb. movefirst
If rsdb. EOF then
Response. Write "no records in the Database"
Else
Do while not rsdb. EOF
Response. Write rsdb ("memberid") & "& nbsp ;"
Response. Write rsdb ("name") & "& nbsp ;"
Response. Write rsdb ("biname") & "& nbsp ;"
Response. Write rsdb ("tuanti") & "& nbsp ;"
Response. Write rsdb ("mobile") & "& nbsp ;"
Response. Write rsdb ("tel") & "& nbsp ;"
Response. Write rsdb ("ID") & "& nbsp ;"
Response. Write rsdb ("ruhuiday") & "& nbsp ;"
Response. Write rsdb ("sex") & "& nbsp ;"
Response. Write rsdb ("Birthday") & "& nbsp ;"
Response. Write rsdb ("Zhicheng") & "& nbsp ;"
Response. Write rsdb ("native") & "& nbsp ;"
Response. Write rsdb ("party") & "& nbsp ;"
Response. Write rsdb ("Nation") & "& nbsp ;"
Response. Write rsdb ("xueli") & "& nbsp ;"
Response. Write rsdb ("Danwei") & "& nbsp ;"
Response. Write rsdb ("Zip") & "& nbsp ;"
Response. Write rsdb ("Address") & "& nbsp ;"
Response. Write rsdb ("recommend1") & "& nbsp ;"
Response. Write rsdb ("recommend2") & "& nbsp ;"
Response. Write rsdb ("shenpiyijian") & "& nbsp ;"
Response. Write rsdb ("yishuzc") & "& nbsp ;"
Response. Write rsdb ("yishujianli") & "& nbsp ;"
Response. Write rsdb ("zhaopian") & "& nbsp ;"
Response. Write rsdb ("status") & "& nbsp ;"
Response. Write rsdb ("registertime") & "& nbsp ;"
Response. Write rsdb ("updatetime") & "& nbsp ;"
Response. Write rsdb ("uploadtime") & "& nbsp ;"
Response. Write rsdb ("level") & "& nbsp ;"
Response. Write rsdb ("standby1") & "& nbsp ;"
Response. Write rsdb ("standby2") & "& nbsp ;"
Response. Write rsdb ("standby3") & "& nbsp ;"
Response. Write rsdb ("standby4") & "& nbsp ;"
Response. Write rsdb ("standby5") & "& nbsp ;"
Response. Write rsdb ("standby6") & "& nbsp ;"
Response. Write "<br>"
Rsdb. movenext
Loop
End if
Rs. Close
Set rs = nothing
Set conn = nothing
%>