Đá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
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 257 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 125 24-04-16, 05:59 PM
Bài mới nhất: li_95
  Hướng dẫn giúp câu lệnh mở file access khác và lệnh import data. chihienphuco 5 3,899 17-11-15, 09:47 AM
Bài mới nhất: kieu manh
  trợ giúp về giao diện access quan_pc 7 4,395 24-07-15, 02:39 PM
Bài mới nhất: tranthanhan1962
  Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn. minhhang02081992 15 2,191 18-07-15, 10:58 AM
Bài mới nhất: jeck09nt

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ơ