Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp tôi bảo vệ table user
#21
(25-09-15, 07:14 PM)tranthanhan1962 Đã viết: Nói cho cùng user name cũng không quan trọng lắm nhưng pass mới là vấn đề. Nếu mật khẩu thật của bạn là abcde nhưng làm cách nào đó abcde trở thành 12345 hay mnopq hay là gì đó chẳng hạn. Không cần bất kỳ một phần mềm mã hóa nào. Access cho bạn một cây cần câu còn câu như thế nào và dùng mồi gì để câu là chuyện của bạn. Đừng nghĩ rằng access hỗ trợ được gì cho ta mà hãy suy nghĩ ta sử dụng access như thế nào thì nó sẽ là một công cụ tuyệt vời cho bạn. Nếu bạn nghĩ rằng access sẽ bảo mật CSDL của bạn, bạn sẽ không bao giờ bảo mật được. Nhưng nếu bạn tự suy nghĩ cách bảo mật cơ sở dữ liệu của bạn thì VBA của access dư thừa việc hỗ trợ yêu cầu của bạn. Ngôn ngữ VBA access chỉ có 1 nhưng vào tay Noname, maidinhdan, paulsteigel, thucgia... thì sẽ khác nhau. Quan trọng là cách xử lý như thế nào.

Đúng là biển học vô bờ, như chí ít là phải bảo vệ được cái mật khẩu của back end. Theo thiển cận của mình
1. Bảo vệ một phần, chỉ những acount trong danh sách người_dùng mới có thể biết:
      - khi đăng nhập đúng tên người dùng và mật khẩu thì chương trình mới tiến hành link
      - Khi người dùng thoát chương trình thì tiến hành xoá tất cả các table link
2. Bảo vệ toàn phần
      - không link "cứng" mà phải link "mềm", cái này vất vả lắm
Mình có đoạn code chứng tỏ access có thể link mềm

Mã:
Sub lay_ds(tbl As String)
   Dim db As DAO.Database
   Dim ws As DAO.Workspace
   Dim rst As DAO.Recordset
   Set ws = DBEngine.Workspaces(0)
   Set db = ws.OpenDatabase(path, False, False, con)
   Set rst = db.OpenRecordset(tbl, dbOpenDynaset)
   Dim size As Integer
   If rst.EOF Then
       size = 0
   Else
       rst.MoveLast
       size = rst.RecordCount
   End If
   
   If size > 0 Then
       rst.MoveFirst
       Do While Not rst.EOF
           For i = 0 To rst.Fields.Count - 1
               Debug.Print rst(i).Name & " : " & rst(i)
           Next i
           rst.MoveNext
       Loop
   End If
   rst.Close
   db.Close
End Sub
thân mến
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , tranthanhan1962


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Xin giúp liên kết đường dẫn trong access audition 14 5,304 11-05-17, 11:50 AM
Bài mới nhất: cpucloi
Photo [Problem] Không thêm được records từ list vào table thông qua đối tượng rs vuga 3 269 25-02-17, 05:54 PM
Bài mới nhất: ongke0711
Star Lỗi Data Type Conversion Error khi add vào table bằng đối tượng record set vuga 1 148 06-01-17, 03:23 PM
Bài mới nhất: cpucloi
  ? Đối tượng recordset để truy tìm việc trùng thông tin trong table vuga 3 241 04-01-17, 01:22 AM
Bài mới nhất: vuga
  [Help] K biết là lỗi hay gì cần trợ giúp. nhocdevill11 2 196 08-12-16, 05:02 PM
Bài mới nhất: nhocdevill11

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ