创建一个是excle数据库的代码是怎样的？

想用一个excle表格作为数据库访问，现在是用asp代码建立一个数据库文件都失败！

1.         dim DBName,dbstr,myCat
   
2.         dbstr = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ="&Server.MapPath("file/stdent.xls")
   
3.         Set myCat = Server.CreateObject( "ADOX.Catalog" )
   
4.         myCat.Create dbstr

复制代码

这样写，提示“不劫持此接口”

1.         dim DBName,dbstr,myCat
   
2.         dbstr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="&Server.MapPath("file/stdent.xls")
   
3.         Set myCat = Server.CreateObject( "ADOX.Catalog" )
   
4.         myCat.Create dbstr

复制代码

这样写，提示“这种对象类型不支持该操作。”

想用一个excle表格作为数据库访问，现在是用asp代码建立一个数据库文件都失败！

这样写，提示“不劫持此 ...
醉苦居士 发表于 2015-3-11 19:03

http://bbs.ttasp.com/search.php?searchid=5&orderby=lastpost&ascdesc=desc&searchsubmit=yes参考下规范操作

Excel 为 excel 2010 以上的  .xlsm 文件：

1. <%
   
2. set conntemp=server.createobject("adodb.connection")
   
3. strConn="Provider=Microsoft.ace.OLEDB.12.0;Data Source="+Server.MapPath("datas/库存表.xlsm")+";Extended Properties='Excel 12.0;HDR=yes;IMEX=1'"
   
4. Conntemp.Open strConn
   
5. inputquery="SELECT 原序号,编码,产品型号 FROM [sheet1$] where 产品型号 like ""%%"+筛选变量+"%%"" order by "+排序字段+" asc"
   
6. set rstemp=conntemp.execute(inputquery)
   
7. howmanyfields=rstemp.fields.count         'REM 数据库中的列数即字段数
   
8. %>

复制代码