access路徑調用問題

Question

access路徑調用問題1.相對路徑怎樣設置；2.怎樣把絕對路徑全部改成相對路徑；

Answer 1

你直接将access文件放到你的项目目录中，然后直接使用access名调用就可以了

Answer 2

给你一个模块 
Public cn As ADODB.Connection
Public rs As ADODB.RecordsetPublic Sub OpenConn() '连接数据库
   Set cn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   cn.CursorLocation = adUseClient
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Newdata\damsiconfidential.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"
End SubPublic Sub CloseConn() '关闭数据库
    cn.Close
    Set cn = Nothing '释放数据库
End Sub

Answer 3

在窗体中
private sub comd_click()
call oepnconn
sql="select * from 你的表"
rs.open sql,cn,1,1
'这里写你的代码
call closeconn
end sub

Answer 4

http://download.csdn.net/source/1371356

Answer 5

app.path 是正解，不过最好做个简单的判断：
dim apppath as string
apppath = app.path
if rigth(apppath,1)<>"\" then
    apppath = apppath & "\"
end if
这样保证路径一定是以“\”结尾，就算文件放在磁盘根目录也没关系。万无一失！哇咔咔～～～