使用VB6以密码连接ms access数据库时出错

嗨，

---

下面是连接ms access数据库和密码保护的代码。但是，它给出了一个错误“无法使用”文件已在使用中。您能告诉我可能是什么问题吗。

缺少

；

介于.mdb和Jet之间

这是我刚刚从我的（工作）项目中提取的连接字符串：

“Provider='Microsoft.Jet.OLEDB.4.0'；数据源=“%path%\%file%”；Jet OLEDB:数据库密码=%pwd%；"

所以我想数据库源应该用一对单引号括起来

编辑：勾选该选项，不会有任何区别（与提供商名称周围的单引号一样）。我从未阅读过您的问题，直到最后

---

关闭当前打开数据库的所有程序，然后删除与数据库位于同一目录中的任何*.ldb文件。如果无法删除*.ldb文件，则表示仍有一个进程正在运行，该进程打开了该文件。查找并杀死它，然后重试删除该文件。

您需要在喷射OLEDB之前添加两个

；

并尝试使用此代码进行连接

conString =  "Provider=Microsoft.Jet.OLEDB.4.0" _
          & ";Data Source=D:\Dheeraj\VB6_DH\db5.mdb" _
          & ";Jet OLEDB:Database Password=dheeraj;" 

试着这样做。

---

con.Open“Provider=Microsoft.Jet.OLEDB.4.0；数据源=“&App.Path&”\Masterfile.mdb；Jet OLEDB：数据库密码=xxxxx；“

可能数据库已损坏。请从Access压缩并修复，然后重试。也请先尝试使用MS Access打开它，看看它是否有效。请使用

更改此密码；密码：dheeraj；

使用“&”Jet OLEDB:数据库密码=dheeraj；“'错误是'找不到可安装的ISAM'，经过Sujith建议的修改后，错误仍然与我提到的相同。MicSim，数据库正在正常打开，没有问题。Thanx，但是它在.Open处仍然给出错误'无效参数'。谢谢Salich，它也不起作用。我也尝试使用新数据库，但仍然给出错误。我尝试了不同的VB6程序和带有密码的新数据库，在那里它工作得很好，没有问题，我不知道我正在处理的窗体和项目有什么问题。我已将数据库存储在与VB6项目相同的文件和文件夹中。在那里它不显示任何.ldb文件。否则，我应该在哪里找到它们。我尝试了不同的VB6程序新的数据库和密码，它的工作非常好，没有任何问题，我不知道我正在处理的表单和项目有什么问题。该文件是在服务器上还是在具有特殊权限的文件夹上？如果是，请检查以下情况是否适用：没有，该文件夹没有特殊权限。但是我所做的是创建了新的数据库和新的vb6项目，并将数据库存储在与vb6项目相同的文件夹中。在这里，它工作正常，没有特殊安排。现在它工作正常。我无法了解早期设置的问题。

conString =  "Provider=Microsoft.Jet.OLEDB.4.0" _
          & ";Data Source=D:\Dheeraj\VB6_DH\db5.mdb" _
          & ";Jet OLEDB:Database Password=dheeraj;" 

Public Con as New ADODB.Connection

Private Sub Form_Load()
Dim conString As String

     conString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
          & "Data Source=D:\Dheeraj\VB6_DH\db5.mdb" _
          & ";;Jet OLEDB:Database Password=dheeraj;"

     Con.Open conString
End Sub

Dim Con As ADODB.Connection
Dim DatabasePath As String
Dim DatabasePassword As String

DatabasePath = App.Path & "\Storage.mdb"
DatabasePassword = "mypc"

Set Con = New ADODB.Connection

With Con
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
                        "User ID=Admin;Data Source=" & DatabasePath & ";" & _
                        "Jet OLEDB:Database Password='" & DatabasePassword & "'"
    .Open
End With