怎样在sqlca连上本地的access数据库(不用别名,用exe的相对路径)

tob 2002-03-11 07:04:50
我的access数据库放在exe同一目录里,怎样在sqlca连上本地的access数据库,不用别名,用exe的相对路径,delphi好像有extratfilepath(application.exename)的函数.不知pb有吗?
...全文
9 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tob 2002-03-11
那么怎样把sqlca 连上access 数据库,具体一点。(不用别名)
delphi 只用一句话就ok了,pb...
回复
liulee 2002-03-11
PB没有这个函数,你可以用api的 getCurrentDirectoryA来得到。
申明:

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


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

回复
tob 2002-03-11
有没有简单的函数,象delphi的extratfilepath(application.exename)
回复
kaisa_cheng888 2002-03-11
以下为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


回复
发帖
非技术版
创建于2007-09-28

379

社区成员

PowerBuilder 非技术版
申请成为版主
帖子事件
创建了帖子
2002-03-11 07:04
社区公告
暂无公告