thucgia > 25-09-15, 07:41 PM
(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.
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