Đi tìm đường dẫn của BACK END

[glasseggs]

Các bác cho em hỏi chút chút nhé. Có 2 cái Front End và Back End đặt ở 2 nơi khác nhau và đã liên kết với nhau. Giờ có cách nào để lấy ra cái đường link dẫn tới Back End nó nằm ở đâu trên ổ cứng không ?

Thanks các bác !

 

[chip2006]

Ðề: Đi tìm đường dẫn của BACK END

Các bác cho em hỏi chút chút nhé. Có 2 cái Front End và Back End đặt ở 2 nơi khác nhau và đã liên kết với nhau. Giờ có cách nào để lấy ra cái đường link dẫn tới Back End nó nằm ở đâu trên ổ cứng không ?

Thanks các bác !

Dùng Application.Path

 

[phatnq2002]

Ðề: Đi tìm đường dẫn của BACK END

Dùng Application.Path

Chỉ áp dụng cho CurrentDatabase hoặc CurrentProject thôi.

 

[chip2006]

Ðề: Đi tìm đường dẫn của BACK END

Tại Back tạo 1 function
Public Function localPath() As String
localPath = Application.CurrentProject.Path
End Function

Rồi tạo 1 query, ví dụ đặt tên là qryPath
SELECT localPath() AS Path;

Tại Front:
Link cái query này vào và mở lên thì sẽ biết đường dẫn Local của Back là ở đâu

Ơ, thằng Access ko cho Link Query
Chờ xíu nhá

Dùng OpenCurrentDababase nhé:

Dim accApp as New Access.Application
accApp.OpenCurrentDatabase "BackSharePath",False,"Password"
mrs = accApp.CurrentDB.OpenRecordset ("qryPath")
mBackLocalPath = mrs("Path")
accApp.CloseCurrentDatabase
accApp.Quit