Chào mọi người.
Như chúng ta đã biết, việc tạo file access, table, field thì chúng ta đã làm được rồi. Các bạn xem thêm
Để tiến thêm một bước nữa, hôm nay mình giới thiệu đoạn code tạo ra file cơ sở dữ liệu access .mdb có chứa password.
Như chúng ta đã biết, việc tạo file access, table, field thì chúng ta đã làm được rồi. Các bạn xem thêm
Bạn cần đăng nhập để thấy link
.Để tiến thêm một bước nữa, hôm nay mình giới thiệu đoạn code tạo ra file cơ sở dữ liệu access .mdb có chứa password.
Mã:
Option Explicit
Public Sub CreatePasswordProtectedDatabase()
Dim strPath As String
strPath = "D:\VBA\NewDB2.mdb"
'create new Access application
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
'objAccess.Visible = True 'show or hide Access
'create new database
objAccess.NewCurrentDatabase strPath
'example to add a table
objAccess.DoCmd.RunSQL "CREATE TABLE Test", False
objAccess.DoCmd.RunSQL "ALTER TABLE Test add Gender char(1)", False
'set password
Dim DbPassword As String
DbPassword = "your_password"
objAccess.CurrentProject.Connection.Execute "ALTER DATABASE PASSWORD " & DbPassword & " NULL"
'close database
objAccess.CloseCurrentDatabase
'quit Access application
objAccess.Quit
End Sub