如何设置或取消（删除）MDB数据库的密码？

1、进入数据库之后，选择创建。选择模板里的空白桌面数据库。

2、创建之后，在桌面的位置保持，并更改文件名。

3、一定要重新创建之后才能够设置密码。在数据库上的【文件】点击进入。

4、在【信息】可以看到【用密码进行加密】。

5、然后调出【设置数据库密码】，设置密码和验证。

6、设置密码之后调出【使用分组加密进行加密与行级别锁定不兼容】。

7、设置密码时候之后。双击数据库之后就要求输入密码才能打开。

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '创建空的access数据库文件--数据库文件.mdb，密码为123

        Dim Mycat As Catalog = New Catalog()

        Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0Jet OLEDB:Engine Type=5Data Source= 数据库文件.mdbJet OLEDB:Database Password=123")

        '以下代码创建一个名为“实验数据表”

        Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

        MyTable.Name = "实验数据表"    '表命名

        '给表“实验数据表” 创建一个字符串字段，字段名“姓名”

        MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

        '给表“实验数据表” 创建一个整数字段，字段名“学号”

        MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

        '给字段“学号”创建一个主键“PimaryKey_Field”        

        MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

        Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

        MyTable = Nothing

        Mycat = Nothing

    End Sub

End Class

---