您所在位置：主题：VB连接带密码的ACCESS连不上
CityShark
[专家分：170] 发布于 2008-05-21 16:05:00
'工程引用了 Microsoft ActiveX Data Objects 2.8 Library
Public cn As New ADODB.Connection
Sub Main()
If Right(App.Path, 1) <> "\" Then MyAppPath = App.Path Else MyAppPath = Left(App.Path, Len(App.Path) - 1)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
& ".mdb;password=asdf;user id=;Persist Security Info=False"
End Sub
'为什么：cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
' & ".mdb;password=asdf;user id=;Persist Security Info=False"
'会提示“无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。”？？
'数据库不加密码用 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
' & ".mdb;password=f;user id=;Persist Security Info=False" 就正常。
Public cn As New ADODB.Connection
Sub Main()
If Right(App.Path, 1) <> "\" Then MyAppPath = App.Path Else MyAppPath = Left(App.Path, Len(App.Path) - 1)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
& ".mdb;password=asdf;user id=;Persist Security Info=False"
End Sub
'为什么：cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
' & ".mdb;password=asdf;user id=;Persist Security Info=False"
'会提示“无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。”？？
'数据库不加密码用 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppPath & "\" & DBName _
' & ".mdb;password=f;user id=;Persist Security Info=False" 就正常。
