求教一个简单问题 （数据库路径问题）

Question

请问我的data控件的数据库路径怎样设置，才能使我的程序打包后在别的机器上也可以使用

Answer 1

用相对路径app.path应用程序当前目录

Answer 2

App.Path得到你的执行程序路径
Data1.DatabaseName = App.Path & "your.mdb"

Answer 3

用App.path,取得你程序的当前路径，把mdb数据库放在程序的目录下就行

Answer 4

给你个通用的函数：DBPath = ValidateDir(App.Path) & DBName
' 判断目录是否合法，视情况加上斜杠“\”
Function ValidateDir(ByVal tmpPath As String) As String
  If tmpPath = "" Then Exit Function
  If Right(tmpPath, 1) = "\" Then
    ValidateDir = tmpPath
  Else
    If tmpPath <> "" Then
      ValidateDir = tmpPath & "\"
    Else
      ValidateDir = ""
    End If
  End If
End Function