VB连接加密的Access数据库显示错误的解决办法

VB连接加密的Access数据库显示错误的解决办法

VB6.0连接加密的Access数据库会显示错误，可能的错误提示：

（1）找不到可安装的ISAM问题（2）测试连接失败，因为初始化提供程序时发生错误。无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。

解决办法详见本文。

使用VB的Adodc控件连接加密的Access2000-03数据库的正确写法如下：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:DataBase password=12345;"

Adodc1.RecordSource = "select * from table1 "

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

其中db1.mdb为加密后的数据库，12345为数据库密码，Datagrid1用来显示Adodc1所获得的数据集。

关键是“Jet OLEDB:DataBase password=12345;”这一部分不能错，尤其是OLEDB:和DataBase之间没有空格。在网上一下指导中这里有空格，活活耽误了小哥两个小时才发现问题症结。