怎样在sqlca连上本地的access数据库（不用别名，用exe的相对路径）

[tob]

我的access数据库放在exe同一目录里，怎样在sqlca连上本地的access数据库，不用别名，用exe的相对路径,delphi好像有extratfilepath(application.exename)的函数.不知pb有吗？

[kaisa_cheng888]

以下为f_getcurrentdirectory()函数：

Environment ge_Environment
u_external_function gu_ext_func
SetPointer (HourGlass!)
GetEnvironment(ge_Environment)
String ls_WinType = "u_external_function"

If ge_Environment.Win16 Then
ls_WinType = ls_WinType + "_win16"
Else
ls_WinType = ls_WinType + "_win32"
End If

gu_ext_func = Create Using ls_WinType

If IsNull(gu_ext_func) Then
Return "error"
End If
String ls_Dir
Long ll_Size

ls_Dir = Space (40)
ll_Size = gu_ext_func.uf_GetCurrentDirectory(60, ls_Dir)
If ll_Size > 0 Then
return ls_Dir
else
return "error"
End if

[tob]

有没有简单的函数，象delphi的extratfilepath(application.exename)

[liulee]

PB没有这个函数，你可以用api的 getCurrentDirectoryA来得到。
申明：

Function ulong GetCurrentDirectoryA(ulong nBufferLength,ref string lpBuffer) Library "kernel32.dll"


或者用listbox的DirList到一个statictext来得到目录：
lb_1.dirlist('.\*.*',st_cur_folder)
就可以了。

[tob]

那么怎样把sqlca 连上access 数据库，具体一点。（不用别名）
delphi 只用一句话就ok了，pb...