app.path设置当前程序路径,
dim strfile as string
strfile=app.path & "data\user.mdb"

解决方案 »

  1.   

    不对阿
    我选完路径后再进行数据库操作odbc报告找不到数据库了
    我使用adodc绑定的
    怎么解决?
      

  2.   

    先找个变量把路径存取来
    ================================================================
    [email protected]
      

  3.   

    你使用这个函数吧:CurDir(),如果不行,请先修改当前驱动器再改路径。CurDir 函数示例
    本示例使用 CurDir 函数来返回当前的路径。' 假设 C 驱动器的当前路径为“C:\WINDOWS\SYSTEM”。
    ' 假设 D 驱动器的当前路径为“D:\EXCEL”。
    ' 假设 C 为当前的驱动器。
    Dim MyPath
    MyPath = CurDir   ' 返回“C:\WINDOWS\SYSTEM”。
    MyPath = CurDir("C")   ' 返回“C:\WINDOWS\SYSTEM”。
    MyPath = CurDir("D")   ' 返回“D:\EXCEL”。
    本示例使用 ChDrive 语句来改变当前的驱动器。ChDrive "D"   ' 使“D”成为当前驱动器。
      

  4.   

    chdir怎么不起作用?
    返回的是c:\
      

  5.   

    搞定了

    chdrive

    chdir