-
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:
- Sau khi Append và Delete Record
- Xóa dữ liệu ở 2 bảng cùng lúc
- Cần Giúp đỡ về giải thuật Xuất-Nhập-Tồn từ ngày này đến ngày kia
- Khái niệm đầu tiên về lập trình trên Access
- chuyển report access sang excel
- Giúp đở đoạn code SQL trong VBA của Access
- Requery đối tượng trong Subform
- Xin trợ giúp sự kiện xảy ra trong Combox
- Access
- Tắt mục
-
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á.
Slogan “Xổ số kiến thiết – ích nước lợi nhà” không chỉ đơn giản là một câu nói, mà là sự thể hiện của những lợi ích to lớn mà xổ số kiến thiết đem lại cho xã hội. Thuật ngữ "xổ số kiến thiết ích...
Vai trò quan trọng của xổ số kiến thiết trong cộng đồng