-
Không nhận Pasword
Phung Duc > 17-03-17, 05:25 PM
Chào các bác
Khi mình khai báo
Set CenterDb = DBEngine.Workspaces(0).OpenDatabase("P:\ProDataCenter\ProDataCenter.accdb", False, True, "MS Access; PWD = mypassword")
Nhưng khi run nó lại báo:
Run-time error 3031 "Not a valid password"
Lỗi này là như thế nào, sai ở đâu, các bác giúp cho với ạ!
Cám ơn nhiều -
RE: Không nhận Pasword
maidinhdan > 18-03-17, 05:05 PM
(17-03-17, 05:25 PM)Phung Duc Đã viết: Chào các bác
Khi mình khai báo
Set CenterDb = DBEngine.Workspaces(0).OpenDatabase("P:\ProDataCenter\ProDataCenter.accdb", False, True, "MS Access; PWD = mypassword")
Nhưng khi run nó lại báo:
Run-time error 3031 "Not a valid password"
Lỗi này là như thế nào, sai ở đâu, các bác giúp cho với ạ!
Cám ơn nhiều
Chép nguyên đoạn code lên xem hoặc post file lên. -
RE: Không nhận Pasword
MTNQ > 19-03-17, 07:29 AM
(17-03-17, 05:25 PM)Phung Duc Đã viết: Chào các bác
Khi mình khai báo
Set CenterDb = DBEngine.Workspaces(0).OpenDatabase("P:\ProDataCenter\ProDataCenter.accdb", False, True, "MS Access; PWD = mypassword")
Nhưng khi run nó lại báo:
Run-time error 3031 "Not a valid password"
Lỗi này là như thế nào, sai ở đâu, các bác giúp cho với ạ!
Cám ơn nhiều
-Trước mypassword dư 1 khoảng trắng (khai báo như bạn vô tình thêm một khoảng trắng vào trước mật khẩu nên bị lỗi)
-Có thể sửa lại như sau:
Mã:Set CenterDb = DBEngine.Workspaces(0).OpenDatabase("P:\ProDataCenter\ProDataCenter.accdb", False, True, "MS Access; PWD=mypassword")
-Thông thường không ai khai báo trực tiếp mật khẩu (MK) vào trong code. Bạn nên lưu nó vào 1 table (hoặc 1 tập tin .txt nào đó chẳng hạn) .Dùng một biến để truy xuất mật khẩu khi cần mở DB (Nếu cần bảo mật bạn có thể thông qua hàm mã hóa và giải mã MK). Làm như vậy khi cần thay đổi MK ta sẽ không phải mở code ra để sửa