Access数据库怎么加密？

hjj223 2003-09-06 11:06:54

有谁知道对Access数据库加密码？请发邮件到：jianji.he@powerise.com.cn
谢谢！

...全文

48 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lilaclone 2004-03-11

打赏
举报

在VB的Project-Reference中添加引用Microsfot ActiveX Data Objects 2.X Library
如数据库初始密码为空，第一次设置的情况：
Private Function CreateDBPassword(ByVal Password As String, _
ByVal Path As String) As Boolean

Dim objConn As ADODB.Connection
Dim strAlterPassword As String

On Error GoTo CreateDBPassword_Err
' 创建 SQL 串以初始化一个数据库密码。
strAlterPassword = "ALTER DATABASE PASSWORD " & Password & " NULL;"

' 打开不具有安全设置的数据库。
Set objConn = New ADODB.Connection
With objConn
.Mode = adModeShareExclusive
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=" & Path

' 执行 SQL 语句对数据库进行安全设置。
.Execute (strAlterPassword)
End With

' 清除对象。
objConn.Close
Set objConn = Nothing

' 如果成功，返回 true。
CreateDBPassword = True
Exit Function
CreateDBPassword_Err:
MsgBox Err.Number & ":" & Err.Description
CreateDBPassword = False
End Function

调用例如：
Private Sub Command2_Click()
Dim blnTest As Boolean

blnTest = CreateDBPassword("ajiu", "c:\test.mdb")
if blnTest=True then Msgbox "设置成功！"
End Sub