Nhờ giúp đỡ liên kết đến file .mdb có đặt mật khẩu

[doquanglam]

Mình có viết Code file ChuongTrinh.mdb khi khởi động được liên kết đến Data01.mdb, Data02.mdb (Data01, Data02 không đặt mật khẩu). Nay mình muốn file ChuongTrinh.mdb khi khởi động được liên kết đến Data01, Data02 (Data01, Data02 có đặt mật khẩu là : admin). Có cao thủ nào quan tâm hãy sửa Code giúp tôi với. Tôi rất cám ơn và xin được hầu tạ.

 

[doquanglam]

Anh Hồng Đức ơi, giúp em vấn đề này với. Nếu được tôi biết ơn anh nhiều lắm.

 

[nguoiconxunui]

Mình có viết Code file ChuongTrinh.mdb khi khởi động được liên kết đến Data01.mdb, Data02.mdb (Data01, Data02 không đặt mật khẩu). Nay mình muốn file ChuongTrinh.mdb khi khởi động được liên kết đến Data01, Data02 (Data01, Data02 có đặt mật khẩu là : admin). Có cao thủ nào quan tâm hãy sửa Code giúp tôi với. Tôi rất cám ơn và xin được hầu tạ.

kết nối bằng gì ADO hay chỉ là link tabke, mà ADO thì trên mạng có đầy, hơn nữa đã sử dụng tới ADO mà không biết được vấn đề trên thì khó tin.
Còn kết nối bằng link table (dạng import-> link tables) thì lúc liên kết nó có hỏi pass mà, chỉ cần nhập vào lần đầu liên kết thôi chứ nhỉ.
---------------
Để hướng dẫn rõ thì câu hỏi phải rõ thêm chút
ví dụ:
- mỗi lần mở chương trình thì có cần chọn lại db(cái data01...gì đó) để làm việc không?
- Có cho người dùng thay đổi pass của db không?
- Ai là những người được biết pass của db
- Trong trường hợp db thay đổi thì phản ứng như thế nào (cập nhật lại tự động, cho người dùng nhập pass của db, thoát chương trình, thông báo lỗi....)
---đó cũng nhiều vấn đề giải quyết lắm chứ

 

[doquanglam]

Cám ơn : Nguoiconxunui nhé. Yêu cầu của mình cũng đơn giản thôi, vì lý do kiến thức acc của mình có giới hạn, chỉ giỏi về nghiệp vụ thôi.

Mình kết nối bằng link table (dạng import-> link tables).
---------------
Để hướng dẫn rõ thì câu hỏi phải rõ thêm chút
ví dụ:
- mỗi lần mở chương trình thì có cần chọn lại db(cái data01...gì đó) để làm việc không? : Có
- Có cho người dùng thay đổi pass của db không? : Không
- Ai là những người được biết pass của db : Mình tôi thôi

Bạn sửa code theo file mình gửi kèm đó. Mình đang rất cần, cám ơn rất nhiều

 

[doquanglam]

Các cao thủ ơi, làm ơn xem lại dùm code có sai chỗ nào không nhé, mình liên kết đến file mdb có mật khẩu được nhưng khi thoát ra kiểm tra lại file được liên kết (Data01.mdb) lại mất mật khẩu luôn (Tức là nó không tự lấy lại mật khẩu cũ)


Private Sub cmdChon_Click()
'KÕt nèi d÷ liÖu d¹ng exclusive
Dim TempDb As Database
Dim P As String 'Password
P = "admin"
On Error Resume Next
Set TempDb = OpenDatabase(CurrentProject.path & "\" & "Data01.MDB", True, False, "MS Access;PWD=" & P)
'Xo¸ mËt khÈu ®i
TempDb.NewPassword P, ""
TempDb.Close

'TiÕn hµnh liªn kÕt d÷ liÖu
LinkTable "T-Bieu thue", txtPath
LinkTable "tblBCDKT", txtPath

'Cµi l¹i mËt khÈu cò
Set TempDb = OpenDatabase(CurrentProject.path & " \" & "Data01.MDB", True, False)
TempDb.NewPassword "", P
TempDb.Close
Set TempDb = Nothing
End Sub

Cám ơn nhiều.

 

[LoveBlue]

Mình mới viết lại thủ thuật, theo đó bạn không cần phải khai báo password khi liên kết lần sau, mà nó tự lấy password của lần đầu khi thiết kế mình link .
mời tham khảo:

Tùy chọn liên kết lại các table từ file data có password