Liên kết đến file mdb có pass

[tunhionline]

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.

View more random threads:

• Hỏi tạo form cập nhật dữ liệu cho table
• Quản lý in hoá đơn điện 2.0
• Hướng dẫn giúp cách tìm kiếm một record
• pls help: Điền dữ liệu vào listbox từ file mdb khác
• [HỎI] Tăng số record mỗi table trong MS Access 2003
• Phần mềm bán hàng đơn giản
• Biếu các Bác Tiện ích In nội dung hoá đơn GTGT lên tờ Hoá đơn in sẵn
• Điều khiển con trỏ theo ý muốn
• Quản lý hợp đồng với Access
• Reset lại Stt sau khi sang ngày mới

[shincodonc9x]

Ðề: Liên kết đến file mdb có pass

Cách này tôi thấy hơi lạ. Tôi hiểu đại khái là bạn xóa bỏ password của file được link, thực hiện link, sau đó gán lại password cho file đc link y cũ.

Tôi thấy không cần phải phức tạp như vậy. Bạn chỉ cần mở file được link ra rồi link bình thường.

'Reference thu vien Microsoft DAO 3.6 Object Library
Private Sub Command0_Click()
Dim db As DAO.Database
Dim strPath As String
Dim strPwd As String


strPwd = "admin"
strPath = Application.CurrentProject.Path & "\data01.mdb"

Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, ";pwd=" & strPwd)

DoCmd.TransferDatabase acLink, "Microsoft Access", strPath, acTable, "tblBCDKT", "tblBCDKT"

db.Close
Set db = Nothing

End Sub