access vba 如何获取当前数据库文件的路径(数据库与程序已分离)

wyf2 · 发表于 2011-2-17 22:15

access vba 如何获取当前access数据库文件的路径(数据库与程序已分离)

guojianlin1985 · 发表于 2011-2-17 22:39

Function GetFilePath(strFileName) As String

'返回路径名称
Dim I As Integer

For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFilePath = Mid$(strFileName, 1, I)
Exit Function
End If
Next I

GetFilePath = strFileName

End Function

wyf2 · 发表于 2011-2-17 22:55

不好意思，可能没说清，我的db文件的路径可能会变的(即事先不知道路径)，所以我想要获取db文件的路径，我现在用的是Application.CurrentProject.Path，但这个只能获取当前工程的路径，我要的是分离后的数据库文件的路径(工程文件在客户机上，而数据库文件在服务器上)

wyf2 · 发表于 2011-2-18 16:07

没人帮忙解决吗

roych · 发表于 2011-2-20 14:16

前台永远都是currentproject.path。至于后台，如果不变的话，应该是已知路径吧？如果变化的话，则建议写一个filedialog来让客户自动链接后台。

zhao__feng · 发表于 2011-2-20 19:13

原帖由 roych 于 2011-2-20 14:16 发表
前台永远都是currentproject.path。至于后台，如果不变的话，应该是已知路径吧？如果变化的话，则建议写一个filedialog来让客户自动链接后台。

或者用sql,ip地址

leibaoxian · 发表于 2015-10-6 23:09

Stpath = Sheets("用户管理").Range("N2").Value '获取数据库路径，此处为与该excel表在指定目录下
Set RS1 = OpenDatabase("provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & "123456").OpenRecordset(Name:="库存明细", Type:=dbOpenDynaset)

		自动登录	找回密码
密码			免费注册

[求助] access vba 如何获取当前数据库文件的路径(数据库与程序已分离)