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

pancult 2004-09-15 09:33:02
为什么连接带密码的数据库时,会提示“工作组信息文件丢失,或被其他用户用独占方式打开”?结果连接不成功。如果不带密码的时候就可以。我是把数据库连接写在模块里的,代码如下:
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
...全文
206 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
badboyst 2004-09-15
  • 打赏
  • 举报
回复
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "\KTV.mdb;User ;Persist Security Info=False;Jet OLEDB:Database Password=admin"

试试应该行!
poni 2004-09-15
  • 打赏
  • 举报
回复
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';"

hanweihanw 2004-09-15
  • 打赏
  • 举报
回复
用JET连接的时候会出现这些问题的!!最好是用ACCESS的驱动!如果你是用ACCESS的数据库的话!
hhjjhjhj 2004-09-15
  • 打赏
  • 举报
回复
不要用Jet,用这个连接好了
objcn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
          "Dbq=c:\somepath\mydb.mdb;" & _
          "Uid=Admin;" & _
          "Pwd=;"
yijiansong 2004-09-15
  • 打赏
  • 举报
回复
我UP~~
风之浪漫 2004-09-15
  • 打赏
  • 举报
回复
偶没见过这个问题,你是不是用ACCESS建的数据库?如果不是下边就不用看了,如果是,那么是不是在运行程序的同时你的ACCESS还在打开那个数据库呢?如果不是,你可以不用看了,如果是那么就关掉ACCESS试试吧! ̄
pancult 2004-09-15
  • 打赏
  • 举报
回复
没人吗?我UP~~
pancult 2004-09-15
  • 打赏
  • 举报
回复
能解释下吗?好象不是很熟悉。
连接数据库的方法应该很多吧,我是用ADO进行连接的。有什么不妥吗?
loverpyh 2004-09-15
  • 打赏
  • 举报
回复
这样试试
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"

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧