一:ASP连结EXECEL【SQL 操作EXCEL】 <% dim conn set conn=server.createobject("adodb.connection") conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("execl.xls") dim rs set rs=conn.execute("select * from [Sheet1$]") %> 数据表后面要加$号才行 EXECL里第一行就是字段名,用法用ACCESS差不多 二 :ASP: EXCEL导入到ACCESS 原始EXECL表中的信息导到WEB里~~ 下面连接到student.xls表sheet1$ '表后面要加个$的,我以前试用,一定要加这个符号 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("student.xls")
SQL1="select * from [sheet1$]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL1, conn, 3, 3
'下面连接到data.mdb表table curDir = Server.MapPath("../data.mdb") Set conn1 = Server.CreateObject("ADODB.Connection") conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs1.ActiveConnection = conn1 rs1.Source = "select * from table" rs1.CursorType = 3 ' adOpenKeyset rs1.LockType = 3 'adLockOptimistic rs1.Open Do While Not rs.Eof rs1.AddNew rs1(0)=j for i=0 to rs.Fields.Count-1 rs1(i)=Trim(rs(i)) Next rs1.Update rs.MoveNext j=j+1 Loop
rs.Close rs1.Close conn.Close conn1.Close Set rs=nothing Set conn=nothing |