ACCESS支持当前路径App.path吗?

fayeada 2003-05-27 11:51:12

ACCESS支持当前路径App.path吗?好象CurDir也不太好用！

...全文

212 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

monglihong 2003-05-27

打赏
举报

当然支持
Data5.DatabaseName = App.Path + "\统计库.mdb" 'data4为统计库drive_code表
Data5.RecordSource = "select * from dirver_code where IC卡号=" & "'00000" & tt & "'"
Data5.Refresh

online 2003-05-27

打赏
举报

支持
string apppath
if right(app.path,1)="\" then
apppath=app.path
else
apppath=app.path+"\"
end if

Cooly 2003-05-27

打赏
举报

Dim Connection as Adodb.Connection
Set Connection = New ADODB.Connection
Connection.CursorLocation = adUseServer
Connection.ConnectionString ="Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=" & IIf(right(app.path,1)<>"\",app.path & "\",app.path) & "Test.MDB"
Connection.Open

northwolves 2003-05-27

打赏
举报

支持
Dim Connection as Adodb.Connection
Set Connection = New ADODB.Connection
Connection.CursorLocation = adUseServer
Connection.ConnectionString ="Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=C:\Test\Test.MDB"
Connection.Open

fayeada 2003-05-27

打赏
举报

其实我就是想在按扭下连接当前路径下的应用程序.

hh5458 2003-05-27

打赏
举报

支持

qingming81 2003-05-27

打赏
举报

可以在VB中改变一下用法：
dim strSQL as string
strSQL =app.path & "\Text.mdb"
strSQL =replace(strSQL,"\\","\")

Dim Connection as Adodb.Connection
Set Connection = New ADODB.Connection
Connection.CursorLocation = adUseServer
Connection.ConnectionString ="Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=" & strSQL
Connection.Open

pooryaya 2003-05-27