为什么连接带密码的数据库时，会提示“工作组信息文件丢失，或被其他用户用独占方式打开”？

[pancult]

为什么连接带密码的数据库时，会提示“工作组信息文件丢失，或被其他用户用独占方式打开”？结果连接不成功。如果不带密码的时候就可以。我是把数据库连接写在模块里的，代码如下：
Public Function Conne() '数据库连接函数
'
Dim objcn As New ADODB.Connection
Dim strCn As String

Set objcn = New ADODB.Connection
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KTV.mdb;User Id=admin;Password=admin;"
With objcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = strCn
.Open
End With
Set Conne = objcn

End Function

[loverpyh]

这样试试
sString = "INSERT INTO INH_CARDRECORD SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','D:\DataBackupDBnew.mdb';'admin';'siten505',ThisMonthTB)"



sString = "INSERT into INH_CARDRECORD select * from opendatasource( 'MSDASQL','Data Source=D:\DataBackupDB.mdb;User ID=admin;Jet OLEDB:Database Password=siten505')...ThisMonthTB"

• 打赏
• 举报

回复 赞

[pancult]

能解释下吗？好象不是很熟悉。
连接数据库的方法应该很多吧，我是用ADO进行连接的。有什么不妥吗？

• 打赏
• 举报

回复 赞

[pancult]

没人吗？我UP～～

• 打赏
• 举报

回复 赞

[风之浪漫]

偶没见过这个问题，你是不是用ACCESS建的数据库？如果不是下边就不用看了，如果是，那么是不是在运行程序的同时你的ACCESS还在打开那个数据库呢？如果不是，你可以不用看了，如果是那么就关掉ACCESS试试吧！￣

• 打赏
• 举报

回复 赞

[yijiansong]

我UP～～

• 打赏
• 举报

回复 赞

[hhjjhjhj]

不要用Jet，用这个连接好了
objcn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　 "Dbq=c:\somepath\mydb.mdb;" & _
　　　　　　　　　 "Uid=Admin;" & _
　　　　　　　　　 "Pwd=;"

• 打赏
• 举报

回复 赞

[hanweihanw]

用JET连接的时候会出现这些问题的!!最好是用ACCESS的驱动!如果你是用ACCESS的数据库的话!

• 打赏
• 举报

回复 赞

[poni]

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KTV.mdb;User Id=admin;Password=admin;"

将此句改一下试试看：

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KTV.mdb;User Id='admin';Password='admin';"

• 打赏
• 举报

回复 赞

[badboyst]

Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "\KTV.mdb;User ;Persist Security Info=False;Jet OLEDB:Database Password=admin"

试试应该行！

• 打赏
• 举报

回复 赞