Question

    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;" _

                     '& "App.Path & Persist Security Info=False;"
            Set CON = New ADODB.Connection
            With CON
                .ConnectionString = conString
                .Open
            End With

    End Sub

您好，这是连接ms访问数据库和密码保护的代码。但是它给出了一个错误'无法使用';文件已经在使用'你能告诉我可能是什么问题。

Answer 1

尝试这样做。 con.Open“Provider = Microsoft.Jet.OLEDB.4.0; Data Source =”＆amp; App.Path＆amp; “\ Masterfile.mdb; Jet OLEDB：Database Password = xxxxx;”

Answer 2

.mdb 和 Jet 之间缺少;

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

Answer 3

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

＆＃34;提供商=＆＃39; Microsoft.Jet.OLEDB.4.0＆＃39 ;;数据来源=＆＃39;％路径％\％文件％＆＃39 ;; Jet OLEDB：数据库密码=％pwd％;＆＃34;

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

编辑：除此之外，它不应该有任何区别（就像提供商名称周围的单引号一样）。直到最后我才读到你的问题。

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

Answer 4

您需要在;

之前添加两个Jet OLEDB

尝试使用此代码进行连接

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

Answer 5

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

使用VB6使用密码连接ms访问数据库时出错

5 个答案: