Chủ đề: Liên kết đến file mdb có pass
-
09-08-2010, 09:05 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Liên kết đến file mdb có pass
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:
- Nhờ mọi người giúp mình một chút.
- xin mẫu quản lý nhà hàng bằng access
- Sửa dữ liệu trong access
- Phần mềm quản lý hồ sơ công chức bằng Access
- mình cần tạo phiếu thu và thực hiện in ra luôn
- Danh sách trong combobox
- Hỏi về cách lấy field của ngày hôm trước hay 1 record trước đó
- Giúp đỡ query sắp xếp thứ tự học sinh trong lớp nào
- Mỗi ngày 1 bài viết, 1 góp ý để hoàn chỉnh 1 phần mềm kế toán
- Xin quản lý danh bạn bằng Access
-
10-05-2010, 10:04 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
Súng massage lush 3 cầm tay là dụng cụ có thân xác định và truyền những kích thích rung động đến các cơ. Loại dụng cụ này được rất nhiều người chuộng từ vận cổ vũ đến người đang chừng các phương pháp...
Mẹo sử dụng tốt nhất và phương pháp lựa chọn trùy massage