Office中国论坛/Access中国论坛

标题: 用ado打开数据库，提示：工作组信息文件丢失…… 是怎么回事？ [打印本页]

作者: v_tang 时间: 2008-4-2 17:11
标题: 用ado打开数据库，提示：工作组信息文件丢失…… 是怎么回事？
用ado打开数据库，提示：工作组信息文件丢失，或是已被其它用户以独占方式打开。是怎么回事？
代码如下：
Dim con As ADODB.Connection
Dim rs1 As ADODB.Recordset '下级tbl单位编码
Dim strCon As String
Dim strSql As String
Dim strUnitID As String
Dim strSubUnitId As String
If Nz(txtFileMerge) = "" Then
MsgBox "请选择文件后再执行此操作！"
Exit Sub
End If
If MsgBox("执行此操作将覆盖原有数据，执行请单击“是”", vbYesNo, "提示") = vbNo Then
'Exit Sub
End If
Set con = New ADODB.Connection
strCon = "

rovider=Microsoft.Jet.OLEDB.4.0;User ID=

assword='access20032008';Data Source='" & txtFileMerge & "'

ersist Security Info=True"
MsgBox strCon
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & txtFileMerge & ";"
con.ConnectionString = strCon
con.Open

作者: v_tang 时间: 2008-4-2 18:29
试过了，不带密码可以，用
strCon = "

rovider=Microsoft.Jet.OLEDB.4.0

ersist Security Info=False;Data Source=" & txtFileMerge & ";"

请问高手带密码的connectionstring 怎么写？

作者: v_tang 时间: 2008-4-2 20:23
谢谢cuxun,问题已解决：
connectstring 中加入 Jet OLEDB

atabase Password= 就行了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)