关于access数据库在项目中路径问题

Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ ServerMapPath("promdb")+" 服务端形式

Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ Apppath("promdb")+" 程序目录本地端形式

不知道你是啥开发语言

<%

Set rs = ServerCreateObject("ADODBRecordset")

strSQL="select 路径字段 from 表

rsOpen strSQL,DBConn ----DBConn是连接数据库的Connection对象

do while not rseof

%>

<img src=trim(rsfields("infoid"))>

<%

rsmovenext

loop

rsclose

%>

用AppPath取得当前运行路径

你的连接字符串应写为：

"provider=microsoftjetoledb40;data source=" & AppPath & "myDatamdb"

这个问题是因为你的ACCESS生成的文件没一起放在U盘里或者文件路径错了，你可能用的是绝对路径，就是C://什么什么的这种，所以在别人的机器上就因为路径不同访问不到access数据库文件，解决方案也很简单，程序和数据库文件都放在一个文件夹里面然后程序里访问ACCESS数据库那段代码用相对路径写，比如

/这样的，具体写法你百度一下很简单，看看当前目录和上一层目录该怎么写就清楚了

我曾经做过一个书目管理程序，就是将自己硬盘、光盘的书目名称做成数据库进行管理，想看什么书的时候，可以更快查找出来。

其中有引用文件名的语句，可能对你有帮助：

Dim str As String

'str用于存放文件的名称

Dim i

As Integer

l = Forms![新增书目]![导入地址] '可以用窗体输入地址，如果地址固定，也可以自己直接赋值

str = Dir(l)

'这里将字符串改为路径

Do While str <> ""

i = i + 1

文件名Value = str

'保存文件名

书名Value = Trim(Left(str, InStrRev(str, "", -1) - 1)) ’去掉扩展名，就是书名

DoCmdGoToRecord , "读取子窗体", acNewRec

str = Dir

'得到下一个文件名

Loop

以上为参考，请根据自己的文件名起名特点，自行用字符函数提取相关数据信息。

以上就是关于关于access数据库在项目中路径问题全部的内容，包括:关于access数据库在项目中路径问题、如何用asp读取access中图片路径啊、VB引用access数据库，引用路径问题。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！