使用VBscript检查MS访问数据库是否存在

时间:2016-11-02 15:55:03

标签: vbscript asp-classic ms-access-2007

我一直在使用不同的搜索字词搜索年龄,但无法找到问题的答案。

我正在使用asp操作MS Access数据库,该数据库保存在根文件夹上方的文件夹中。

要连接到数据库,我使用以下代码:

set Conn = server.createobject("ADODB.CONNECTION")
conn.ConnectionString="DBQ=" & server.mappath("../../db") & "\renewx.mdb"& ";Driver={Microsoft Access Driver (*.mdb)};"

但是,我想在连接之前检查数据库是否存在,这里我遇到了一些困难。

我的代码是:

set fs=Server.CreateObject("Scripting.FileSystemObject")
if File.Exists(Server.MapPath("../../db") & "\renewx.mdb") then
  response.write("renewx dbase exists!<br>")
else
  response.write("renewx dbase does not exist!<br>")
 set fs=nothing
response.end
end if
set fs=nothing

这会产生错误:

  

800a01a8 | Object_required:_'文件'HTTP / 1.1(触发的行   错误是if条件的第一行)

非常感谢,如果有人能指出我正确的方向。

火车

2 个答案:

答案 0 :(得分:1)

试试这个:

set fs=Server.CreateObject("Scripting.FileSystemObject")
'if File.Exists(Server.MapPath("../../db") & "\renewx.mdb") then
if fs.FileExists(Server.MapPath("../../db") & "\renewx.mdb") then

答案 1 :(得分:1)

确保在IIS服务器上启用父路径。它们默认为禁用。  Link to Microsoft documentation for IIS 8