编程开发论坛 - Powered by Discuz! Board

标题: 请教！！！ [打印本页]

作者: 海阔天空 时间: 2006-4-18 14:00 标题: 请教！！！

如何将excel表格中的数据导入sqlserver数据库指定的表中说明： 1、读取excel表格的代码我已有 2、数据库中有许多不同的表 3、怎样读取表中的字段名，字段数， 4、能否批量插入到库中
最好写过代码的给点代码！！
方法精解

作者: 可爱猫 时间: 2006-4-18 14:02

Set  econn  =  Server.CreateObject("ADODB.Connection")
Driver  =  "Driver={Microsoft  Excel  Driver  (*.xls)};"
DBPath  =  "DBQ="  &  Server.MapPath(xlspath)
econn.Open  Driver  &  DBPath
Set  ers  =  Server.CreateObject("ADODB.Recordset")
sql="Select  *  From  [sheet1$]"
ers.Open  sql,econn,0,1
可以用上面的方式打开excel并从里面读取数据
操作跟access一样

详细：

作者: 可爱猫 时间: 2006-4-18 14:02

set  conn=server.createobject("adodb.connection")
DBPath=server.mappath("aaa.mdb")
conn.Open  "driver={Microsoft  Access  Driver  (*.mdb)};dbq="  &  DBPath
set  rs=server.createobject("adodb.recordset")
sql="select  *  from  "+request("tablename")
rs.open  sql,conn,1,3

Set  xlApp  =  server.CreateObject("Excel.Application")

strsource  =  server.mappath(request("filename"))

Set  xlbook  =  xlApp.Workbooks.Open(strsource)
Set  xlsheet  =  xlbook.Worksheets(1)
   i=2
   while  xlsheet.cells(i,1)<>""
         'response.write  xlsheet.cells(i,3)  '+xlsheet.cells(i,2)+xlsheet.cells(i,3)  &  xlsheet.cells(i,4)  &  xlsheet.cells(i,5)  &  xlsheet.cells(i,6)
               'response.end
                     rs.addnew
      '  rs("c_name")=xlsheet.cells(i,1)
         rs("c_Devic")=xlsheet.cells(i,1)
         rs("c_Description")=xlsheet.cells(i,2)
      rs("c_DBP")=trim(xlsheet.cells(i,3))
         rs("c_SPQ")=xlsheet.cells(i,4)
         rs("c_MOQ")=xlsheet.cells(i,5)
         rs("c_Pin")=xlsheet.cells(i,6)
         rs("c_Act")=xlsheet.cells(i,7)
         rs("c_St")=xlsheet.cells(i,8)
rs("c_Pgm")=xlsheet.cells(i,9)
rs("c_LBE")=xlsheet.cells(i,10)

               rs.update
                  i=i+1
         wend

set  xlsheet=nothing
   xlbook.close
set  xlbook=nothing
xlApp.quit
rs.close
set  rs  =nothing
conn.close
set  conn=nothing
response.write  "上传成功，数据存入成功!"

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)