-
07-29-2010, 02:59 AM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 4
Đặt password cho Front End bằng VB
:xinloinhe:
Mình đang muốn làm cái phần đặt pass cho Front End bằng VB thay vì dùng cái mặc định của Access.
Và ý tưởng của mình là trên Front End sẽ tạo 1 nút mở một cái file Access Changepass khác có cùng thư mục với Front End để đổi pass cho Front End .
Nhưng vấn đề nằm ở chỗ mình đã thử 3 cách từ dùng Shell, hàm API mà nó chỉ có thể mở pm Access nên chứ không mở cái file Changepass.
Bác nào có cách mở 1 pm access từ 1 pm access khác không ?
Hay có cách nào để đổi pass hay hơn thì chỉ em với .
:k5429592:View more random threads:
- Xây dựng CSDL in hóa đơn thanh toán tiền bắt đầu như thế nào?
- làm sao để lấy 1 record trong access
- Kết nối SQL server với Access
- Bẫy lỗi trong Access bằng VBA
- keycode phím # là thế nào vậy ạ?
- Giúp mình code tạo From với access
- Import hoặc link data từ 1 host khác như thế nào?
- Lấy Ngày làm việc khi đăng nhập
- Vô hiệu hóa nút Close của ứng dụng Access
- Lấy ngày và giờ trên máy như thế nào?
-
07-29-2010, 05:20 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Gửi bởi glasseggs
2/ Dùng file access khác thì muốn mở file này hãy dùng kỹ thuật DAO hoặc ADODB (Dùng DAO đơn giản hơn ADOD8-)
Thân
-
07-29-2010, 05:48 PM #3
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Cách 1 dễ nhất nhưng cũng không an toàn nhất,nó lưu pass vào table.
Em muốn dùng phần đặt pass của chính access cơ bác. Mà cái DAO thì em chịu.
-
07-29-2010, 05:58 PM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 5
Ðề: Đặt password cho Front End bằng VB
Gửi bởi glasseggs
Mã nguồn PHP:[COLOR=#000000]
Dim AppPass [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Database Dim rPass [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Recodset Dim TenTapTin [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Set TenTapTin [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentProject[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"\PassChange.mdb" [/COLOR][COLOR=#0000BB]Set AppPass [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DBEngine[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]OpenDatabase[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]TenTapTin[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set rPass [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]AppPass[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"tblPass"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]dbOpenTable[/COLOR][COLOR=#007700]) ................... [/COLOR]
-
07-30-2010, 05:28 PM #5
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 15
Ðề: Đặt password cho Front End bằng VB
Cho em hỏi chút ,đoạn code này cho vào sự kiện Click của command button à.
Mà khi em chạy nó báo lỗi :
Object required ở dòng Set TenTapTin =
Mà còn cái này nữa :
\PassChange.mdb : là cái file sẽ mở phải không ?
Vậy cái tblPass là cái gì hở bác ?
-
07-30-2010, 06:16 PM #6
Silver member
- Ngày tham gia
- May 2016
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Gửi bởi glasseggs
-
07-30-2010, 06:31 PM #7
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Gửi bởi glasseggs
tblPass tà tên Table trong cái PassChange.mdb cần mở, còn mở để lam gì là tùy ý bạn
Thân
-
07-31-2010, 05:04 PM #8
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Mấy bác ơi nhưng em chạy đoạn này nó vẫn lỗi :
Object required ở dòng Set TenTapTin =
Và nếu ở file PassChange.mdb em không muốn mở cái table đó lên mà chỉ muốn mở cái PassChange.mdb nên có được không ?
Vì trong file PassChange.mdb này không có table nào mà chỉ có 1 cái Form dùng để đổi pass bằng code cho cái file khác thôi.
-----------------------------------------------------------------------------------------
Có lẽ bác hiểu nhầm ý em thật. Em xin trình bày rõ lại như sau :
Em có 2 file ChangePass.accdb và CRMS.accdb (Front End)
File ChangePass.accdb nhằm mục đích đổi pass cho CRMS.accdb (Pass này là pass của Access quản lý chứ không phải pass cho lưu vào table nhé )
Và file ChangePass.accdb chỉ có 1 cái Form có 2 textbox Oldpass và Newpass và 1 nút có code như sau :
Mã:Sub setPass(oldPass as String, newPass As String) Set tempDB = OpenDatabase(CurrentProject.Path & "\" & "CRMS.accdb ", True, False, "MS Access;PWD=" & oldPass) tempDB.NewPassword oldPass, NewPass tempDB.Close End Sub Private Sub Command1_Click() setPass Oldpass, Newpass end sub
-
07-31-2010, 06:31 PM #9
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Gửi bởi glasseggs
Thân
-
07-31-2010, 06:51 PM #10
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đặt password cho Front End bằng VB
Nói "một câu" ngắn gọn:
Bạn glasseggs không nên "cố chấp" cho cái quan điểm của mình khi làm cái vụ này.
Vì nó phá sản ngay cái ý tưởng mở một cái form từ mdb khác để thay đổi cái password của cái mdb hiện hành (tức cái Front End đang mở của bạn). Một lẽ đơn giản là nó bị đụng về quyền truy cập. Bởi cái Front End đang mở, nó mở theo một file ldb để quản lý cái vụ truy cập. Một remote khác truy cập vào nó sẽ bị "đụng" ngay cái ldb này.
Với một người đã có một ít năm làm việc với Access, tôi chỉ khuyên bạn là hãy suy nghĩ một cách đơn giản, đừng tự gây khó cho mình quá.
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui