通过数据源添加的ACCESS数据库，怎么改为相对路径，代码如下：

Question

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_banji_STRING
MM_banji_STRING = "dsn=banjishujuku"

%>

Answer 1

为什么非得要用数据源，像ACCESS数据库，直接用ODBC驱动连接就可以了，没有必要如此之麻烦！！移植起来不方便啊~

追问

就是用那个撒，用ODBC驱动连接数据库就是在数据源里面添加的啊！但问题是上传后，要重新部署数据库，也就是软件自动生成的连接字符串要改成相对路径！

追答

为何不直接在这里面写连接数据库的代码，而不用配置DSN，直接连接~~

追问

什么意思？

追答

我不知道你用的是什么语言，从你的代码上勉强看得是像是ASP或VB
我的意思是把连接数据库的代码：MM_banji_STRING = "dsn=banjishujuku"
改成(以下是ASP的代码)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库名.mdb")
以下是VB连接代码：
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb"

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
我以上的连接是通过OLE连接的，当然你也可以改成ODBC驱动连接的

追问

是asp语言，但我的数据库后缀是.accdb，但按你说的方法弄上去结果是无法识别数据库格式！该怎么办？

追答

你的数据库是access2007的版本~~

不知道你是否安装OLEDB.12.0驱动了,如果安装了连接方法如下：
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("数据库名.mdb")

如果没有安装有这种OLE驱动，就采用ODBC字符串连接！，稍后给你代码！你先测试一下！
……以下这种就是直接在程序里面ODBC连接ACCESS2007的代码……

追问

不行啊，把连接数据库的代码：MM_banji_STRING = "dsn=banjishujuku"
改成(以下是ASP的代码)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库名.mdb")
之后，数据库下就没有表了，什么东西也没有！

追答

不可能，怎么可能没有表，我的代码只是打开数据库罢了

你的是2007的，所以你连接的代码请好好的看看我以上回答~相信你会有所收获~

追问

代码如下：

帮忙完整的改一下吧！

追答

专门靠你这点代码如何改？你的表名叫什么我都不知道？你要实现什么样的功能我都不知道？如何改啊？

你以上的代码而且是大部分都注释掉的，真正有用的是最下面的两句？

追问

我的表全是在那数据库里面啊，不是有数据库就行吗？我改后的代码见图吧
这个哪里错了啊？路径没有错

追答

Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("数据库名.accdb")

或以下这一句

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.accdb)};DBQ="&Server.MapPath("数据库名.accdb")

Answer 2

路过~~