vb 获得数据库文件绝对路径

Question

Dim conn As New ADODB.Connection

conn.Provider = "Microsoft.Jet.OleDB.4.0"
conn.Open "E:\zhangna\zuoye\6\双向词典.mdb"
Set rs = conn.Execute("词典")
conn.Cancel

Do Until rs.EOF
List1.AddItem rs("英语")
List2.AddItem rs("汉语")
rs.MoveNext
Loop

conn.Close
上面的代码可以把access数据库中的数据在listbox中显示出来，这样可以导入 了，可是导入用conn.Open "E:\zhangna\zuoye\6\双向词典.mdb"
是相对路径 ，要怎么改下才能变成绝对 路径 呢？

Answer 1

楼主把局对相对搞错了

conn.Open "E:\zhangna\zuoye\6\双向词典.mdb"
这是绝对路径
相对的就是想对于"当前目录"的地址
例如想对于当前.exe的路径就是app.path
如果你的数据库放在同一路径下
就
conn.Open App.Path & "\双向词典.mdb"

Answer 2

你这个才是叫绝对路径 绝对路径是指文件所在的全部路径，简而言之就是 绝对路径包括了 盘符 文件夹 文件等。
相对路径 只是指你源程序所在的文件夹为根目录

举个例子

E:\zhangna\zuoye\6\双向词典.mdb"
这个就是绝对路径了

而 在程序里面调用如

zuoye\6\双向词典.mdb

这样才是叫相对路径 （假如你的程序是在e:\zhangna下面）

vb中获得相对路径的代码是app.path

假如你的程序是在e:\zhangna下面 哪么用代码 app.path & "\zuoye\6\双向词典.mdb" 这段代码和你用的路径是一样的，但是用相对路径的好处就是，你的数据库可以不限定在那个盘 只要求限定是在你的源程序的目录下面就可以了

Answer 3

app.path & "\双向词典.mdb"