如何解决运行时数据库路径报错问题

[wanda]

我用ADO连接数据库可编译后在别的目录运行，提示数据库路径出错，我已经用了APP.path & "\aa.mdb"方法，可在c:\运行提示c:\\aa.mdb出错，如何解决？还有数据环境里也是绝对路径，如何解决运行路径问题。

[watercat17]

edyang(石头)是对的，
你的MDB文件放在了根目录啊…………

[Edward]

If Right(App.Path, 1) = "\" Then
strPath = App.Path & "aa.mdb"
Else
strPath = App.Path & "\aa.mdb"
End If

[Un1]

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetAppPath() & gconstrDBName & ";Persist Security Info=False"


private function GetAppPath() as string
Dim s As String
s = App.Path

If Right$(s, 1) <> "\" Then s = s & "\"

GetAppPath = s
end function